Wert aus Kommentar auslesen - geht das? (gelöst) (Allgemeines zu Perl)

[thread]18659[/thread]

Wert aus Kommentar auslesen - geht das? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+9 replies
vitek

2013-10-08 11:25
User since
2009-12-02
36 Artikel
BenutzerIn
Hallo Leute,

ich stelle meine scripte in ein Version Management System ein.
Dabei wird die jeweilige revision in den Kommentarkopf eingetragen. Sieht dann so aus:
Code: (dl )

1 2 3

# $Header: L:/Archiv/Tools/Makros/Nummerierungstool/renum.pl-arc 1.5 Oct 08 2013 10:58:42 $ # $Log: L:/Archiv/Tools/Makros/Nummerierungstool/renum.pl-arc $ # Rev 1.5 Oct 08 2013 10:58:42
Der String Rev 1.5 in der dritten Zeile enthält die Info die ich beim Ausführen des scriptes als Versionsangabe ausgeben will in Form von print ("renum Tool Version $version \n\n");

Ich hätte dann gerne die Ausgabe

renum Tool Version 1.5

Geht das überhaupt?
Danke und Gruß
Viktor
- +2 replies
- bianca
  
  2013-10-08 11:53
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Frag doch die dritte Zeile einfach auf /Rev ([0-9\.])/ ab.
  10 print "Hallo"
  20 goto 10
  - vitek
    
    2013-10-08 12:06
    
    User since
    2009-12-02
    36 Artikel
    BenutzerIn
    
    Du meinst das script soll sich selbst parsen?
    Die Idee hatte ich auch zuerst.
    Habe in irgendeiner Doku gelesen dass der Pfad zum script in der $0 Variable steckt. Stimmt das?
    Muss mal probieren.
- +6 replies
- GwenDragon
  
  2013-10-08 11:55
  User since
  2005-01-17
  14866 Artikel
  Admin1
  Müssen die Kommentare für das CVS immer an erster Stelle stehen?
  
  Wenn nein, machs doch so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $VS = qq{ # $Header: L:/Archiv/Tools/Makros/Nummerierungstool/renum.pl-arc 1.51 Oct 08 2013 10:58:42 $ # $Log: L:/Archiv/Tools/Makros/Nummerierungstool/renum.pl-arc $ # Rev 1.5 Oct 08 2013 10:58:42 }; my ($version) = $VS =~ m|\Q$Header:\E\s+\S+\s+(\d+\.\d+)\s|m; my ($rev) = $VS =~ m|\sRev\s+(\d+\.\d+)|m; print "$version - $rev";
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - vitek
    
    2013-10-08 12:04
    User since
    2009-12-02
    36 Artikel
    BenutzerIn
    
    Hi, von der Idee ganz gut, aber irgendwas ist noch nicht ganz sauber.
    Habe das so eingebaut:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    use Encode; use warnings; my $VS = qq{ # $Header: L:/Archiv/Tools/Makros/Nummerierungstool/renum.pl-arc 1.51 Oct 08 2013 10:58:42 $ # $Log: L:/Archiv/Tools/Makros/Nummerierungstool/renum.pl-arc $ # Rev 1.5 Oct 08 2013 10:58:42 };
    
    und bekomme das als Warnung:
    
    Code: (dl )
    
    Use of $# is deprecated at U:/Tools/Tools/Makros/Nummerierungstool/renum.pl line 4.
    
    Danke.
    - +4 replies
    - Muffi
      
      2013-10-08 12:07
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Lass in Zeile 1 ein "q" weg
      1 + 1 = 10
      - vitek
        
        2013-10-08 12:35
        
        User since
        2009-12-02
        36 Artikel
        BenutzerIn
        
        Super.
        Danke!
      - +2 replies
      - pq
        
        2013-10-08 12:54
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        ich würd bei sowas einfach ein heredoc verwenden. die kommentarzeichen kann man ja auch weglassen.
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        my $VS = <<'EOM'; $Header: L:/Archiv/Tools/Makros/Nummerierungstool/renum.pl-arc 1.51 Oct 08 2013 10:58:42 $ $Log: L:/Archiv/Tools/Makros/Nummerierungstool/renum.pl-arc $ Rev 1.5 Oct 08 2013 10:58:42 EOM
        
        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
        
        Muffi
        
        2013-10-08 13:51
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Stimmt.
        Ich glaub ich hab das in meinem Leben genau 2mal benutzt. Eigentlich nehm ich immer q||; mit den Pipes, weil ich die am wenigsten mit was anderem verwechsel und die auch sonst in Texten selten vorkommen.
        
        Warum ich deine Version eigentlich nicht benutze ist wohl, weil ich mir die Syntax nicht merken kann.
        1 + 1 = 10

View all threads created 2013-10-08 11:25.