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

Linux下;

需要安装 Image Magick。

仅供参考,注意安全。

使用时注意修改。

#!/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 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 = <STDIN>);

if ($choice =~ /^y/i) {
	foreach (@files) {
		system "rm '$_' -v";
	}
} else {
	print "OK, I won't delete them. Bye!\n";
	exit;
}

print "Done!\n";

转载于:https://my.oschina.net/u/727594/blog/133504

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值