On Fri, Mar 23, 2012 at 10:20 AM, John W. Krahn <[email protected]> wrote:
> John W. Krahn wrote:
>>
>>
>> $ echo "Hr 12
>> 0001 2
>> 0002 3
>> 0003 1
>> Hr 13
>> 0001 2
>> 0002 3
>> 0003 1
>> Hr 14
>> 0001 2
>> 0002 3
>> 0003 1" | perl -e'
>>
>> my ( @hours, %data );
>> while ( <> ) {
>> push @hours, $1 if /^hr\s*(\d+)/i;
>> $data{ $1 }{ $hours[ -1 ] } = $2 if /^(\d+)\s+(\d+)/;
>> }
>>
>> print join( "\t", "", @hours ), "\n";
>> for my $row ( sort { $a <=> $b } keys %data ) {
>> print $row;
>> for my $col ( sort { $a <=> $b } keys %{ $data{ $row } } ) {
>> print "\t$data{$row}{$col}";
>> }
>> print "\n";
>> }
>> '
>> 12 13 14
>> 0001 2 2 2
>> 0002 3 3 3
>> 0003 1 1 1
>
>
> Probably better:
>
>
> $ echo "Hr 12
> 0001 2
> 0002 3
> 0003 1
> Hr 13
> 0001 2
> 0002 3
> 0003 1
> Hr 14
> 0001 2
> 0002 3
> 0003 1" | perl -e'
>
> my ( @hours, %data );
> while ( <> ) {
> push @hours, $1 if /^hr\s*(\d+)/i;
> $data{ $1 }{ $hours[ -1 ] } = $2 if /^(\d+)\s+(\d+)/;
> }
> print join( "\t", "", @hours ), "\n";
> for my $row ( sort { $a <=> $b } keys %data ) {
> print $row;
> for my $col ( @hours ) {
>
> print "\t$data{$row}{$col}";
> }
> print "\n";
> }
> '
> 12 13 14
> 0001 2 2 2
> 0002 3 3 3
> 0003 1 1 1
>
>
Here I use:
push @hours, $1 if(/Hr\b(.*)\b/) ;
$data{$1}{$hours[-1]} = $2 if(/\b(.+)\b(.*)\b/);
it reported, how can I fix it:
$ perl calen.pl
12 13 14
Argument "0003 1" isn't numeric in sort at calen.pl line 23, <$_[...]> line 12.
Argument "0002 3" isn't numeric in sort at calen.pl line 23, <$_[...]> line 12.
Argument "0001 2" isn't numeric in sort at calen.pl line 23, <$_[...]> line 12.
Argument "Hr 12" isn't numeric in sort at calen.pl line 23, <$_[...]> line 12.
Argument "Hr 13" isn't numeric in sort at calen.pl line 23, <$_[...]> line 12.
Argument "Hr 14" isn't numeric in sort at calen.pl line 23, <$_[...]> line 12.
Hr 12 Hr 13 Hr 14 0001 2 0002 3 0003 1l
>
Thanks,
>
>
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
