Exécution d'un script perl sous Windows

Question

J'ai un script qui s'exécute sous Ubuntu mais je voudrais l'exécuter sous Windows. Je sais comment l'exécuter Je ne sais pas quel est le problème avec mon script pour ne pas le faire fonctionner.

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

Essayez ceci:

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

et

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

appel glob est explicitement mieux que <>, et en utilisant / au lieu de \ simplifie en citant.