Ausgabe von Matches (Allgemeines zu Perl)

Gast Gast

2007-09-28 18:04

Hallo

Ich benötige etwas Hilfe bei einem regulären Ausdruck bzw. bei der Ausgabe der Matches. Ich möchte aus $_ alle Ausdrücke ausgeben, die in eckigen Klammern stehen.
Beim String "blabb [xyz] blaba [xy xz] [zxy] bla" soll
xyz
xy xz
zxy
ausgegeben werden.

Code: (dl )

foreach ( /(\[.*?\])/g ) {
	print $1;
	print "\n";
}

... gibt mir leider nicht das Gewünschte aus. Was muß ich ändern? Danke schon mal.

Heinz

Jense

2007-09-28 19:40

User since
2007-09-28
2 Artikel
BenutzerIn
[default_avatar]

Das sollte klappen:

Code: (dl )

1
2
3

if(my(@matches) = $_ =~ m/(\[.*?\])/g) {
      print "$_\n" for @matches;
  	}

Gruß
Jens

renee

2007-09-28 20:16

User since
2003-08-04
14371 Artikel
ModeratorIn

Das "if" brauchst Du nicht. Wenn keine Treffer vorhanden sind, ist "@matches" leer...

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/

Strat

2007-10-05 01:40

User since
2003-08-04
5246 Artikel
ModeratorIn

Gast+2007-09-28 16:04:24--
Code: (dl )
1
2
3
4
foreach ( /(\[.*?\])/g ) {
	print $1;
	print "\n";
}

Versuche mal anstelle von $1 $_ (das ist die Laufvariable von for(each), wenn keine explizite angegen wurde... aber der weg

Code: (dl )

1
2
3

if( my(@matches) = $_ =~ m/(\[.*?\])/g ) {
      print "$_\n" for @matches;
}

gefaellt mir auch besser

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

renee

2007-10-05 10:39

User since
2003-08-04
14371 Artikel
ModeratorIn

Ein

Code (perl): (dl )

1
2

my @matches = $_ =~ m/(\[.*?\])/g;
print "$_\n" for @matches;

reicht... (wie ich weiter oben schon geschrieben habe)

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/