Help for this page

Select Code to Download


  1. or download this
    ken@ganymede: ~/local/bin
$ perl -Mstrict -Mwarnings -E 'my $s = "foo bar baz qux 3 3 1 3"; my @
+a = split /\s/, $s; splice(@a, 0, 4); while (@a) { print (shift @a), 
+(shift @a), "\n"; }'
...
) in void context at -e line 1.
31ken@ganymede: ~/local/bin
$
  2. or download this
    ken@ganymede: ~/local/bin
$ perl -Mstrict -Mwarnings -E 'my $s = "foo bar baz qux 3 3 1 3"; my @
+a = split /\s/, $s; splice(@a, 0, 4); while (@a) { print +(shift @a),
+ (shift @a), "\n"; }'
...
13
ken@ganymede: ~/local/bin
$