Help for this page
my $param = "$ARGV[0]";
my ($param,$dir,$newWidth,$newHeight,$newQuality)= @ARGV;
my @tmp = split(/\\/,$0); my $name = $tmp[-1];
croak "Wrong number of parameters at" unless @_ == 3;
my ($file, $newWidth, $newHeight) = @_;
open(JPEG,">new$file")
if (-f $dir) { changesize ($dir ... } else { # do the loop
my @onlyFiles= grep {{-f "$dir/$_" and /jpe?g$/} readdir(DIR);
www.com | www.net | www.org
No recent polls found