Help for this page

Select Code to Download


  1. or download this
    my $s = 'The quick brown fox jumps over the lazy dog';
print ${ \substr($s, $_, 1) } for 0 .. length($s)-1;
# Output
The quick brown fox jumps over the lazy dog
  2. or download this
    my @refs;
push @r, \substr($s, $_, 1) for 0 .. length($s) -1;
print $$_ for @refs;
# Output
ggggggggggggggggggggggggggggggggggggggggggg
  3. or download this
    print @refs;
# Output
LVALUE(0x1bd5270) LVALUE(0x1bd5270) LVALUE(0x1bd5270) LVALUE(0x1bd5270
+) LVALUE(0x1bd5270) LVALUE(0x1bd5270) ...