ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Igor Moskin                          2:5020/400     09 Jan 2004  14:16:42
 To : Andrew Alakozow
 Subject : Re: file-handle
 -------------------------------------------------------------------------------- 
 

 
         Hе совсем ясно почему знак доллар "$" на второй итерации "потерялся"
 А на первой все и без него было замечательно.
 Еще интересно почему в оригинальном коде fileno(INF) отдает номер 3
 Это когда еще ничего не открыто. 
 Если перед главным циклом открою еще один файл:
 .........
 open (outf,">my_out_file.txt");
 while( $i<100 ) {
 .......
 
 То fileno(INF) отдаст номер 4 - то есть следующий.
 Система FreeBSD 5.1
 Perl v5.6.1
 Andrew Alakozow wrote:
 
 > 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
 
 -- 
 
         
 
 --- ifmail v.2.15dev5.1
  * Origin: ISP ElCat. Bishkek. Kyrgyzstan. (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Re: file-handle   Igor Moskin   09 Jan 2004 14:16:42   Re: file-handle   Yury Kopyl   09 Jan 2004 14:44:39   file-handle   Vitaly Gorohov   09 Jan 2004 15:49:00   Re: file-handle   Igor Moskin   09 Jan 2004 16:10:15