Help for this page

Select Code to Download

Select or download this

open FILE2, "+>file2.txt" or die "Cant not open file2.txt!";
my $line;
...
{
        print FILE2 $line;
}

Select or download this

Open(FILE, “file1.txt”)
@theFile = <FILE>;