3

我试图reference_在所有目录以及子目录中的所有 *.bmp 文件的名称前加上一个字符串 ()。第一次运行 Silk 脚本时，它会创建目录和子目录，并且在每个子目录下会存储每个移动应用程序的带有.bmp扩展名的截图。

当我第二次运行自动化 Silkscript 时，它将再次在所有子目录中创建 *.bmp 文件。在第二次运行脚本之前，我想在所有 *.bmp 前面加上一个 string reference_。

例如first_screen.bmp，reference_first_screen.bmp我的目录结构如下：

C:\Image_Repository\BG_Images\second
...
C:\Image_Repository\BG_Images\sixth

拥有first_screen.bmp和first_screen.bmp文件等...

任何人都可以帮助我吗？

如何用reference_字符串为所有图像文件名添加前缀？

当我第二次运行该脚本时，Silk 中的 Perl 脚本将从子目录中获取两个图像并逐个像素地比较它们。我正在尝试下面的代码。您能否指导我如何继续完成此任务。

#!/usr/bin/perl -w
&one;

&two;

sub one {

    use Cwd;

    my $dir ="C:\\Image_Repository";
    #print "$dir\n";
    opendir(DIR,"+<$dir") or "die $!\n";
    my @dir = readdir DIR;
    #$lines=@dir;
    delete $dir[-1];
    print "$lines\n";
    foreach my $item (@dir)
    {
        print "$item\n";
    }
    closedir DIR;
}

sub two {

    use Cwd;

    my $dir1 ="C:\\Image_Repository\\BG_Images";
    #print "$dir1\n";
    opendir(D,"+<$dir1") or "die $!\n";
    my @dire = readdir D;
    #$lines=@dire;
    delete $dire[-1];
    #print "$lines\n";
    foreach my $item (@dire)
    {
        #print "$item\n";
        $dir2="C:\\Image_Repository\\BG_Images\\$item";
        print $dir2;
        opendir(D1,"+<$dir2") or die " $!\n";
        my @files=readdir D1;
        #print "@files\n";  
        foreach $one (@files)
        {
            $one="reference_".$one;
            print "$one\n";
            #rename $one,Reference_.$one;
        }
    }
    closedir DIR;
}

我尝试使用 '+<' 模式打开调用，但我收到读写模式的编译错误。当我运行此代码时，它会显示 BG_images 文件夹中带有前缀字符串的文件，但实际上它并没有更新子目录中的文件。

4

3 回答 3

3

您可能应该为此检查File::Find模块 - 它将使目录树的上下递归更简单。

您可能应该扫描文件名并修改那些不以reference_它们开头的文件名。这可能需要将文件名拆分为目录名和文件名，然后在文件名部分前加上reference_. 这是通过File::Basename模块完成的。

在某些时候，您需要决定第三次运行脚本时会发生什么。已经开始的文件reference_会被覆盖，还是没有前缀的文件会被覆盖，还是什么？

文件没有被重命名的原因是重命名操作被注释掉了。请记住use strict;在脚本顶部添加（以及-w您使用的选项）。

如果你得到一个数组中的文件列表@files（并且名称是基本名称，所以你不必摆弄 File::Basename），那么循环可能看起来像：

   foreach my $one (@files)
   {
        my $new = "reference_$one";
        print "$one --> $new\n";
        rename $one, $new or die "failed to rename $one to $new ($!)";
   }
于 2009-01-02T10:16:17.277 回答
3

您不会打开目录进行写作。只需使用opendir而不使用字符串的模式部分：

opendir my($dir), $dirname or die "Could not open $dirname: $!";

但是，你不需要那个。您可以使用 File::Find 来制作您需要的文件列表。

#!/usr/bin/perl
使用严格；
使用警告；

使用 File::Basename；
使用文件::查找；
使用 File::Find::Closures qw(find_regular_files);
使用 File::Spec::Functions qw(catfile);


我的（$wanted，$reporter）=find_regular_files；
查找（$通缉，$ARGV[0]）；


我的 $prefix = 'recursive_';


foreach 我的 $file ( $reporter->() )
    {
    我的 $basename = basename( $file );

    如果（索引（$basename，$prefix）== 0）
        {
        print STDERR "$file 已经有'$prefix'！跳过。\n";
        下一个;
        }

    我的 $new_path = catfile(
        目录名（$文件），
        “recursive_$basename”
        );

    除非（重命名 $file，$new_path ）
        {
        print STDERR "无法重命名 $file: $!\n";
        下一个;
        }

    打印 $file, "\n";  
    }
于 2009-01-02T16:47:29.830 回答
0

借助coreutils for Windowsfind的实用程序：

$ find -iname "*.bmp" | perl -wlne"chomp; ($prefix, $basename) = split(m~\/([^/]+)$~, $_); rename($_, join(q(/), ($prefix, q(reference_).$basename))) or warn qq(failed to rename '$_': $!)"
于 2009-01-02T11:18:07.137 回答