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 diruse strict;use warnings;my @array = `ls`;my $i = 0

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

总结

以上是内存溢出为你收集整理的perl 迭代目录下所有文件更名全部内容，希望文章能够帮你解决perl 迭代目录下所有文件更名所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。