Perl: Dimensional Lists - Printing an Entire Row from a Two-Dimensional List
(Page 3 of 4 )
As you can see, printing out an entire row could prove to be a pain in the butt for larger databases. Imagine what would happen if we had a database where we stored a person's first, middle, and last name, along with their pay rate, Social Security number, address, phone number, and so forth. Printing a single row would be quite an ordeal:
#!/usr/bin/perl
@StuporHeroes = (
[' Mount Tittikanaka ', ' Man-Girl ', ' Is a good listener ', ' Has
Man-Boobs '],
[' Trailer Park ', ' Deaf Leapard ', ' Has a super sonic guitar ', '
Is deaf and has one arm making him unable to play his guitar ']
);
print "\n\n";
print $StuporHeroes[0][0] . $StuporHeroes[0][1] . $StuporHeroes[0][2] .
$StuporHeroes[0][3];
There is an easier way, however:
#!/usr/bin/perl
@StuporHeroes = (
[' Mount Tittikanaka ', ' Man-Girl ', ' Is a good listener ', ' Has
Man-Boobs '],
[' Trailer Park ', ' Deaf Leapard ', ' Has a super sonic guitar ', '
Is deaf and has one arm making him unable to play his guitar ']
);
print "\n\n";
print @{@StuporHeroes[0]};
Though it looks weird in code, the line print @{@StuporHeroes[0]} simply says to print the list values that are in @StuporHeroes, from the row listed in the square brackets [].
This gives us the result:
Mount Tittikinaka Man-Girl Is a good listener Has Man-Boobs
There is no simple way to print a bunch of columns in the same manner.
Next: Using Two-Dimensional Lists to Create Variables and Lists >>
More Perl Articles
More By James Payne
