in reply to indefinite number of columns
Or an array of arrays, but this would use more memory than using hashes as suggested above, which might be important if your files are very large:
-Michael#!/usr/bin/perl use strict; use warnings; my $fileName = $ARGV[0]; my $numberOfColumns = 0; my @line = (); my $lineNumber = 0; my $x = 0; my $p = 0; my @arrayOfArrays = (); my $firstTime = 0; open (FILE, "<", $fileName); while (<FILE>) { chomp; @line = split (",", $_); if ($firstTime == 0) { $numberOfColumns = @line; $firstTime = 1; } for($x = 0; $x < $numberOfColumns; $x += 1) { $arrayOfArrays[$x][$lineNumber] = $line[$x]; } $lineNumber +=1; } #to access your values: column one: $p=0, column 2: $p = 1 etc. for ($p = 0; $p < $numberOfColumns; $p += 1) { for ($x= 0; $x<$lineNumber; $x += 1) { print STDERR "$arrayOfArrays[$p][$x]\n"; } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: indefinite number of columns
by zork42 (Monk) on Jul 17, 2013 at 12:32 UTC | |
by mtmcc (Hermit) on Jul 17, 2013 at 12:54 UTC | |
by zork42 (Monk) on Jul 17, 2013 at 14:45 UTC |
In Section
Seekers of Perl Wisdom