Help for this page
$self->foo(); foo($self);
package A; ... object B call to bar(): $self->foo() = B foo( $self ) = A
($x) = foo(); $x = foo();
my @foo_subs = ( 'sub { return ( 4, 5, 6 ) }', 'sub { my @x = ( 4, 5, 6 ); return @x; }', ... foo = sub { wantarray ? ( 7 ) : 8 } ($x) = 7 $y = 8
for ( @x ) { foo( $_ ) } map { foo( $_ ) } @x;
sub foo { my $wa = wantarray; ... map{foo()} @x: array array
sub baz { return 11 unless shift } print 'baz(5): ', baz(5), "\n"; print 'baz(0): ', baz(0), "\n";
baz(5): 5 baz(0): 11
my $FOO = 'foo'; sub bar { $_[0] = 'bar' } ... print $FOO, "\n"; print bar( $FOO ), "\n"; print $FOO, "\n";
foo bar bar
for my $s ( qw( a b c ) ) { $s =~ s/$/\n/ && print $s }
Modification of a read-only value attempted at interview.pl line
www.com | www.net | www.org
No recent polls found