[snip]
> open (INFILE, "<mailfile1")
> or die "Error opening mailfile1.$!,stopped";
> @array = <INFILE>;
> close(INFILE);
> open (OUTFILE, ">>mailfile2")
> or die "Error opening mailfile2.$!,stopped";
> print OUTFILE "@array";
> close(OUTFILE);
You've forgotten to remove trailing whitespaces....
do this:
....
foreach my $i (@array) {
chomp $i;
print OUTFILE "$i\n";
}
....
and see what it looks like.... should be a bit better, methinks..
//Anders//
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
