ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitri A. Martynoff 2:5020/400 11 Sep 2002 19:11:08
To : All
Subject : Как портировать скрипт из-под виндов под линукс
--------------------------------------------------------------------------------
Hello, All!
Дано: работающий под виндами с ActivePerl простенький скрипт:
--------------------------
if (scalar (@ARGV) < 1 ) {
print "USAGE: ping.pl {site}\n" ;
exit;
}
use HTTP::Request::Common;
use LWP;
my $ua=LWP::UserAgent->new;
$ua->agent('Mozilla/4.0 (compatible; MSIE 5.0; Windows NT; DigExt)');
my $url = 'http://'.@ARGV[0];
my $request = GET($url);
my $response = $ua->request($request);
printf "%s unreachable!\n",$url unless $response->is_success;
-----------------------
Требуется: чтобы этот скрипт работал с родным линуксовым Perl5. Что надо
модифицировать/доставить?
С уважением,
Дмитрий Мартынов.
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
