RegEx: $1,$2,$3,...,$n in ein Array (Allgemeines zu Perl)

Matze

2006-05-01 17:56

User since
2005-08-29
222 Artikel
BenutzerIn

Ich hole mir eine RegularExpression in der natürlich auch Ausdrücke
in Klammern vorkommen in meine Funktion.
Nun möchte ich, dass die Variablen $1,$2,$3,...,$n zurück-gegeben
werden.
Leider ist die Zahl der Variablen unbgrenzt(man kann unendlich
viele Klammern schreiben). Und ich würde gerne wissen, ob ich
vielleicht die Variablen irgendwie in ein Array bekomme, oder ob
es anders möglich wäre sie alle zurückzugeben.
Die Anzahl der $1...$n hole ich mir auch:

Mein Versuch:

Code: (dl )

# $last = n aus $n

for my$i (1..$last) {
   push(@arr,${$i});
}

MfG. Matze

Mit freundlichen Grüßen: Matze

pq

2006-05-01 18:10

User since
2003-08-04
12208 Artikel
Admin1

wenn du alle gematchten ausdrücke in einem array haben willst, warum
machst du das nicht gleich beim matchen?

Code: (dl )

$ perl -wle'$_="test";
my @array = m/(\w)(e)(.)/;
print for @array'
t
e
s

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Matze

2006-05-01 18:25

User since
2005-08-29
222 Artikel
BenutzerIn

Danke!
Das hat funktioniert.

MfG. Matze

Mit freundlichen Grüßen: Matze

betterworld

2006-05-01 19:30

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Auch wenn das Problem schon geloest ist, moechte ich noch die eigentliche Frage beantworten:

Code: (dl )

use Data::Dumper;
my $var = "hallo";
$var =~ /(.)(..)(.)/ or die;
my @array;
for (1..$#+) {
  push @array, substr($var, $-[$_], $+[$_] - $-[$_]);
}
print Dumper \@array;

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

murphy

2006-05-02 00:16

User since
2004-07-19
1776 Artikel
HausmeisterIn

@betterworld: Hässlicher geht's nicht mehr, oder? Aber ich hätte da noch einen Verbesserungsvorschlag: Statt

Code: (dl )

substr($var, $-[$_], $+[$_] - $-[$_])

könnte man auch

Code: (dl )

${$_}

schreiben, strict benutzt dein Beispiel ja sowieso nicht ;-)

When C++ is your hammer, every problem looks like your thumb.

betterworld

2006-05-02 03:49

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

[quote=murphy,01.05.2006, 22:16]@betterworld: Hässlicher geht's nicht mehr, oder? Aber ich hätte da noch einen Verbesserungsvorschlag: Statt

Code: (dl )

substr($var, $-[$_], $+[$_] - $-[$_])

könnte man auch

Code: (dl )

${$_}

schreiben, strict benutzt dein Beispiel ja sowieso nicht ;-)[/quote]
${$_} bedeutet Dereferenzieren von $_. Aber in meinem Code ist $_ keine Referenz. Liegt nicht vielleicht ein Missverständnis vor?

Ferner ist mein Code strict-konform, ich habe bloß "use strict" der Uebersichtlichkeit zuliebe weggelassen.

Code: (dl )

Hässlicher geht's nicht mehr, oder?

Sorry, aber ich wuesste wirklich keine andere Moeglichkeit, um an $1, $2, etc. ohne eval und ohne zu wissen, wie viele es sind, heranzukommen.

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

betterworld

2006-05-02 03:55

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

[quote=betterworld,02.05.2006, 01:49]ich wuesste wirklich keine andere Moeglichkeit, um an $1, $2, etc. ohne eval und ohne zu wissen, wie viele es sind, heranzukommen.[/quote]
Korrigiere: ohne eval und symbolische Referenzen.

Jetzt habe ich verstanden, was Du mit ${$_} meinst. (Ich hätte es probieren sollen, bevor ich antworte...) Du hast natuerlich Recht, nur wie Du selber schon sagst, ist das nicht strict-konform.\n\n

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Matze

2006-05-03 17:49

User since
2005-08-29
222 Artikel
BenutzerIn

@betterworld: Danke für deine Antwort!
Was steht denn in den Variablen @- und @+ sonst noch so drin ?
Oder sind es nur spezial Variablen für RegEx ?

MfG. Matze

Mit freundlichen Grüßen: Matze

renee

2006-05-03 19:43

User since
2003-08-04
14371 Artikel
ModeratorIn

Die Erklärung für solche Variablen findest Du in perlvar.

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Matze

2006-05-04 17:04

User since
2005-08-29
222 Artikel
BenutzerIn

Danke renee!

Mit freundlichen Grüßen: Matze