Question

我有一个在Ubuntu中运行的脚本但是，我想在Windows中运行它。我知道如何执行它我只是不知道我的脚本有什么问题导致它无法运行。

#!/usr/bin/perl

use strict;
use warnings;
use IO::Compress::Zip qw(zip $ZipError);
use File::Find;

my @files = <C:\Windows\*.log>;

zip [ @files ] => 'Desktop/output.zip'
    or die "zip failed: $ZipError\n";

unlink glob "'C:\Windows\*.log'";
print "The job is done\n";

Answer 1

请改为尝试：

my @files = glob 'C:/Windows/*.log';

和

unlink glob 'C:/Windows/*.log';

明确调用glob优于< >，使用/代替\可以简化引用。

在Windows上运行perl脚本

1 个答案: