sprintf selber Wert an mehreren Positionen (gelöst) (Allgemeines zu Perl)

[thread]21374[/thread]

sprintf selber Wert an mehreren Positionen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 6

Articles: hide open all | hide show old branches

+9 replies
bianca

2021-11-11 08:53
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Morgen!

Weder weiß ich es treffend zu formulieren noch danach zu gurgeln.

Es geht um das hier:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl use strict; use warnings; use 5.010; my $test = '<%s>foo %s bar</%s>'; printf $test,'div','und','div'; printf $test,'span','oder','span';
Gibt es eine Syntax mit der ich im printf den ersten und letzten Wert nur einmal statt zweimal angeben brauche? Ist weniger die Fehleranfälligkeit denn Lust auf Vermeidung unnötiger Mehrfachnennungen.

Und zu Hat Perl events? melde ich mich noch, ist nicht vergessen!

Danke
10 print "Hallo"
20 goto 10
- GwenDragon
  
  2021-11-11 10:13
  
  User since
  2005-01-17
  14790 Artikel
  Admin1
  
  Sowas ist bei (s)printf nicht vorgesehen.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2021-11-11 10:27
  User since
  2005-01-17
  14790 Artikel
  Admin1
  Na ja, mit eigenem printf geht es.
  
  Wenn dir sowas gefällt:
  
  T:\>perl -we "sub printf { my ($format,$tag,@werte) = @_; CORE::printf '<%s>'. $format . '</%s>', $tag, @werte, $tag; } ; ::printf 'foo %s bar', 'div', 'und';" <div>foo und bar</div>
  
  Deins sähe dann so aus:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  #!/usr/bin/perl use strict; use warnings; use 5.010; sub printf { my ( $format, $tag, @werte ) = @_; CORE::printf '<%s>'. $format . '</%s>', $tag, @werte, $tag; } my $test = 'foo %s bar'; ::printf $test,'div','und'; ::printf $test,'span','oder';
  
  Last edited: 2021-11-11 10:42:20 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +6 replies
- haj
  
  2021-11-11 11:18
  User since
  2015-01-07
  561 Artikel
  BenutzerIn
  Das geht.
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my $test = '<%s>foo %s bar</%1$s>'; printf $test,'div','und','div'; printf $test,'span','oder','span';
  
  Mit dem 1$ in der letzten Formatanweisung %1$s sagst Du "nimm den ersten Wert aus der Liste" (nochmal).
  
  In perlfunc sprintf ist das unter "format parameter index" beschrieben.
  - +3 replies
  - GwenDragon
    
    2021-11-11 11:31
    
    User since
    2005-01-17
    14790 Artikel
    Admin1
    
    Ich hab’s so verstanden, dass Bianca den Parameter für das Tag nicht zweimal bei printf angeben wollte. ;-)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - bianca
      
      2021-11-11 11:51
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2021-11-11T10:31:25 GwenDragon
      Ich hab’s so verstanden, dass Bianca den Parameter für das Tag nicht zweimal bei printf angeben wollte. ;-)
      
      Richtig. haj hat vergessen, den Dritten weg zu lassen.
      10 print "Hallo"
      20 goto 10
      - haj
        
        2021-11-11 13:12
        
        User since
        2015-01-07
        561 Artikel
        BenutzerIn
        
        2021-11-11T10:51:00 bianca
        2021-11-11T10:31:25 GwenDragon
        Ich hab’s so verstanden, dass Bianca den Parameter für das Tag nicht zweimal bei printf angeben wollte. ;-)
        
        Richtig. haj hat vergessen, den Dritten weg zu lassen.
        
        Ähm... ja, stimmt. Da war beim Copypasten mein Hirn abwesend. Aber Du hast es ja trotzdem verstanden :)
  - bianca
    
    2021-11-11 11:50
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Geht!
    
    Code (perl): (dl )
    
    1 2
    
    my $test = '<%s>foo %s bar</%1$s>'; printf $test,'div','und';
    
    Cool Danke!!
    10 print "Hallo"
    20 goto 10
  - GwenDragon
    
    2021-11-11 13:14
    
    User since
    2005-01-17
    14790 Artikel
    Admin1
    
    2021-11-11T10:18:33 haj
    Das geht.
    (…)
    In perlfunc sprintf ist das unter "format parameter index" beschrieben.
    Wieder gelernt, dass genaues Lesen hilft.
    
    Danke, @haj
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2021-11-11 08:53.