PERL Beginners - Re: How to split a large string with repeating delimiters into multiple

Author

Re: How to split a large string with repeating delimiters into multiple

Rob Dixon

2007-05-23, 6:59 pm

Michael Goopta wrote:
>
> I am new to Perl.
>
> How can I split the below string and get the multiple
> web-addresses in a list: (i.e. the strings between <upsl-url>
> and </upsl-url>
>
> <upsl-url>http://view-preprod.admission.net/a...;t=ts/r:199x199</upsl-url><upsl-url>http://view-preprod.admission.net/a...:199/h:124&
t=ts/r:199x199</upsl-url>
> </ad-type>
>
> Any help is appreciated.

Hi Michael

The following code will extract all substrings consisting of of 'http:' and all
following characters that aren't '<'. The two URLs appear to be identical in your
example.

Hope this helps,

Rob

use strict;
use warnings;

my $text = '<upsl-url>http://view-preprod.admission.net/a...;t=ts/r:199x199</upsl-url><upsl-url>http://view-preprod.admission.net/a...m:FitPad/w:199/
h:124&t=ts/r:199x199</upsl-url>';

my @urls = $text =~ /http:[^<]+/g;

print "$_\n" foreach @urls;

**OUTPUT**

http://view-preprod.admission.net/a...;t=ts/r:199x199
http://view-preprod.admission.net/a...;t=ts/r:199x199

Sponsored Links