|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dan Kovalchuk 2:5045/55 22 Jan 2002 10:25:13
To : Andrey Titov
Subject : Как считать файл HЕ по строкам.
--------------------------------------------------------------------------------
Sunday January 20 2002 23:40, you wrote to you:
>> > $/=undef;
AT> В общем, вот так получилось:
AT> use IO::File;
AT> $FILE = "../dir/test.htm";
AT> $fh = new IO::File "$FILE", "r";
AT> if (defined $fh) {
AT> print <$fh>;
AT> undef $fh; # automatically closes the file
AT> }
AT> autoflush STDOUT 1;
Зачем так сложно ? Если в твоей системе есть cat, то делаешь так:
$foo = `cat $file`;
Если нет, то так:
{
local(*INPUT, $/);
open (INPUT, $file) || die "can't open $file: $!";
$var = <INPUT>;
}
perldoc perlfaq.
Dan
--- FMail/Win32 1.60
* Origin: Rockin' Echo (by 2:5045/55)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
