知识屋:更实用的电脑技术知识网站
所在位置:首页 > 操作系统 > linux

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

发布时间:2014-09-05 14:33:35作者:知识屋

linux下修改并当前目录下图像文件并删除
 
Linux下;
 
需要安装 Image Magick。
 
仅供参考,注意安全。
 
使用时注意修改。
 
01
#!/usr/bin/perl
02
# change image size
03
use strict;
04
use warnings;
05
 
06
# get files to be modified
07
print "Image Format(jpg or JPG or else): ";
08
chomp(my $format = <STDIN>);
09
my @files = glob "*.$format";
10
 
11
my $filename;
12
for (@files) {
13
    # file name
14
    $filename = /(/d+/.jpg)/i ? $1 : "1_$_";
15
 
16
    # change size
17
    system "convert -sample 25%x25% '$_' $filename";
18
 
19
    print "converting $_ .../n";
20
}
21
print "Convert finished!/n/nRemove files:/n@files...??????????????????/n/nYes or No?: ";
22
chomp(my $choice = <STDIN>);
23
 
24
if ($choice =~ /^y/i) {
25
    foreach (@files) {
26
        system "rm '$_' -v";
27
    }
28
} else {
29
    print "OK, I won't delete them. Bye!/n";
30
    exit;
31
}
32
 
33
print "Done!/n";
 
(免责声明:文章内容如涉及作品内容、版权和其它问题,请及时与我们联系,我们将在第一时间删除内容,文章内容仅供参考)
收藏
  • 人气文章
  • 最新文章
  • 下载排行榜
  • 热门排行榜