in reply to number of lists in array

Maybe I am misinterpreting this question, but the perlfunc:scalar function should do this for you:

use strict;

my @a = ( '1', '2', '3', '4', '5' );
print scalar @a, "\n";

[download]

 

perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'

Replies are listed 'Best First'.
Re: Re: number of lists in array
by Anonymous Monk on Nov 30, 2001 at 18:52 UTC
    Sorry if I sound dumb. Heh, that works. Would line counting in a file also work if I used foreach loops?
[reply]
      Absolutely, sample code for a line count using a foreach loop might look like this:

      $/ = "\n";
my $count;
open (FH, "myfile.text") || die "Cannot open file: $!";
$count++ foreach (<FH>);
close FH;

      [download]

       

      Update #1 - Also see the post from djw in this thread here.

      Update #2 - A piece of code designed to illustrate foreach really should use foreach and not while - Thanks Hofmator++

      Update #3 - And the snippets from Masem and davorg in this thread here and here are illustrative - Thanks especially to davorg for the $. suggestion.

       

      perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'

[reply]
[d/l]
[select]

        Of course you don't actually need to keep a count, as Perl does that for you in $..

        --
        <http://www.dave.org.uk>

        "The first rule of Perl club is you don't talk about Perl club."

[reply]
        Or, probably faster, and with the benefit of having the file read into memory: 
        my ( $count, @data );
open (FH, "myfile.txt") or die $!;
$count = scalar (@data = <FH>);
close FH;

        [download]

        -----------------------------------------------------
        Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
        "I can see my house from here!"
        It's not what you know, but knowing how to find it if you don't know that's important

[reply]
[d/l]
        Oh, and sorry to annoy you further, Rob, how does $. work? I could use the excuse that I'm living on the same side of the globe as you are...
[reply]

In Section Seekers of Perl Wisdom