Name des aktuellen Scripts ermitteln (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-04-28 08:13:19
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]18179[/thread]

submit to reddit

Name des aktuellen Scripts ermitteln [gelöst]

[gelöst]

Tags: perl5 scriptname nicht $0 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

Teilbaum:
Für Fehlerausgabe Dateinamen und Zeilennummer ändern (7 Artikel) 2013-03-03 16:57

+11 replies
bianca

2013-03-02 18:03
User since
2009-09-13
6977 Artikel
BenutzerIn
Hi!

Ich würde gern in einem "Unterscript" den Namen des Scripts feststellen.
$0 hilft mir leider nicht, das bringt nur den Namen des Hauptscripts.

test.pl:
Code (perl): (dl )

1 2 3 4 5 6

#!/usr/bin/perl -w use strict; use warnings; require "test2.pl"; test2();
test2.pl:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -w use strict; use warnings; sub test2 { print "ich heisse 'test2.pl' und nicht '$0'\n"; # Welche Variable bringt mir hier test2.pl ? } 1;
10 print "Hallo"
20 goto 10
- +10 replies
- GUIfreund
  
  2013-03-02 18:56
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2
  
  my $myfile = __FILE__; print "Ich bin in file $myfile\n";
  
  Gruß
  GUIfreund
  - +9 replies
  - bianca
    
    2013-03-02 19:12
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    Klasse!
    Danke dir!
    10 print "Hallo"
    20 goto 10
    - Muffi
      
      2013-03-03 08:39
      
      Subtree with 8 replies: Für Fehlerausgabe Dateinamen und Zeilennummer ändern
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Zwecks Vollständigkeit:
      
      Man kann Perl z.B. für Fehlermeldungen sogar einen neuen Dateinamen und Zeilennummer unterschieben.
      
      Code (perl): (dl )
      
      # line 123 "Foo.pm"
      
      ab dann numeriert Perl wieder automatisch durch. Das kann z.B. recht praktisch sein, wenn man Sachen aus einer Datei einliest und per eval ausführt. Man kriegt dann schönere Fehler als nur error in eval.
      Last edited: 2013-03-03 12:39:56 +0100 (CET)
      1 + 1 = 10

View all threads created 2013-03-02 18:03.