Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re^3: Seeking help with Extracting files from zip ( makekebabs.pl)

by Anonymous Monk
on Jan 15, 2015 at 01:58 UTC ( #1113292=note: print w/replies, xml ) Need Help??


in reply to Re^2: Seeking help with Extracting files from zip ( Archive::Zip unzipwin32unicode.pl )
in thread Seeking help with Extracting files from zip

How I created the test directory, later zipped with 7zip, makekebabs.pl, its meat
#!/usr/bin/perl -- use utf8; use strict; use warnings; my @kebabs = ( "\x{45B}\x{435}\x{432}\x{430}\x{43F}.txt", "ra\x{17E}nji\x{107}.txt", "\x{107}evap.txt", "\x{43A}\x{435}\x{431}\x{430}\x{43F}\x{447}\x{435}.txt", "kebab.txt", ); binmode STDOUT, ':encoding(UTF-8)'; { use Win32::Unicode qw/ -native /; mkpathW 'meat'; chdirW 'meat'; for my $kebab ( @kebabs ){ print "kebabing the $kebab\n"; open my($fh), '>:raw', $kebab or die Fudge($kebab); print $fh $kebab or die Fudge($kebab); close $fh or die Fudge($kebab); } } sub Fudge { use Errno(); join qq/\n/, "Error @_", map { " $_" } int( $! ) . q/ / . $!, int( $^E ) . q/ / . $^E, grep( { $!{$_} } keys %! ), q/ /; } __END__
kebabing the ћевап.txt
kebabing the ražnjić.txt
kebabing the ćevap.txt
kebabing the кебапче.txt
kebabing the kebab.txt
  • Comment on Re^3: Seeking help with Extracting files from zip ( makekebabs.pl)
  • Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1113292]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2020-10-24 18:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (246 votes). Check out past polls.

    Notices?