Opened by firstday at 2013-04-24 19:20
Code (perl): (dl
)
1 2 3 4 5 6
my $string = "[URL]http://www.perl-community.de[/URL]; while($string=~m!\Q[URL]\E(.*?)\Q[/URL]\E!c) { my $url=$1; print $url."\n"; }
Nebenbei das erste Argumnet von split ist eine Regex. Bei dir steht:
Code (perl): (dl
)
@1 = split (/[URL]/,$a);
es wird also an U, R und L getrennt.
Last edited: 2013-04-24 20:05:15 +0200 (CEST)