Help for this page

Select Code to Download


  1. or download this
    $imagename =~ s/^(.*?)(\.\w*)$/my $temp = $2; ($_ = $1) =~ s!\W!_!g; $
+_ .= $temp/e;
  2. or download this
    #! perl -sw
use strict;
...
J.R,ewing.jpg
A¬!£$%^&*()-_+={}[]'@;:~\#\"<>,./|\?.jpg
pic.
  3. or download this
    C:\test>199139
me_swimming.jpg
...


C:\test>