Ausgabe von Matches - #100303 (Allgemeines zu Perl)

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/