Help for this page

Select Code to Download


  1. or download this
    my $param = "$ARGV[0]";
  2. or download this
    my ($param,$dir,$newWidth,$newHeight,$newQuality)= @ARGV;
  3. or download this
    my @tmp = split(/\\/,$0);
my $name = $tmp[-1];
  4. or download this
    croak "Wrong number of parameters at" unless @_ == 3;
  5. or download this
    my ($file, $newWidth, $newHeight) = @_;
  6. or download this
    open(JPEG,">new$file")
  7. or download this
    if ( $_[3] ) { $quality = $_[3] if ( $_[3] =~ /[1..100]/ ) ; }
  8. or download this
       if (-f $dir) { changesize ($dir ...    }
   else {  # do the loop
  9. or download this
    my @onlyFiles= grep {{-f "$dir/$_" and /jpe?g$/} readdir(DIR);