Есть файл users где в столбик записаны ники юзеров, надо прочитать этот файл и вывести в другой файл так:

ник_юзера1 TEST
ник_юзера2 TEST
ник_юзера3 TEST

тоесть также вывести в столбик, только добавить слово TEST возле каждого ника?
вот написал скрипт но он неправильно выводит :( ОС freebsd

#!/usr/bin/perl
open(F,"users");
while(<F>)
  {
$tuz=$_;
push(@mas,$tuz);
undef $tuz;
}
close(F);
open(FILE,">users.txt");
foreach $ss(@mas)
    {
print FILE "$ss TEST";
}
close(FILE);

• Скрипт не работает :(,Brainbug, 13:54 , 21-Сен-04
• Скрипт не работает :(,Maxim Kuznetsov, 16:12 , 21-Сен-04

>Есть файл users где в столбик записаны ники юзеров, надо прочитать этот
>файл и вывести в другой файл так:
>
>ник_юзера1 TEST
>ник_юзера2 TEST
>ник_юзера3 TEST
>
>тоесть также вывести в столбик, только добавить слово TEST возле каждого ника?
>
>вот написал скрипт но он неправильно выводит :( ОС freebsd
>
>#!/usr/bin/perl
>open(F,"users");
>while(<F>)
>  {
>$tuz=$_;
>push(@mas,$tuz);
>undef $tuz;
>}
>close(F);
>open(FILE,">users.txt");
>foreach $ss(@mas)
>    {
>print FILE "$ss TEST";
>}
>close(FILE);
Samij prostoi bez vsakih provekor i t.d.:
#!/usr/local/bin/perl -w
$srcf=$ARGV[0];
$dstf=$ARGV[1];

open SFH,"<",$srcf || die "Can't open $srcf file";
open DFH,">",$dstf || die "Can't open $dstf fil";
while (<SFH>){
        chomp;
        s/\n//;
        printf DFH "$_ TEST\n";
}
close DFH || die "Can't close $dstf file";
close SFH || die "Can't close $srcf file";
exit 0;

>Есть файл users где в столбик записаны ники юзеров, надо прочитать этот
>файл и вывести в другой файл так:
>
>ник_юзера1 TEST
>ник_юзера2 TEST
>ник_юзера3 TEST
>
>тоесть также вывести в столбик, только добавить слово TEST возле каждого ника?
>
>вот написал скрипт но он неправильно выводит :( ОС freebsd
>
>#!/usr/bin/perl
>open(F,"users");
>while(<F>)
>  {
>$tuz=$_;
>push(@mas,$tuz);
>undef $tuz;
>}
>close(F);
>open(FILE,">users.txt");
>foreach $ss(@mas)
>    {
>print FILE "$ss TEST";
>}
>close(FILE);

есть ещё такие команды в textutils как cut и paste - очень рекомендую изучить, чтобы не множить инсталяции perl и прочих монстров

Учите мат.часть !