环境: perl v5.14.2
3.18.0-kali3-amd64
#/usr/perl
# author :ez
# date : 2015/8/11
# describe : rename all the file in a specified dir
use strict;
use warnings;
my @array = `ls`;
my $i = 0;
foreach my $x(@array) {
my $rename = "";
chomp $x;
$rename = (++ $i) . ".png"; # new name
`mv "$x" "$rename"`;
#$x."---";
}