Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Regex partial substitution from array

by Stevie-O (Friar)
on Dec 15, 2004 at 19:54 UTC ( #415174=note: print w/replies, xml ) Need Help??


in reply to Regex partial substitution from array

I'd just like to point that
while (m@href=\"\./\d+\.html\">(.+)</a>@g) {push (@array, $1);}
can be better written as
@array = m@href=\"\./\d+\.html\">(.+)</a>@g;
--Stevie-O
$"=$,,$_=q>|\p4<6 8p<M/_|<('=> .q>.<4-KI<l|2$<6%s!<qn#F<>;$, .=pack'N*',"@{[unpack'C*',$_] }"for split/</;$_=$,,y[A-Z a-z] {}cd;print lc

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://415174]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (3)
As of 2017-09-22 02:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (255 votes). Check out past polls.

    Notices?