Linux下；

需要安装 Image Magick。

仅供参考，注意安全。

使用时注意修改。

#!/usr/bin/perl# change image sizeuse strict;use warnings;# get files to be modifiedprint "Image Format(jpg or JPG or else): ";chomp(my $format = 
    
     );my @files = glob "*.$format";my $filename;for (@files) {	# file name	$filename = /(\d+\.jpg)/i ? $1 : "1_$_";	# change size	system "convert -sample 25%x25% '$_' $filename";	print "converting $_ ...\n";}print "Convert finished!\n\nRemove files:\n@files...??????????????????\n\nYes or No?: ";chomp(my $choice = 
     
      );if ($choice =~ /^y/i) {	foreach (@files) {		system "rm '$_' -v";	}} else {	print "OK, I won't delete them. Bye!\n";	exit;}print "Done!\n";