I figured it out
$item2save{'cpu01'} = IO::File->new("> cpu01.out");
$item2save{'cpu02'} = IO::File->new("> cpu02.out");
$item2save{'cpu03'} = IO::File->new("> cpu03.out");
...
print { $item2save{ $itemfound } } <stuff to write to the respective file>
where $itemfound can have the values that match the keys in the
%item2save hash ...
sorry to bug the list
-pete
On Mon, Mar 5, 2012 at 10:48 AM, Benjamin Foote <[email protected]> wrote:
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> my $logfile = $ARGV[0];
>
> open (LOG, $logfile) or die "can't open $logfile: " . $!;
>
> while (my $line = <LOG>) {
> chomp($line);
> my @cols = split /\s+/, $line;
> my $cpufile = shift @cols;
> open (OUT, ">> " . $file") or die "can't open $cpufile: " . $!;
> print OUT join " ", @cols;
> close OUT;
> }
>
> Benjamin Foote
> http://pdxstump.com - a search engine and news aggregator for Portland
> http://bnf.net - Linux and Java Consulting
> [email protected]
> 503-313-5379
> @pdxstump on twitter
>
>
>
> On Mon, Mar 5, 2012 at 10:26 AM, Pete Lancashire
> <[email protected]>wrote:
>
>> my brain this morning is blocked on this one
>>
>> I have a data file
>>
>> cpu01 value value value
>> cpu02 value value value
>> cpu03 value value value
>> ...
>> cpu01 value value value
>> cpu02 value value value
>> cpu03 value value value
>> ...
>> cpu01 value value value
>> cpu02 value value value
>> cpu03 value value value
>> ...
>>
>> column 1 can be cpu\d+ and cpu_all
>>
>> I want to open files for writing, one for each unique value in the first
>> column.
>> so that if the value f the data in the first column is "cpu01" then
>> write to the file
>> with the FH of $cpu01
>>
>> This has to be simple ...
>>
>> -pete
>> _______________________________________________
>> PLUG mailing list
>> [email protected]
>> http://lists.pdxlinux.org/mailman/listinfo/plug
>>
> _______________________________________________
> PLUG mailing list
> [email protected]
> http://lists.pdxlinux.org/mailman/listinfo/plug
_______________________________________________
PLUG mailing list
[email protected]
http://lists.pdxlinux.org/mailman/listinfo/plug
