Variablennamen vorzubenennen (Allgemeines zu Perl)

[thread]15890[/thread]

Variablennamen vorzubenennen

Leser: 29

Articles: hide open all | hide show old branches

+13 replies
chmod777

2011-01-26 06:14
User since
2009-09-14
82 Artikel
BenutzerIn
Hi!
Gibt es eine Möglichkeit, einen Variablennamen ausserhal einer Sub quasi "vorzubenennen"?

Hier meine Problemstellung:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12

my $ausgabe = sub1( text => "die option $_ ist vorhanden\n" ); sub sub1 { my %para = @_; my $ausgabe; # @option enthält n Einzelwerte foreach (@option) { $ausgabe .= $para{text}; } return $ausgabe; }
ich möchte also, $_ ausserhalb sub1 positionieren, dass sub1 hernach $_ des
übergebenen string "die option $_ ist vorhanden" in der foreach-schleife
mit dem Einzelwerte des Array @option ausgibt.

//modedit GwenDragon: Code-Typo gefixt, eingerückt
Last edited: 2011-01-26 10:36:15 +0100 (CET)
- +4 replies
- bianca
  
  2011-01-26 08:11
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Rein interessehalber, was ist sub1 für eine Syntax? Was bewirkt das?
  Und warum definiert man die zweimal? Wie verhindert man, dass Perl die erste mit der zweiten überschreibt (Fehlermeldung sub redefined)?
  10 print "Hallo"
  20 goto 10
  - +3 replies
  - chmod777
    
    2011-01-26 10:15
    
    User since
    2009-09-14
    82 Artikel
    BenutzerIn
    
    hab offenbar Modul Tipp::fehler geladen ;-)
    
    sollte sub sub1 { ... } heissen
    - bianca
      
      2011-01-26 10:29
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Und wie soll es in Zeile 1 heißen?
      10 print "Hallo"
      20 goto 10
    - GwenDragon
      
      2011-01-26 10:36
      
      User since
      2005-01-17
      14783 Artikel
      Admin1
      
      Das hättest du auch selbst korrigieren können; ich habe es mal gemacht.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +7 replies
- GwenDragon
  
  2011-01-26 10:49
  User since
  2005-01-17
  14783 Artikel
  Admin1
  Geht mit einer Stringersetzung.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  sub sub1 { my %para = %{ shift @_ }; my @option = @_; my $ausgabe; # @option enthält n Einzelwerte foreach (@option) { my $s = $para{text}; $s =~ s/\\n/\n/g; $s =~ s/\[\$_\]/$_/g; $ausgabe .= $s; } return $ausgabe; } my $ausgabe = sub1( { text => 'die option [$_] ist vorhanden\n' }, qw( Option1 Option2) ); print $ausgabe;
  
  //EDIT: Code verbessert
  
  Vielleicht missverstehe ich auch deine Aufgabenstellung.
  Last edited: 2011-01-26 10:57:42 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2011-01-26 11:12
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Ach jetzt sehe ich, was da gemeint ist.
    Au weia... :)
    Respekt, wie Du da drauf gekommen bist, GwenDragon!
    10 print "Hallo"
    20 goto 10
  - +5 replies
  - chmod777
    
    2011-01-26 14:29
    
    User since
    2009-09-14
    82 Artikel
    BenutzerIn
    
    danke - genau das hab ich gesucht.
    
    genial aber simpel - hätte eigentlich jeden anderen Platzhalter nehmen können ... aber $_ ist halt vertraut ...
    
    ich musste übrigens bei "... die option [\$_] ist vo ..." das $ mit '\' maskieren
    
    tiefe verneigung & greets!
    - pq
      
      2011-01-26 14:33
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2011-01-26T13:29:19 chmod777
      ich musste übrigens bei "... die option [\$_] ist vo ..." das $ mit '\' maskieren
      
      wenn du double quotes nimmst, selbstverständlich. GwenDragon hat single quotes genommen, da wird nicht interpoliert.
      
      wenn ein thread gelöst ist, kannst du direkt unter dem titel so einen button anklicken, übrigens.
      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
    - +3 replies
    - Dubu
      
      2011-01-26 20:59
      
      User since
      2003-08-04
      2145 Artikel
      ModeratorIn + EditorIn
      
      Eine alternative Lösung mit sprintf():
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12
      
      my $ausgabe = sub1( text => "die option %s ist vorhanden\n" ); sub sub1 { my %para = @_; my $ausgabe; # @option enthält n Einzelwerte foreach my $o (@option) { $ausgabe .= sprintf($para{text}, $o); } return $ausgabe; }
      
      Das Füllen in der sub kann man übrigens auch schön unlesbar kurz machen:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      sub sub1 { my %para = @_; return join '', map { sprintf($para{text}, $_) } @option; }
      
      Sieht schön perlig aus, aber nach zwei Wochen muss man die Zeile bestimmt dreimal lesen, bis man wieder weiß, was es machen soll.
      
      Noch ein Tipp: Wenn du so etwas häufiger benutzt, eventuell sogar die Texte mit den Platzhaltern in Dateien vorliegen, dann solltest du dir Template-Systeme wie Text::Template oder Template::Toolkit anschauen. Was GwenDragon gemacht hat, ist nichts anderes als ein ganz simples Template-System.
      
      PS: Gab es nicht mal so eine Regel, dass jeder einmal in seinem Programmierer-Leben ein eigenes Templatesystem programmiert haben sollte? ;-)
      - +2 replies
      - MatthiasW
        
        2011-01-26 21:18
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        So richtig perlig ist es doch erst mit weniger als 50 Zeichen ;)
        
        Code (perl): (dl )
        
        sub sub1{sprintf{@_}->{text}x@option,@option}
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        Dubu
        
        2011-01-26 21:47
        
        User since
        2003-08-04
        2145 Artikel
        ModeratorIn + EditorIn
        
        Ich wusste doch, dass bestimmt jemand noch eine "perligere" Lösung findet. ;-)
        Sehr schick, und ich musste zweimal hinschauen.
- GwenDragon
  
  2011-01-27 17:58
  
  User since
  2005-01-17
  14783 Artikel
  Admin1
  
  Problem jetzt gelöst? Wenn ja, bitte oben neben dem Threadtitel als "Gelöst speichern".
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-01-26 06:14.