Help for this page

Select Code to Download


  1. or download this
    >perl -wle"${\"} = eval qq[\"$ARGV[0]\"]; my @a = 1 .. 10; print \"@a\
+"" \t
1       2       3       4       5       6       7       8       9     
+  10
  2. or download this
    #! perl -slw
use strict;
...
__END__
P:\test>test.pl \t
1       2       3       4       5       6       7       8       9     
+  10
  3. or download this
    >perl -wle"${\"} = chr $ARGV[0]; my @a = 1 .. 10; print qq[@a]" 9
1       2       3       4       5       6       7       8       9     
+  10
...

>perl -wle"${\"} = chr oct $ARGV[0]; my @a = 1 .. 10; print qq[@a]" 11
1       2       3       4       5       6       7       8       9     
+  10