linux下修改当前目录下图像文件并删除

Linux下；

需要安装 Image Magick。

linux移动文件到指定目录？ 仅供参考，注意安全。

使用时注意修改。

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