Warnung bei sprintf vermeiden wenn zu wenig Argumente (solved) (Allgemeines zu Perl)

[thread]20443[/thread]

Warnung bei sprintf vermeiden wenn zu wenig Argumente [solved]

Tags: perl5 bug Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+12 replies
GwenDragon

2018-03-30 10:57
User since
2005-01-17
14741 articles
Admin1
Solche sprintf kommen massenhaft in fremd/von mir erstellten alten Modulen/Programmen vor:

Code beispielhaft:
Code: (dl )

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl use strict; use warnings; use 5.020; our $VERSION = sprintf 'v.%02d.%03d', q $ Revision 1.12.123 $ =~ /(\d+)\.(\d+)\.(\d+)/; say "Version ist: $VERSION";
In 5.20 wurden fehlende Argumente einfach ignoriert.

Seit Perl 5.22 wirft das folgende Warnung:
Redundant argument in sprintf at a.pl line 7. Version ist: v.01.012

Ist das der Perl-Bug https://rt.perl.org/Public/Bug/Display.html?id=122...
Oder ist das keiner?

Wie lässt sich das Warnen bei den Argumenten umgehen?

Sicher kann das vermieden werden, in dem eine non-catching group erzeugt wird.
Sowas wäre eine Möglichkeit:
Code: (dl )

