Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^3: Eugh, regex :(

by Utilitarian (Vicar)
on Mar 25, 2009 at 10:09 UTC ( [id://753085]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Eugh, regex :(
in thread Eugh, regex :(

Quick and dirty one line example. you need to escape the [] in the substitution. 
 
perl -e '$post_message="[URL=http://img207.imageshack.us/my.php?image=
+dsc03598vt7.jpg][IMG]http://img207.imageshack.us/img207/2964/dsc03598
+vt7.jpg[/IMG][/URL]"; $post_message =~ s|^.*?\Q[img]\E([\?\%\:\/a-zA-
+Z0-9_\-\.]+)\Q[/img]\E.*$|\[img\]$1\[/img\]|sig;print "$post_message\
+n";'

[download]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://753085]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2024-04-24 08:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found