Народ, как перенаправить ввод с клавиатуры в файл?Как скачать файл по http?
>Народ, как перенаправить ввод с клавиатуры в файл?
cat > имя_файла
вводишь текст
ctrl-D - конец ввода
>Как скачать файл по http?
ну, lynx-ом, например или какой-нибудь простенький скрипт, если нужно программно. Но в любом случае для этого файл должен лежать на web-сервере
>>Как скачать файл по http?
>ну, lynx-ом, например или какой-нибудь простенький скрипт, если нужно программно. Но в
>любом случае для этого файл должен лежать на web-сервере
Забыл сказать, система Digital UNIX 4.0. файл на веб-сервере, lynx-a нету, рута нету, поставить ничего не могу. Скриптик кинь?
а 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; # закрыли соединение
Да, перл есть, но он пишет> 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 блин тоже пишет че то про лицензии :(
>Да, перл есть, но он пишет
>
>> perl dl.pl
>syntax error at dl.pl line 12, near "while"
скорее всего ошибка раньше.>>
>>#!/usr/local/bin/perl use IO::Socket;
На самом деле в 2 строки:
#!/usr/local/bin/perl
use IO::Socket;
(это я при copy-paste лопухнулась)
Кроме того как ты вводил текст кода?
Если тоже скопировать-вставить, и при этом еще какая-нибудь windows-машина была задействована (хоть моя ;) ), то могут быть проблемы с концами строк (windows-unix).
Вот я кидаю сюда http://www.bio.pu.ru/~mar/getinformer полный текст реально работающей программки. Там, естественно, много лишнего, т.к. писалось для вполне определенных целей (скачивается определенный файл с определенного сервера в определенное место и редактируется)
Но проблемы с концами строк при коприровании может остаться, надо править>
>кстати, не в курсе что бы это значило? запускаю dbx, он пишет
>что какие то лицензии не найдены:
>Чем еще можно отдебажить кроме dbx, gdb ddd, xxgdb?
>Ladebug блин тоже пишет че то про лицензии :(
Если честно, я вообще не знаю, что именно они дебагают :) Не объяснишь?
>Вот я кидаю сюда http://www.bio.pu.ru/~mar/getinformer полный текст реально работающей программки. Там, естественно,
>много лишнего, т.к. писалось для вполне определенных целей (скачивается определенный файл
>с определенного сервера в определенное место и редактируется)
>Но проблемы с концами строк при коприровании может остаться, надо править
Спасибо>>кстати, не в курсе что бы это значило? запускаю dbx, он пишет
>>что какие то лицензии не найдены:
>>Чем еще можно отдебажить кроме dbx, gdb ddd, xxgdb?
>>Ladebug блин тоже пишет че то про лицензии :(
>Если честно, я вообще не знаю, что именно они дебагают :) Не
>объяснишь?
Дебагают проги различные ;-) Кто то с целью избавления от глюков, кто то в более других целях.
>Народ, как перенаправить ввод с клавиатуры в файл?cat > file.txt
>Как скачать файл по http?
wget http://www.filehost.dom/file.zip
Где- то так.
>>Как скачать файл по http?
>wget http://www.filehost.dom/file.zip
нету этого :(>wget
wget: not found