perl更改当前文件夹下的文件名
更改当前文件夹下面以 "I"开头的文件名为小写"i".
#!/usr/bin/perl -w
foreach my $file (glob "I*"){
my $newfile = $file;
$newfile =~ s/^I/i/;
if (-e $newfile) {
warn "can't rename $file to $newfile: $newfile exists
";
} elsif (rename $file, $newfile) {
} else {
warn "rename $file to $newfile failed:$!
";
}
}
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/312079/viewspace-245689/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
4,子程序（笔记）
下一篇：
6，散列(perl语言笔记)
请登录后发表评论
登录
全部评论
