Да, перл есть, но он пишет
> perl dl.pl
syntax error at dl.pl line 12, near "while"
>а Perl есть?
>для проверки - в командной строке: which perl
>я на Перле писала
>
>#!/usr/local/bin/perl use IO::Socket;
>$file="место, куда кладем на нашем сервере";
>$doc="адрес документа на удаленном сервере, например /qq.txt";
>$remote = IO::Socket::INET->new (Proto=>"tcp",
> PeerAddr=>"их адрес",
> PeerPort=>"их порт",
>
>
> )
>or die "ошибка";
>print $remote "GET $doc HTTP/1.0\n\n"; # запрос
>
>#открываем файл на запись
>open(QQ, ">$file")|| die("cannot print to data's file $file");
>while (<$remote>)
> {
> if($_ eq "\n") {$start=1;}
> if($start==1)
> { #chomp();
> $m=$_; # ну, я там
>дальше на ходу редактирую файл,
>
> # а то можно обойтись $_
> print QQ $m || die("cannot write to
>file");
> }#fi
> }
>close (QQ); # закрыли наш файл
>close $remote; # закрыли соединение
>
кстати, не в курсе что бы это значило? запускаю dbx, он пишет что какие то лицензии не найдены:
Valid license for one of the following required.
Product OSF-DEVTK (Developer's Toolkit): No license found.
Product OSF-DEVTK-USER (Developer's Toolkit Concurrent Use): No license found.
Product OSF-DEVTK-G (Developer's Toolkit Type G): No license found.
Product OSF-DEV (Developer's Extensions): No license found.
Product OSF-DEV-USER (Developer's Extensions Concurrent Use): No license found.
Product OSF-DEV-G (Developer's Extensions Type G): No license found.
No valid license found in non-kernel debug mode; dbx exits.
Чем еще можно отдебажить кроме dbx, gdb ddd, xxgdb?
Ladebug блин тоже пишет че то про лицензии :(
Вариант для распечатки
OpenNET: Виртуальная конференция (Public)
on
11-Янв-03, 01:18 (MSK)
