ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     17 Apr 2003  15:09:10
 To : "Roman Kirjanov"
 Subject : Re: readfile
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Roman Kirjanov.
 
 RK> Hello, All!
 
 RK> В ПХП есть такая функция:
 RK> int readfile ( string filename [, int use_include_path] )
 
 RK> Reads a file and writes it to the output buffer.
 
 RK> Хочу такую и в Перль.
 
 RK> Писать
 RK> print <<'Terminate';
 RK> Текст $cool \\
 RK> Terminate
 RK> не нравится - там обычный HTML. Hадеюсь есть из совсем стандартных т.е.
 RK> если и в пакете будет через open, read, close - уж лучше сам напишу.
 
 Если use_include_path не волнует, то
 
 { open(my $fh, '<', $filename) && print <$fh> }
 
 close оно само по факту выхода $fh за пределы видимости проделает.
 
 Для поюзания @include_path - модифицировать в
 
 for (@include_path) {
   if (open(my $fh, '<', "$_/$filename")) { print <$fh>; break }
 }
 
 и тут уже лучше обернуть в функцию.
 
 -- 
 Artem Chuprina
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
 --- ifmail v.2.15dev4
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор