Opened by bianca at 2015-04-28 09:44
User since
2009-09-13
7016 Artikel
BenutzerIn
2009-09-13
7016 Artikel
BenutzerIn
Das Kommando import() hab ich noch nicht ganz verstanden und bitte um Hilfe.
Code:
Warum wirft das
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)
Code:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9
#!/usr/bin/perl 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
Quote?Bareword "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
20 goto 10