作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
如何使用 Perl 将驱动器上带有 .wma 和 .wmv 扩展名的所有文件重命名为 .txt 扩展名,无论它们在目录结构中有多深?
最佳答案
见 perldoc File::Find .文档中的示例一目了然,可以帮助您完成大部分工作。当您尝试时,请使用更多信息更新问题。
如果这是一项学习练习,那么首先尝试自己做,您会学得更好。
更新:
假设您有机会自己研究如何执行此操作并考虑到已发布各种解决方案的事实,我将发布我将如何执行此操作。请注意,我会选择忽略诸如“.wmv”之类的文件:我的正则表达式需要在点之前出现一些内容。
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
my ($dir) = @ARGV;
find( \&wanted, $dir );
sub wanted {
return unless -f;
return unless /^(.+)\.wm[av]$/i;
my $new = "$1.txt";
rename $_ => $new
or warn "'$_' => '$new' failed: $!\n";
return;
}
__END__
关于perl - 使用 Perl,如何重命名驱动器所有子目录中的文件?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1048743/
我是一名优秀的程序员,十分优秀!