our $VERSION = sprintf 'v.%02d.%03d', q $ Revision 1.02.333 $ =~ /(\d+)\.(\d+)\.(?:\d+)/;
Anders als Code suchen und ändern geht nicht?
Last edited: 2018-03-30 11:11:01 +0200 (CEST)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +11 replies
- Linuxer
  
  2018-03-30 22:42
  User since
  2006-01-27
  3890 articles
  HausmeisterIn
  Wie wär's mit no warnings qw( redundant );?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #! /usr/bin/perl use strict; use warnings; use 5.020; no warnings qw( redundant ); our $VERSION = sprintf 'v.%02d.%03d', q $ Revision 1.12.123 $ =~ /(\d+)\.(\d+)\.(\d+)/; say "Version ist: $VERSION";
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +10 replies
  - GwenDragon
    
    2018-03-31 10:34
    
    User since
    2005-01-17
    14741 articles
    Admin1
    
    Danke für den Hinweis. no warnings qw(...); ist normalerweise nützlich.
    Aber wo hast du das gefunden?
    In der 5.24 perdoc bei warnings steht nix.
    Last edited: 2018-03-31 10:36:33 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +9 replies
    - Linuxer
      
      2018-03-31 16:48
      
      User since
      2006-01-27
      3890 articles
      HausmeisterIn
      
      Mein erster und einziger Treffer war in der warnings in der Hierarchie-Liste: http://perldoc.perl.org/warnings.html#Category-Hie...
      
      Ich habe da auch eher nur gehofft; Ich hab das "redundant" in Deiner Meldung gesehen und es dann in dieser Hierarchie-Darstellung gesehen und anschließend ausprobiert.
      
      Die älteren listen das auch dort (mehr habe ich mir jetzt nicht angesehen):
      http://perldoc.perl.org/5.22.0/warnings.html#Categ...
      http://perldoc.perl.org/5.24.0/warnings.html#Categ...
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +8 replies
      - GwenDragon
        
        2018-03-31 17:36
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Also auch nur im perldoc und dort schlecht dokumentiert :(
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +7 replies
        
        lze
        
        2018-04-01 19:56
        
        User since
        2015-06-21
        13 articles
        BenutzerIn
        
        Hi,
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        perl -We "print sprintf 'v.%02d.%03d', q | Revision 1.12.123 | =~ /(\d+)\.(\d+)\.(\d+)/" Redundant argument in sprintf at -e line 1. v.01.012 perl -We "print sprintf 'v.%02d.%02d.%03d', (q | Revision 1.12.123 | =~ /(\d+)\.(\d+)\.(\d+)/)" v.01.12.123
        
        Du wertest nicht alle übergebene "parameter" aus...
        
        mfg Dirk
        perl -e'sub lze_Rocks{print/(...)/ for shift;}sub{&{"@_"}}->("lze_Rocks")'
        
        +6 replies
        
        GwenDragon
        
        2018-04-02 10:10
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Das weiß ich doch, Dirk. Die Änderung bei printf bezüglich warnings finde ich aber nirgends.
        Ich weiß nicht ob es dir bekannt ist, solche Matchkonstrukte sind länger gang und gebe gewesen um Versionsnummern für Perl-Module zu parsen.
        
        Mir ging es aber um die Doku der pragmas für warnings.
        Last edited: 2018-04-02 10:17:56 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +5 replies
        
        rosti
        
        2018-04-02 11:14
        
        User since
        2011-03-19
        3462 articles
        BenutzerIn
        
        Bei mir steht das da:
        
        Code (perl): (dl )
        
        my $VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
        
        in der Datei.
        
        +3 replies
        
        GwenDragon
        
        2018-04-02 11:49
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Mag ja sein, aber wo ist jetzt bei dir die physikalische Versionsnummer? Hast du übersehen, ich weiß ja warum.
        
        Das Tralala mit dem Match ist doch nur dafür da, wenn Versioning mit CVS, SVN oder Git verwendet wird, Versionsnummern durch diese erstellt werden, und $VERSION für MakeMaker kompatibel wird.
        Siehe bspw. dieser Uralt-Kram: https://www.tu-chemnitz.de/docs/perldoc-html/ExtUt...
        Last edited: 2018-04-02 11:52:49 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        rosti
        
        2018-04-02 11:58
        
        User since
        2011-03-19
        3462 articles
        BenutzerIn
        
        2018-04-02T09:49:27 GwenDragon
        Mag ja sein, aber wo ist jetzt bei dir die physikalische Versionsnummer?
        
        Die wird automatisch beim ci (checkin) geparst. Also die dem Wort Revision folgende Nummer.
        
        Siehe:
        
        Code: (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 26 27 28 29 30
        
        RCS - Revision Control System dient in erster Linie dazu Versionen von Dateien auf UNIX/LINUX Systemen zu verwalten. Füge im Script die folgende Zeile ein: my $VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; Nach einem Checkin (ci -l scriptname) und Checkout (co -l scriptname) wird sich diese Zeile ändern z.B. wie folgt: my $VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; Bei jedem nun folgenden Checkin und Checkout ändert sich diese Zeile automatisch. Dabei ist 1.1 die *Initialversion* welche vom RCS hochgezählt wird: my $VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; Auf die Variable $VERSION kann dann im Script zugegriffen werden. Angezeigt wird eine Version 1.2 als Version 1.02 (aufgrund der Formatierung). Ergänzung: # $Id$ # $Log$ sind weitere für RCS wichtige Variablen die vor dem ersten Checkin angelegt werden sollten. Hierin stehen für das RCS weitere Informationen like this: # RCS # $Id: umg.cgi,v 1.4 2003/02/25 12:25:26 root Exp root $ # $Log: umg.cgi,v $ # Revision 1.4 2003/02/25 12:25:26 root # Versionsinfo eingebaut. # # Revision 1.3 2003/02/25 12:20:22 root Version eines Moduls anzeigen: perl -e "use CGI; print $CGI::VERSION"
        
        MfG
        
        GwenDragon
        
        2018-04-02 13:02
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Ach so, dein Modul hatte noch kein checkin in der Versionsverwaltung, ok. Hatte ich eben anders verstanden.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        GwenDragon
        
        2018-04-02 13:27
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        2018-04-02T09:14:59 rosti
        
        Code (perl): (dl )
        
        my $VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
        
        Das kann gehen. Erzeugt aber leider nicht immer das Erwünschte.
        ~ perl my $VERSION = do { my @r = (q$Revision 1.01.002$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; print $VERSION ^Z 1.0102
        Wenn Leute nämlich nur Version.Subversion wollen/brauchen als Version, klappt dein Beispiel nicht mehr.
        Deswegen hatte ich ja in Post #1 das Regex anders dargestellt.
        
        Code (perl): (dl )
        
        our $VERSION = sprintf 'v.%02d.%03d', q $ Revision 1.12.123 $ =~ /(\d+)\.(\d+)\.(\d+)/;
        
        Nur so als Hinweis an andere.
        
        Ich benutze ja schon lange ein anderes VCS, muss aber manchmal "schlechten" Code anderer Leute anfassen. =:(
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2018-03-30 10:57.