in reply to Parsing web pages (sort of)

# Would like to see the page source but this will work
# for one target string per line.

# $_ contains mypage.html
 
print $1 if /\s(DE\d{6})/;

[download]

Replies are listed 'Best First'.
RE: Re: Parsing web pages (sort of)
by lhoward (Vicar) on May 25, 2000 at 19:30 UTC
    I came up with this code: 
    perl -n -e 'while(m/\b(DE\d{6})/g){print "$1\n";}' mypage.html

    [download]
    There is also this slight variation: 
    perl -n -e 'print "$1\n" while(/\b(DE\d{6})/g)' mypage.html

    [download]
    but I prefer the first because as a general rule I don't like suffixing statments with conditionals except for error handling.

    It is slightly longer but does handle multiple matches in a line and it also breaks apart the output to one "DE" per line.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom