Führen Sie ein Perl-Skript unter Windows

Question

Ich habe ein Skript, das in Ubuntu ausgeführt wird, aber ich möchte es in Windows ausführen. Ich weiß, wie ich es ausführen kann Ich weiß einfach nicht, was mit meinem Skript nicht stimmt, damit es nicht läuft.

#!/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

Versuchen Sie stattdessen:

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

und

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

Aufruf glob explizit besser als <> ist, und mit / statt \ vereinfacht zitieren.