в $str команда юникс:
foreach $str ( @mas1 ) {
open ( STDIN, $str );
@mas2 = <STDIN>;
close ( STDIN );
...
}
вистнет на втором шаге цикла... коментирую:
#close ( STDIN );
все работает нормально
где грабли?

• open -> close,uldus, 15:55 , 05-Июл-04
  • open -> close,jr, 17:59 , 05-Июл-04

Вместо STDIN напиши MYSTDIN или выполни close(STDIN) перед циклом.

>foreach $str ( @mas1 ) {
>open ( STDIN, $str );

open ( STDIN, $str ) or next;

>@mas2 = <STDIN>;
>close ( STDIN );
>...
>}

>Вместо STDIN напиши MYSTDIN или выполни close(STDIN) перед циклом.
>
>open ( STDIN, $str ) or next;
>

угу, понял в чем трабла...
пасиб