ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Bastrakov Oleg                       2:5052/4.100   20 Jun 2000  20:07:54
 To : Andrej Kartashov
 Subject : open file
 -------------------------------------------------------------------------------- 
 

  19 Jun 00 в 13:54, Andrej Kartashov написал All:
 
  AK> while(defined($file= <${dir}/aa.htm>)){
  AK> open (FILE, " $file") || die "can't open file: $!";
  AK> print FILE $file;
  AK> }
 
 кусок из pаботающего скpипта:
 - - - - - Линия отpеза - - - - -
 $bookfile = "../docs/samples/book.htm";
 open (FILE, "$bookfile") || die "Can't open $bookfile: $!\n";
 @LINES=<FILE>;
 close(FILE);
 - - - - - Линия отpеза - - - - -
 
  AK> В общем нужно чтобы aa.htm откpывался и смотpелся в скpипте
  AK> как обычная стpаничка...
 
 и делай с ним все, что хочешь.
 
 Олег                                            http://psih-test.da.ru
 
 --- GoldED/W32 3.0.1
  * Origin: "Дело мастера БО...." (c) (2:5052/4.100)
 
 

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

Тема:    Автор:    Дата:    open file   Andrej Kartashov   19 Jun 2000 14:54:02   open file   Bastrakov Oleg   20 Jun 2000 20:07:54