Re: Refining my Program

Since I am not the best at one liners, I would have done it: <meta name="Generator" content="Vim/6.0"> </head> <body bgcolor="#000000" text="#ffffff">

use struct;

my $first;
my $last;

open  (INPUT,'>test.txt') || die "Can't open Test.txt";
open (OUTPUT, '<testb.txt') || die "Can't open Testb.txt";
while (<INPUT>){
    ($last,$first)=split(',');
    print OUTPUT "$first , $last";
}
close INPUT;
close OUTPUT;

</body> </html>

Comment on Re: Refining my Program