I am tring to use part of someones elses code that creates a data file which
prints
out like this:
ip|result|deptA|data
ip|result|deptB|data
ip|result|deptC|data
My goal instead of having all the data in one big file is to loop this and
create
a file for each result.
So I would have a deptA.out file with deptA info then a deptB.out
file with dept b info and etc.
This is not exactly doing what I need:
#!/usr/bin/perl
use strict;
my %dept = ();
while (<DATA>)
{
chomp $_;
next if ($_ eq "");
my @lines = split(/[|]/);
#$line[3] = %dept++;
$dept{$lines[2]}++;
$dept{$lines} = $value;
#print "$line";
#foreach $line (@lines) {
#print $line."\n";
#}
}
#print "@{[ %dept ]}\n";
#print "%dept";
my @array=keys(%dept);
print "All of the elements stored in %dept are @array \n";
#
__DATA__
ip|result|deptA|data
ip|result|deptB|data
ip|result|deptC|data
How would I create a file for each hash then print to it??? Any help, thanks.
Thanks,
Ron
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
