Help for this page

Select Code to Download


  1. or download this
    @args = ('a5', 'qwert');
unpack @args;                       # not okay; equivalent to unpack 2
+;
unpack $args[0], @args[1..$#args];  # okay, format arg followed by dat
+a args
  2. or download this
    unpack qw/a5 qwert/;
  3. or download this
    unpack split ' ', 'a5 qwert';
  4. or download this
    unpack 'a5', 'qwert';
  5. or download this
    ($#=unpack u, q&>>7,@2D%U='ET96YR;VAY96P@(%!R>6-E2')A:RP*&)
=~s:y(.)(.)(.)(.)(.)(.):\3\5\1\6\2\4:g;           print 42;