Das Kommando import() hab ich noch nicht ganz verstanden und bitte um Hilfe.
Code:
use strict;
use warnings;
require Archive::Zip;
Archive::Zip->import( qw(AZ_OK COMPRESSION_LEVEL_BEST_COMPRESSION) );
my $zip = Archive::Zip->new();
my $file_member = $zip->addFile($0);
$file_member->desiredCompressionLevel(COMPRESSION_LEVEL_BEST_COMPRESSION);
Warum wirft das
QuoteBareword "COMPRESSION_LEVEL_BEST_COMPRESSION" not allowed while "strict subs" in use at test.pl line 9.
?
Ich möchte kein
use verwenden, weil das nur geladen werden soll, wenn es gebraucht wird und nicht beim Kompilieren. Laut
Devel::NYTProf braucht mir das nämlich zu lange und bremst das ganze Script aus. Ich will Stück für Stück diese ganzen Lebenszeit-Fresser unschädlich machen.
Dank an Renée für den guten Artikel dazu in der $foo 27!
Editiert von bianca: Dank an Renée
Last edited: 2015-04-28 09:45:49 +0200 (CEST)
10 print "Hallo"
20 goto 10