salut tt le momde !!
Est ce quelqu'un pourra me donner le code en perl pour compresser au format gzip un fichier? merci
Version imprimable
salut tt le momde !!
Est ce quelqu'un pourra me donner le code en perl pour compresser au format gzip un fichier? merci
chercher dans le http://perl.developpez.com/cpan.gif
Tu as un exemple sur ce sujet (même si ce n'est qu'une petite partie du script...) :
http://www.developpez.net/forums/sho...d.php?t=358693
--
Jedaï
merci pour vos aides. En fin j'ai trouvé la methode. elle est tres simple. voici le code en perl :
:yaisse2:Code:
1
2
3
4
5
6
7
8 sub compressFile { $myFileZip = "toto.txt"; system("gzip -c $myFileZip > $myFileZip.gz"); # avec l'option c de gzip on compresse en conservant le nom d'origine }
LA solution que tu propose n'est vraiment pas propre capas portable.
Tu utilise tout simplement une commande system.
L'interet aurait ete d'utiliser un module perl qui te le crée tout simplement.