Opened by bianca at 2013-11-03 09:06
User since
2009-09-13
6977 Artikel
BenutzerIn
2009-09-13
6977 Artikel
BenutzerIn
Folgendes Script soll in Windows- und nicht-Windows-Umgebungen laufen können. Daher binde ich das Modul mit eval{}; ein.
Im echten Script gibt es eine Verzweigung des Codes je nach Betriebssystem.
Leider meckert
strict über die barewords NORMAL_PRIORITY_CLASS und DETACHED_PROCESS und kompiliert nicht.
Was mache ich da am besten?strict für barewords abschalten? Geht das überhaupt? Kann ich strict sagen, dass es nur diese beiden barewords nicht beachten soll?
Editiert von bianca: Code korrigiert
Last edited: 2013-11-03 11:09:14 +0100 (CET)
Im echten Script gibt es eine Verzweigung des Codes je nach Betriebssystem.
Leider meckert
strict über die barewords NORMAL_PRIORITY_CLASS und DETACHED_PROCESS und kompiliert nicht.Was mache ich da am besten?
strict für barewords abschalten? Geht das überhaupt? Kann ich strict sagen, dass es nur diese beiden barewords nicht beachten soll?Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/usr/bin/perl use strict; use warnings; use diagnostics; eval "use Win32 0.47; 1;" or die "Win32 fehlt"; eval "use Win32::Process 0.14; 1;" or die "Win32::Process fehlt"; my $ProcessObj; Win32::Process::Create( $ProcessObj, 'perl.exe', "perl -v", 0, NORMAL_PRIORITY_CLASS|DETACHED_PROCESS, '.', );
Editiert von bianca: Code korrigiert
Last edited: 2013-11-03 11:09:14 +0100 (CET)
10 print "Hallo"
20 goto 10
20 goto 10