标签：
1 #!/usr/bin/perl 2 3 $tmp = 1; 4 foreach $var(glob("*.txt")) 5 { 6 if($tmp < 10) 7 { 8 $str = ‘000‘.$tmp.‘.txt‘; 9 } 10 else 11 { 12 $str = ‘00‘.$tmp.‘.txt‘; 13 } 14 print $tmp."\n"; 15 system("mv $var $str"); 16 $tmp++; 17 }
简单的解释一下代码：
1、使用了glob()函数，去获取当前脚本handle.pl所在路径下的*.txt文件
2、每次glob()函数会返回，当前目录下的一个txt文件的全名，赋值给$var变量
3、总结一下这个叫做什么？
使用glob()函数依次获取当前路径下的所有文件。
标签：
原文地址：http://www.cnblogs.com/yu-blog/p/4387893.html
