«

I just started with Perl after programming in Python for many years and
I must say it is driving me friggin nuts. For instance why does the
first method of printing the number of elements in an array work but
the second prints nothing?

print $temp = @fields;

$temp = @fields;
print $temp

Thanks,
Derek Basch

"Derek Basch" <> writes:
> I just started with Perl after programming in Python for many years and
> I must say it is driving me friggin nuts. For instance why does the
> first method of printing the number of elements in an array work but
> the second prints nothing?

Assuming you put

my @fields = qw/one two three/;

> print $temp = @fields;
>
> $temp = @fields;
> print $temp

This works fine. Both print statements output '3'. Of course, you
didn't put a newline between them, so you'll see '33' on your screen,
but that's a technicality of output.

-=Eric

Ahhh. Found it. I had not put a line terminator after:

print $temp

It should have been:

print $temp;

Now I get an integer either way.

Thanks,
Derek

Marc Dashevsky <> wrote:

> use warnings;
> use strict;
>
> my @fields = (0..;
> my $temp;
>
> print $temp = @fields, "\n";
> $temp = @fields;
> print $temp, "\n";

how about print scalar( @fields), "\n"; ?

--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/

Thanks for the replies everyone!

Derek Basch

Derek Basch wrote:
> Ahhh. Found it. I had not put a line terminator after:
>
> print $temp
>
> It should have been:
>
> print $temp;
>
> Now I get an integer either way.

There is no need to put a semicolon after a Perl statement. It's not a
terminator, it's a separator. Was this perhaps not the last line in
your code?

Note: you should get into the habit of putting "use strict'" and "use
warnings" at the top of even the simplest script. Doing so would
probably have caused Perl to higlight your error. In this case it
would probably have got upset that you were trying to use the string
"3" in a context where a file handle was exepected and said...

Can't use string ("3") as a symbol ref while "strict refs" in use

Without "use strict" Perl will silently convert the string "3" into a
reference to a filehandle called 3 and you'd get a warning...

print() on unopened filehandle 3

Without "use warnings" either Perl will silently discard output sent to
an unopened file handle.