>
> However I think it's more likely that you need /all/ of the data to be
> output, so I suggest something like my program below.
>
> HTH,
>
> Rob
>
>
> use strict;
> use warnings;
>
> my @headers;
>
> while (<DATA>) {
> if (@headers) {
> my @data = split;
> for my $i (0 .. $#headers) {
> printf "%s=%s\n", $headers[$i], $data[$i];
> }
> }
> else {
> @headers = split;
> }
> }
>
>
> __DATA__
> csno rfpi header_1 header_2 header_3 header_4 header_5 header_6
> header_7 header_8 header_9
> 1 1 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5
> 2 2 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5
> 3 3 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5
> 4 1 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5
> 5 2 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5
> 6 3 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5
> 7 1 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5
> 8 2 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5
> 9 3 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5
> 10 1 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5
> 11 2 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5
> 12 3 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5
>
> **OUTPUT**
>
> csno=1
> rfpi=1
> header_1=5.5
> header_2=5.5
> header_3=5.5
> header_4=5.5
> header_5=5.5
> header_6=5.5
> header_7=5.5
> header_8=5.5
> header_9=5.5
> csno=2
> rfpi=2
> header_1=5.5
> header_2=5.5
> header_3=5.5
> header_4=5.5
> header_5=5.5
> header_6=5.5
> header_7=5.5
> header_8=5.5
> header_9=5.5
> csno=3
> rfpi=3
> header_1=5.5
> header_2=5.5
> header_3=5.5
> header_4=5.5
> header_5=5.5
> header_6=5.5
> header_7=5.5
> header_8=5.5
> header_9=5.5
> csno=4
> rfpi=1
> header_1=5.5
> header_2=5.5
> header_3=5.5
> header_4=5.5
> header_5=5.5
> header_6=5.5
> header_7=5.5
> header_8=5.5
> header_9=5.5
> csno=5
> rfpi=2
> header_1=5.5
> header_2=5.5
> header_3=5.5
> header_4=5.5
> header_5=5.5
> header_6=5.5
> header_7=5.5
> header_8=5.5
> header_9=5.5
> csno=6
> rfpi=3
> header_1=5.5
> header_2=5.5
> header_3=5.5
> header_4=5.5
> header_5=5.5
> header_6=5.5
> header_7=5.5
> header_8=5.5
> header_9=5.5
> csno=7
> rfpi=1
> header_1=5.5
> header_2=5.5
> header_3=5.5
> header_4=5.5
> header_5=5.5
> header_6=5.5
> header_7=5.5
> header_8=5.5
> header_9=5.5
> csno=8
> rfpi=2
> header_1=5.5
> header_2=5.5
> header_3=5.5
> header_4=5.5
> header_5=5.5
> header_6=5.5
> header_7=5.5
> header_8=5.5
> header_9=5.5
> csno=9
> rfpi=3
> header_1=5.5
> header_2=5.5
> header_3=5.5
> header_4=5.5
> header_5=5.5
> header_6=5.5
> header_7=5.5
> header_8=5.5
> header_9=5.5
> csno=10
> rfpi=1
> header_1=5.5
> header_2=5.5
> header_3=5.5
> header_4=5.5
> header_5=5.5
> header_6=5.5
> header_7=5.5
> header_8=5.5
> header_9=5.5
> csno=11
> rfpi=2
> header_1=5.5
> header_2=5.5
> header_3=5.5
> header_4=5.5
> header_5=5.5
> header_6=5.5
> header_7=5.5
> header_8=5.5
> header_9=5.5
> csno=12
> rfpi=3
> header_1=5.5
> header_2=5.5
> header_3=5.5
> header_4=5.5
> header_5=5.5
> header_6=5.5
> header_7=5.5
> header_8=5.5
> header_9=5.5
>
> Tool completed successfully
>
>
>
>
This program does all I need it to do. I am having some difficulty
wrapping my head around it though. Mainly the for loop. Did Rob use
special varible?
If any one can explain it to me so I can have a better understanding
that would be great!
Thanks,
Chris
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
