[ILUG] one for the Perl RE wizs

[Mark McLoughlin]

On Mon, 11 Dec 2000, JustinMacCarthy wrote:

> Hi ,
>
> 	I want to write a little Perl script , that opens a file a gets all values
> for id (eg: myid) in all expressions like <a href="http://www.iol.ie"
> id="myid"> where this expression can appear over multiple lines or several
> times on a line.
>
> I want to print the match to another file...
> Anyone point me the right direction ?
>
> Thanks
>
> Justin
>

This isn't one of those mad RE with backreferences and across ultiple lines
and stuff ( couldn't get it to work ;) ) but it'll do what you want...

ids.pl infile.text > outfile.txt


#!/usr/bin/perl

$_ = join( '' , <> );

while ( $_ =~ /<a[^>]*?id="(.*?)"[^>]*?>/ ) {
   print $1 , "\n";
   $_ = $';
   }


Good Luck,
Mark