Страница 1 из 1

Ввод-Вывод в Файл из Perl on NW5.1 = неполучается

СообщениеДобавлено: 03 авг 2002, 11:36
skoltogyan
Неполучается создать обычный файл на томе из Perl.
Делаю так:
#!/sys/perl/lib
use strict;
my $t="DDD\n";
my $t1="sys://1//test.txt";
open FL, "$t1";
print FL $t;
close (FL);
exit(0);

Файл несоздается. Даже если файл создал руками -в него не пишется.

Посоветуйте.
P.S. - знакомство с перлом у меня в зачаточном состоянии..: )

СообщениеДобавлено: 03 авг 2002, 12:00
Михаил Григорьев
Ой skoltogyan что то вы понаписали не так:

Во первых #!/sys/perl/lib можно не писать....

print "Content-type: text/html\n\n";
open (FILE1,">>sys:perl/web/1.log");
print FILE1 "Remote IP:",$ENV{'REMOTE_ADDR'},"\n";
print "OK....";
close(FILE1);

Всё просто....

Спасибо, полегчало : ) - неписал: >> и >

СообщениеДобавлено: 03 авг 2002, 14:04
skoltogyan
Спасибо, полегчало : ) - неписал: >> и >