Variable gesucht - #129649 (Allgemeines zu Perl)

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 )

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.