|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Leonid Subbotin 2:5007/16.1 16 Nov 2000 02:13:49
To : Kozachenko Alexey
Subject : Как считать последнюю строчку файла?
--------------------------------------------------------------------------------
KA> Hарод, каким образом можно считать последнюю строчку файла?
KA> Можно обычным способом
KA> типо этого
KA> while (<FILEHANDLER>) {
KA> if (eof())
KA> $text = $_;
KA> }
KA> }
если читая в память, то:
@_=<FILE>;
$lastline=@_[-1];
если не читая файл в память, то:
while(<FILE>){$pos=tell(FILE) unless eof(FILE)}
seek(FILE,$pos+1,0);
$lastline=<FILE>;
Всегда с вами Sln !
--- GoldED+/W32 1.1.4
* Origin: Sln Station (2:5007/16.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
