Referenzierung von Teilmustern dynamisch ausgeben: Referenzierungs variable dynmaisch setze - #61725 (Allgemeines zu Perl)

bloonix

2006-01-12 12:15

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=eisbaermann,12.01.2006, 10:29]Für mich macht es nur wenig Sinn auf Grund dieses Problems strict abzuschalten.[/quote]

ach wo... es geht auch mit einem neuen Geltungsbereich
und "no strict 'refs';" :)

[quote=eisbaermann,12.01.2006, 10:29]
Gibt es also eine saubere Möglichkeit die Variable zu expandieren?[/quote]

ich hätte da zwei Möglichkeiten für dich ...

Code: (dl )

#!/usr/bin/perl -w
use strict;

# ein Teststring
my $string = "dies ist ein test";

# nummerierte Variable, die du ausgeben oder zwischenspeichern moechtest
my $desc = 2;

my @ausgabe = ($string =~ /^(dies) (ist) (ein) (test)$/);

# kurz strict 'refs' deaktivieren in einem eigenen Geltungsbereich
{ no strict 'refs'; print "${$desc}\n"; }

# Da Arrays mit 0 beginnen, musst du bei $desc minus 1 rechnen.
print "$ausgabe[--$desc]\n";

Also entweder kannst du mit no strict oder mit einem Array
arbeiten.\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.