error line number (Allgemeines zu Perl)

[thread]19423[/thread]

error line number

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+12 replies
linuxCowboy

2014-12-17 21:57

User since
2014-01-29
30 Artikel
BenutzerIn

Wie kann ich die line number bei Fehlermeldungen ändern:

"syntax error at -e line 40"

Ich habe das Perl-Script in einem Bash-Script und deshalb stimmen die Zeilennummern nicht.

Bei C geht das für __LINE__ mit #line <number>.
- Muffi
  
  2014-12-17 22:38
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  So ungefähr müssts in Perl auch gehn.
  Probier mal
  [code~~]#line <filename> <line>~~[/code]
  zu setzen. Ansonsten müsst ich suchen.
  
  EDIT: Hatts falsch rum im Kopf
  
  Code: (dl )
  
  #line <lineNr> "<filename>"
  
  ist es. Damit kannst du Perl sagen in welcher Zeile und welcher Datei er grad ist.
  Last edited: 2014-12-18 08:23:26 +0100 (CET)
  1 + 1 = 10
- hlubenow
  
  2014-12-18 01:03
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Vielleicht kann man das von bash angehen (wenn ich Dein Problem richtig verstanden habe):
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #!/bin/bash perl -e 'prnt "Hallo\n"' if [ $? -ne 0 ]; then ln="$LINENO" let "ln -= 3" echo -e "\nSomething went wrong in Perl-command, line $ln.\n" fi
- +4 replies
- Raubtier
  
  2014-12-18 09:54
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  Aber die Zeile stimmt doch - für das jeweilige Perl-Script, das übergeben wird.
  
  Gegeben folgendes Shell-Script, was möchtest du denn als Ausgabe haben?
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  #!/bin/sh echo Line3 perl -E' use strict; my $x; $y = 1; my $z = 1; '
  
  Möchtest du 8 statt 5 haben? Und was ist hiermit:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  #!/bin/sh echo Line3 perlscript=' use strict; my $x; $y = 1; my $z = 1; ' perl -E "$perlscript"
  
  Das Script könnte auch aus einer Benutzereingabe stammen. Welche Zeile, wenn nicht 5, soll dann benannt werden?
  - +2 replies
  - Muffi
    
    2014-12-18 10:02
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Ich bin jetzt nicht der bashguru, aber gibts da nicht sowas wie $LINENO mit dem man die Zeilennummer abfragen kann?
    Und das dann am Anfang vom Perl-eval schreiben. Dann gibts vernünftige Fehlermeldungen.
    1 + 1 = 10
    - Raubtier
      
      2014-12-18 10:18
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Ich würde ja (gerade bei größeren Scripten - und dieses ist ja offenbar eines) sowieso mit set -e arbeiten - zum Debuggen auch mit set -ex.
  - linuxCowboy
    
    2014-12-18 11:29
    User since
    2014-01-29
    30 Artikel
    BenutzerIn
    
    Das #line gibts tatsächlich in perl, danke an Muffi!
    
    Ist nur schwer zu finden: Plain Old Comments (Not!)
    
    __LINE__ geht/gibts auch, ist aber readonly.
    
    Ich nutze das geniale HERE-Document:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    #!/bin/bash local perl_updater=$(cat <<'EOF' ... EOF ) perl -E "$perl_updater" $DBFILE $UPDFILE $2
    
    Als workaround hatte ich den Beginn der perler modulo 100 ausgerichtet.
    
    Mit #line kann ich mir das jetzt sparen. :-)
    
    Allerdings nimmt #line nur Zahlen/digits. Etwas wie __LINE__ + $LINENO geht daher nicht. (LINENO ist bash und würde ich über ARGV übergeben)
    
    Sehe also noch keinen Weg das auto setzen zu lassen und muss daher bei jeder Änderung des Codes davor per Hand justieren... ;-/
    Last edited: 2014-12-20 03:42:18 +0100 (CET)
- +5 replies
- linuxCowboy
  
  2014-12-20 03:36
  User since
  2014-01-29
  30 Artikel
  BenutzerIn
  nochmal mit Code:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
  
  #!/bin/bash echo "in bash line(3) $LINENO" LINE=$((LINENO + 6)) Fshell () { echo in func perler=$(cat <<'EOF' say "in perl line ", __LINE__; #### hier: #line ($ARGV[0] + __LINE__ + 1) !?? ####line 15 say "in perl line ", __LINE__; say "ARGV: $ARGV[0] line: ", __LINE__, " ARGV+line: ", $ARGV[0] + __LINE__; say "in perl line ", __LINE__; EOF ) echo "in bash line(22): $LINENO" perl -E "$perler" $LINE }
  
  4067 0 /tmp $ . ./x1 && Fshell in bash line(3) 3 in func in bash line(22): 15 in perl line 1 in perl line 5 ARGV: 10 line: 7 ARGV+line: 17 in perl line 9 4068 0 /tmp $
  
  Jetzt stelle ich #line scharf:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
  
  #!/bin/bash echo "in bash line(3) $LINENO" LINE=$((LINENO + 6)) Fshell () { echo in func perler=$(cat <<'EOF' say "in perl line ", __LINE__; #### hier: #line ($ARGV[0] + __LINE__ + 1) !?? #line 15 say "in perl line ", __LINE__; say "ARGV: $ARGV[0] line: ", __LINE__, " ARGV+line: ", $ARGV[0] + __LINE__; say "in perl line ", __LINE__; EOF ) echo "in bash line(22): $LINENO" perl -E "$perler" $LINE }
  
  4068 0 /tmp $ . ./x1 && Fshell in bash line(3) 3 in func in bash line(22): 15 in perl line 1 in perl line 15 ARGV: 10 line: 17 ARGV+line: 27 in perl line 19 4069 0 /tmp $
  Ich würde gern die Berechnung des #line-Offsets in Zeile 13 irgendwie an #line übergeben, doch die nimmt nur digits!??
  - +4 replies
  - GwenDragon
    
    2014-12-20 09:35
    User since
    2005-01-17
    14761 Artikel
    Admin1
    
    Würgaround in Perl: Zeile für #line in ein string-eval packen.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9
    
    suse 5.010; say 4711; die if $ARGV[0] !~ /^\d+$/; eval qq(#line $ARGV[0] !??.pl warn 'ooohhh noooo!';); say "42 is a lonely number";
    
    ergibt:
    
    x.pl 1001 4711 ooohhh noooo! at !??.pl line 1001. 42 is a lonely number
    Last edited: 2014-12-20 09:36:56 +0100 (CET)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - linuxCowboy
      
      2014-12-20 12:49
      
      User since
      2014-01-29
      30 Artikel
      BenutzerIn
      
      Ja, das ist das Beispiel aus der Docu. Dies ändert die line number für die Fehlermeldung. Die #line im source ändert das nicht.
      - +2 replies
      - GwenDragon
        
        2014-12-20 17:27
        
        User since
        2005-01-17
        14761 Artikel
        Admin1
        
        __LINE__ bzw. $. lässt sich nicht so verändern wie du willst.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        linuxCowboy
        
        2014-12-20 22:23
        
        User since
        2014-01-29
        30 Artikel
        BenutzerIn
        
        Wenn Perl schwächelt helfe ich ihm auf die Sprünge:
        
        perl -i -pe's/^(#line )\d+$/"$1".($.+1)/e' ~/.bash_aliases && . ~/.bash_aliases
        
        Ich wünschte es gäbe eine elegantere Lösung. Jedenfalls gebe ich die line's nicht jedesmal von Hand ein!

View all threads created 2014-12-17 21:57.