使用Perl实现linux命令’rename’

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了使用Perl实现linux命令’rename’，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含807字，纯文字阅读大概需要2分钟。

内容图文

Mac Os X没有有用的linux命令重命名,它具有以下格式：

rename 'perl-regex' list-of-files

所以这是我放在一起但它不重命名任何文件($new总是与$file相同)：

#!/usr/bin/env perl -w
use strict;
use File::Copy 'move';

my $regex=shift;
my @files=@ARGV;

for my $file (@files)
{
    my $new=$file;
    $new =~ "$regex";    # this is were the problem is !!!
    if ($new ne $file) 
    {
        print STDOUT "$file --> $new \n";
        move $file, ${new} or warn "Could not rename $file to $new";
    }
}

就好像我没有通过正则表达式,如果我硬编码它

$new =~ s/TMP/tmp;

它会工作得很好……
有什么想法吗？

解决方法:

$operator = 's/TMP/tmp/';
print $operator; 

没有神奇地评估运算符,所以毫不奇怪

$operator = 's/TMP/tmp/';
$x =~ $operator; 

也没有.如果要评估Perl代码,则必须将其传递给Perl解释器.您可以使用eval EXPR访问它.

$operator = 's/TMP/tmp/';
eval('$x =~ '.$operator.'; 1')
   or die $@;

内容总结

以上是互联网集市为您收集整理的使用Perl实现linux命令’rename’全部内容，希望文章能够帮你解决使用Perl实现linux命令’rename’所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---