Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl --
    use strict; use warnings;
    ...
        return @fromTo;
    }
    __END__
    
  2. or download this
    Unknown suffix (.txt) ignoring(err/error.txt) at - line 41.
    
    ...
    
    rename ["blah/bar.xml", "blah/3.xml"]
    
  3. or download this
            my $transform = "";
            $transform = \&transformJpg if  $suffix =~ /^\.(jpe|jpg|jpeg)/
    +i ;
    ...
        }
        return @fromTo;
    }
    
  4. or download this
    sub transformJpg {
        dd transformJpg => \@_ ;
    ...
        return "$dir$idx$suffix";
        return $path;
    }