sprintf selber Wert an mehreren Positionen (solved) (Allgemeines zu Perl)

[thread]21374[/thread]

sprintf selber Wert an mehreren Positionen [solved]

Tags: perl5 Similar Threads

Readers: 6

Articles: hide open all | hide show old branches

+9 replies
bianca

2021-11-11 08:53
User since
2009-09-13
6815 articles
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
  14143 articles
  Admin1
  
  Sowas ist bei (s)printf nicht vorgesehen.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- GwenDragon
  
  2021-11-11 10:27
  User since
  2005-01-17
  14143 articles
  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, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +6 replies
- haj
  
  2021-11-11 11:18
  User since
  2015-01-07
  433 articles
  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
    14143 articles
    Admin1
    
    Ich hab’s so verstanden, dass Bianca den Parameter für das Tag nicht zweimal bei printf angeben wollte. ;-)
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +2 replies
    - bianca
      
      2021-11-11 11:51
      
      User since
      2009-09-13
      6815 articles
      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
        433 articles
        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
    6815 articles
    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
    14143 articles
    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, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

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