Opened by [HR]Doomrunner at 2004-01-28 10:52
User since
2003-08-04
5872 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5872 Artikel
ModeratorIn
[HRDoomrunner,29.01.2004, 08:17]Gibt es analog dazu auch eine Möglichkeit die Datei wieder zu entpacken?
Klar, siehe perldoc Archive::Zip:
Quote$zip = Archive::Zip->new();
die 'read error' if $zip->read( 'someZip.zip' ) != AZ_OK;
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite