Aktuelle Zeilen Nummer ausgeben? (Allgemeines zu Perl)

[thread]13594[/thread]

Aktuelle Zeilen Nummer ausgeben?

Readers: 24

Articles: hide open all | hide show old branches

+8 replies
jgeier

2009-05-31 16:42
User since
2009-05-10
22 articles
BenutzerIn
Hallo,

ich möchte an verschiedenen Stellen in meinem Programm auf dem Bildschirm ausgeben, in welcher Zeile sich das Programm gerade befindet.

Gibt es dazu eine Möglichkeit?

Vielleicht etwas in dieser art?
Code (perl): (dl )

1 2 3

my $myline = $.; print $myline; # 1 - sollte ausgegeben werden.
Mit freundlichen Grüßen
Jens Geier

=====================================
Server : NOVELL NetWare 6.5 SP7
Perl : V5.8.4
=====================================
- +7 replies
- renee
  
  2009-05-31 16:48
  
  User since
  2003-08-04
  14371 articles
  ModeratorIn
  
  Meinst Du "in welcher *Programm*Zeile sich das Programm befindet" oder meinst Du die Zeile in einer Datei, die das Programm gerade einliest??
  
  1.) print __LINE__;
  
  2.) print $.
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - jgeier
    
    2009-05-31 16:56
    
    User since
    2009-05-10
    22 articles
    BenutzerIn
    
    Hallo renee,
    
    im meinte die Programm-Zeile in der sich das Programm gerade befindet.
    
    Mit freundlichen Grüßen
    Jens Geier
    
    =====================================
    Server : NOVELL NetWare 6.5 SP7
    Perl : V5.8.4
    =====================================
  - +5 replies
  - jgeier
    
    2009-05-31 17:00
    User since
    2009-05-10
    22 articles
    BenutzerIn
    
    Hallo renee,
    
    die Ausgabe von
    
    Code (perl): (dl )
    
    print $.;
    
    ist immer 0 (nul).
    
    Mhm ...
    
    Noch eine Idee?
    
    Mit freundlichen Grüßen
    Jens Geier
    
    =====================================
    Server : NOVELL NetWare 6.5 SP7
    Perl : V5.8.4
    =====================================
    - GwenDragon
      
      2009-05-31 17:22
      
      User since
      2005-01-17
      14850 articles
      Admin1
      
      $. bezeichnet nach perldoc <Ziat>Current line number for the last filehandle accessed.</Zitat> also die Zeilennummer, der zuletzt eingelesenen Datein ,nicht die Zeilenummer des laufenden Skripts.
      
      Du musst __LINE__ verwenden. perldata
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - renee
      
      2009-05-31 19:11
      
      User since
      2003-08-04
      14371 articles
      ModeratorIn
      
      2009-05-31T15:00:41 jgeier
      Mhm ...
      
      Noch eine Idee?
      
      Code: (dl )
      
      print __LINE__
      
      hatte ich ja schon in meinem ersten Post genannt...
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +2 replies
      - jgeier
        
        2009-05-31 19:49
        
        User since
        2009-05-10
        22 articles
        BenutzerIn
        
        Hallo renee,
        
        irgendwie hatte ich das so verstanden, das __LINE__ die Zeilen Nummer einer Eingelesenen geöffneten Datei wäre ....
        
        Daher hatte ich das nicht probiert ....
        
        Ja, so geht das mit
        
        print __LINE__;
        
        Ich hätte wohl gleich auf Dich hören sollen ...
        
        Mit freundlichen Grüßen
        Jens Geier
        
        =====================================
        Server : NOVELL NetWare 6.5 SP7
        Perl : V5.8.4
        =====================================
        
        betterworld
        
        2009-06-01 01:18
        
        User since
        2003-08-21
        2614 articles
        ModeratorIn
        
        Eine weitere Möglichkeit ist die Funktion "caller" (siehe perldoc -f). Die kann man dann allerdings nur gebrauchen, wenn man sie in eine eigene Subroutine steckt; dann kann man herausfinden, in welcher Zeile diese Subroutine aufgerufen wurde.
        Last edited: 2009-06-01 01:19:48 +0200 (CEST)
        Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2009-05-31 16:42.