strict Meldung bei barewords (gelöst) (Allgemeines zu Perl)

[thread]18719[/thread]

strict Meldung bei barewords [gelöst]

Tags: perl5 strict bareword eval Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+6 replies
bianca

2013-11-03 09:06
User since
2009-09-13
7016 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?
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
- +3 replies
- bianca
  
  2013-11-03 10:39
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Habe mal versucht, das Script ohne use strict; zu starten.
  Fehlermeldung
  
  Quote
  Argument "NOVMCL_T_Y__KU[_CLASS" isn't numeric in subroutine entry
  
  Als Zeilennummer ist der Aufruf von Win32::Process::Create() angegeben. Ich vermute daher, dass die Konstanten NORMAL_PRIORITY_CLASS und DETACHED_PROCESS nicht importiert werden.
  Also brauche ich noch zusätzlich eine Lösung dafür und bitte euch um sonntägliche Hilfe.
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - Muffi
    
    2013-11-03 11:45
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Und wenn dus ausschreibst?
    Win32::Process::NORMAL_PRIORITY_CLASS()
    1 + 1 = 10
    - bianca
      
      2013-11-03 12:33
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Das ist es!
      Ich hatte das vorhin mal probiert aber ohne Klammern dahinter.
      Danke dir vielmals!
      10 print "Hallo"
      20 goto 10
- +2 replies
- pq
  
  2013-11-03 12:26
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  bianca, das mit den konstanten in kombination mit eval use hatten wir vor 4 jahren. lösung war: KONSTANTEN_NAME() statt KONSTANTEN_NAME
  
  windows attrib mit perl?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - bianca
    
    2013-11-03 12:35
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Stimmt. War mir entfallen.
    Wie gesagt. Bis auf die Klammern war ich schon auf der richtigen Spur :)
    10 print "Hallo"
    20 goto 10

View all threads created 2013-11-03 09:06.