in reply to Re^4: Seperating individual lines of a file
in thread Seperating individual lines of a file

There may be a more elegant solution, but graff's code works if you change the line:

print $outfh{$host} $data;

to:

my $fh = $outfh{$host};
print $fh $data;

[download]

dave

In Section Seekers of Perl Wisdom