perl中先有鸡，还是先有蛋的问题，呵呵

QUOTE:

原帖由 cobrawgl 于 2008-8-26 09:43 发表
LOOP:
eval {require Net::Telnet };
if ($@) {
    install ...
    goto LOOP;
}

这样的思路成么？ 没测试啊，也可能用不着 LOOP？

QUOTE:

原帖由 cobrawgl 于 2008-8-26 10:01 发表
你那样当然不成了，你按照我的方法试试？

CODE:

my $NET_TELNET   = "Net-Telnet-3.03.tar.gz";
my $NET_TELNET1  = "Net-Telnet-3.03.tar";
my $NET_TELNET2  = "Net-Telnet-3.03";
my $Current_path = `pwd`;

LOOP:
eval {require Net::Telnet };
if ($@) {
        &install_telnet;
    goto LOOP;
}
use Net::Telnet;

sub install_telnet {
        print "Continue to install Perl/DBI Module....... \n";
        if ( !-e $NET_TELNET1 ) {
                `gunzip $NET_TELNET `;
        }
        `tar xvf $NET_TELNET1 `;
        chdir "$Current_path/$NET_TELNET2"
          or die "can't change dir to $Current_path/$NET_TELNET2 \n";
`/usr/local/bin/perl $Current_path/$NET_TELNET2/Makefile.PL`;
`make `;

        #        my_system("make test");
`make install`;
        print "install Perl/Net::Telnet Module successful \n";

        #                chdir "$Current_path"
        #          or die "can't change dir to $Current_path \n";
}