Developing.ru

Код: Выделить всё

        foreach  $fname(@fnames) {
                open (f, ">>$fname) or die $!;
                print f  @ftext;
                close(f);
        }

Код: Выделить всё

        $lengthNames = scalar(@fnames);

        if ($lengthNames == scalar(@ftext)){
            for ($i=0; $<$lengthNames; $i++) {
                open (f, ">>$fname[$i]) or die $!;
                print f  $ftext[$i];
                close(f);
            }
        }