Variable gesucht (Allgemeines zu Perl)

[thread]14410[/thread]

Variable gesucht

Leser: 15

Articles: hide open all | hide show old branches

+4 replies
Gast ArtAfons

2009-12-24 09:42
Guten Morgen,

habe folgenden Codeschnipsel:
Code: (dl )

print $ARGV[0] if defined(<VAR>);
Suche eine Lösung, für die ich in <VAR> nicht $ARGV[0] einsetzen muss sondern eine Variable die sich automatisch darauf bezieht. Gibt es so etwas? So dass ich quasi das $ARGV[0] nach print beliebig austauschen kann ohne das <VAR> ständig ändern zu müssen.

Euch allen ein frohes Weihnachtsfest!

VG
- bianca
  
  2009-12-24 10:18
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Geht es darum, ein Script über die Eingabeaufforderung zu starten und Parameter zu übergeben?
  Dann würd ich soetwas hier machen (nur Schnipsel):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  ($parameter) = @ARGV; my ($value,$name,$pair); foreach $pair (split(/&/,$parameter)) { $pair =~ tr/+/ /; ($name,$value) = split(/=/,$pair); }
  
  Damit könntest Du dann die gleiche Syntax wie bei URL's verwenden und könntest Dir die $name und $value z.B. bequem in ein Hash schreiben.
  10 print "Hallo"
  20 goto 10
- +2 replies
- MatthiasW
  
  2009-12-24 12:01
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Quote
  Suche eine Lösung, für die ich in <VAR> nicht $ARGV[0] einsetzen muss sondern eine Variable die sich automatisch darauf bezieht. Gibt es so etwas?
  
  Nicht das ich wüsste, aber man kann es anders schreiben:
  
  Code (perl): (dl )
  
  if ( defined(my $_ = $ARGV[0]) ) { print }
  
  Oder:
  
  Code (perl): (dl )
  
  map print, grep defined, $ARGV[0];
  
  Dennoch finde ich persönlich das nachgestellte if schöner und würde deshalb auch ein paar mehr Zeichen tippen ;-)
  
  Quote
  Euch allen ein frohes Weihnachtsfest!
  
  Gleichfalls!
  
  edit: Wenn du das häufiger brauchst, kannst du dir ja auch eine Funktion schreiben. Diese würde ich dann auch gleich in ein Modul packen, braucht man ja eventuell nocheinmal.
  
  MfG
  Last edited: 2009-12-24 13:23:07 +0100 (CET)
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - murphy
    
    2009-12-24 14:30
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    2009-12-24T11:01:41 MatthiasW
    [...]
    Nicht das ich wüsste, aber man kann es anders schreiben:
    
    Code (perl): (dl )
    
    if ( defined(my $_ = $ARGV[0]) ) { print }
    
    [...]
    
    Man beachte, dass dieser Code erst ab Perl 5.10 funktioniert, da $_ als lexikalische Variable verwendet wird. Es geht aber auch mit nachgestelltem if und man kann falls nötig auch local für einen ähnlichen Effekt verwenden:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    do { # ENTWEDER my $_; # für Perl >= 5.10 # ODER local $_; # für Perl < 5.10 print if defined($_ = $ARGV[0]); print if defined($_ = $ARGV[42]); [...] };
    
    When C++ is your hammer, every problem looks like your thumb.

View all threads created 2009-12-24 09:42.