On Sun, 16 Jan 2005 18:36:09 +0500 "Sara" <[EMAIL PROTECTED]> wrote:
> I am trying to extract links along with HTML tags <a href=blah> from a > list, but it's not working on my XP machine with Active State Perl > 5.0.6 Kindly help. > > ################# CODE START #################### > > my @array = qq| > <body><a href="http://www.mydomain.com";><img alt="Free Hosting, > Freebies" border=0 > src="http://www.mydomain.com/images/logo2.gif";></a>|;#extract LINKS > (no image links) only <a href="http://www.mydomain.com";> > > my @get = grep {/<a .*?>/} @array; > print "@get\n" > > ################### CODE END ################### > > Thanks, > > Sara. > this is also possible _without_ any modules, except maybe "strict". # this will replace the contents of each match in @get foreach(@array){ my @get = $_ =~ /<a href="(.*?)">/g; } or: # this will add each match to @get my @get = (); foreach(@array){ push @get, $_ =~ /<a href="(.*?)">/g; } -- Cheers, Alex -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
![http://www.mydomain.com/images/logo2.gif"](http://www.mydomain.com/images/logo2.gif"){kind=link}