Help for this page

Select Code to Download


  1. or download this
    my $packed = print pack 'C*', @a;
  2. or download this
    my $packed = pack 'C*', @a;
  3. or download this
    my @a = ( 0,54,28,76,126,0,28,54,62,54,0,28,54,60,48,0,54,54,62,54,0 )
+;
my $packed = pack 'C*', @a;
...

print "$packed\n";
print join ',', @unpacked;