Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    # \152\165\163\164 \141\156\157\164\150\145\162 \120\145\162\154 \150\
    +141\143\153\145\162\54
    
    # \40 gives character 32, the space.
    
  2. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
            undef $thumbdir, $imagedir;
    }