ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Alakozow                      2:5061/6       09 Jan 2004  13:23:02
 To : Igor Moskin
 Subject : Re: file-handle
 -------------------------------------------------------------------------------- 
 

 IM> Поясните пожалуйста в чем дело. В доке что-то в лет
 IM> не нашлось.
 
 Знак '$' потерялся.
 
 IM> sub my_test{
 
 IM>         my $INF;
 IM>         my $fname=rand(10).".txt";
 IM>         if ( fileno(INF) ) {
 
 if ( fileno($INF) ) {
 
 IM>                 print "Handle already in use ", fileno(INF), "\n";
 
 print "Handle already in use ", fileno($INF), "\n";
 
 IM>                 exit 0;
 IM>         }
 
 IM>         print "$fname\n";
 IM>         $pid=open(INF,">$fname");
 
 $pid=open($INF,">$fname");
 
 IM> }
 
 aa29
 --- Microsoft Outlook Express 6.00.2720.3000
  * Origin: Life In The Dark (2:5061/6)
 
 

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