perl 迭代目录下所有文件更名

环境： 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."---";
}