Help for this page

Select Code to Download


  1. or download this
    print for map{
    unpack 'x255A*', $_
...
    ( my $x = $_ ) =~ s[(\d+)]{ pack 'N', $1 }ge;
    pack 'a255a*', $x, $_;
} <DATA>;
  2. or download this
    #! perl -sw
use strict;
...
test69.something-14-1
test60.something-14-1
  3. or download this
    c:\test>junk
test60.something-1-14
...
text3
text10
text11