Hi all:

   I have an input file with the following format
1 2 3
4 5 6
7 8 9

   I wish to input it into an array.

   I am not sure how Perl do it. I need help on this.
Huang
Thanks in advance.

those aren't the results that you want.  those are array slices -
somthing completely different (but it's not time for that yet).

how about multi-dimensional arrays, as discussed in the perldsc
man page?

   $matrix[$m][$n] = $value; #and so on.

good luck :)

--

CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers Travel Deals! <URL:http://www.pm.org/travel.html>

And, of course, there's always the perl4 hack using hashes:

        $x{1,1} = 1;
        ...
        $x{3,3} = 9;

This is somewhat slower than real 2-D arrays, but I keep finding that
it's fast enough for most purposes, and it's more readable.  You also
don't have to worry about making sure that the first-level vectors have
been allocated.  And for sparse arrays it often uses far less memory.

You seem to be off to a good start.  You do a lot of things right:
checking the return value of open, using my variables, etc.

A few comments...

  $lastcol = $col if $col > $lastcol;

while (defined($line = <FILE>)) {

Just in case the file ends with a zero on a line by itself and no
newline.  :-)

If the line already contained a comment, you have just obliterated the
contents of $line.  Consider: "foo # comment\n#" (with $commentch
already appended).  /.*$commentch/ will match 'foo #' at the beginning
of the string, so $` is the null string.

If you want to strip comments, try this:
s/$commentch.*//;

By the way, $` and kin should be avoided, as they slow down every regex
in the script.

You're actually returning the array itself, rather than a pointer.  (And
Perl has references instead of pointers.)  But you're probably just
mixing in C terminology.

1; # works too

--


    /                                  http://www.ziplink.net/~rjk/
        "It's funny 'cause it's true ... and vice versa."