Get array size in Perl
Answer:
To get the size of array in Perl, you have two methods.
Sample code:
my @a = (1, 2, ,3);
1. By scalar context
my $size = scalar @a;
2. By special variable $#array
my $size = $#a + 1;
Linux Ask! is a Q & A web site specific for Linux related questions. Questions are collected, answered and audited by experienced Linux users.
Get array size in Perl
Answer:
To get the size of array in Perl, you have two methods.
Sample code:
my @a = (1, 2, ,3);
1. By scalar context
my $size = scalar @a;
2. By special variable $#array
my $size = $#a + 1;
How to print the current stack backtrace in Perl?
Answer:
To print out the current stack backtrace in Perl, just insert the following code in your script and it will print out the stuff you need.
use Carp qw(cluck);
cluck "This is how we got here!";
New way to print in Perl6
Answer:
In Perl 6, you can use the new syntax say to print out string in Perl.
say 'hello';
But they are also valid under Perl 5.10 or 5.12, if you add
use feature qw(say);
How to convert hash to array in Perl?
Answer:
It is easy to convert hash to array in Perl.
The following code extracted all values from a hash and save into an array.
my @a = values %h;
How to print out Perl opcodes?
Answer:
If you want to have a deep understanding on how Perl execute your statements, you can try the following:
# perl -MO=Concise -e ' print "foo\n" '
6 <@> leave[1 ref] vKP/REFC ->(end)
1 <0> enter ->2
2 <;> nextstate(main 1 -e:1) v:{ ->3
5 <@> print vK ->6
3 <0> pushmark s ->4
4 <$> const[PV "foo\n"] s ->5
-e syntax OK