regex to match one nasty javascript line

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: regex to match one nasty javascript line by ikegami (Patriarch) on Nov 27, 2006 at 18:29 UTC
Get rid of `'+'` first, not last. `$js =~ s/'\+'//g; my ($url) = $js =~ m{(http://images\.site\.com/images/full/\d+/\d+/\d+ +\.jpg)};` [download]	[reply] [d/l] [select]
Re: regex to match one nasty javascript line by SheridanCat (Pilgrim) on Nov 27, 2006 at 18:30 UTC
Are you just trying to extract the link? `while( <DATA> ){ s\|\'\+\'\|\|g; m/.(http.)\"/; print $1, "\n"; } __DATA__ document.write('<'+'img '+'src='+'"http://im'+'ages.site.com/ima'+'ges +/full/'+'16/'+'167/1676892130'+'.jpg"'+'><'+'BR>');` [download]	[reply] [d/l]
Re^2: regex to match one nasty javascript line by johngg (Canon) on Nov 27, 2006 at 19:12 UTC
Just a minor point. Single- and double-quotes are not regular expression metacharacters so they don't need to be escaped. Cheers, JohnGG	[reply]
Re: regex to match one nasty javascript line by muba (Priest) on Nov 27, 2006 at 18:28 UTC
well... I'm not sure if this one will always work, it's just a quick and dirty hack - as soon as there is another `)` within the url or something, it's bound to break. It will also not work if there is a document.write line above this one. Let's divide the whole thing into a couple of steps first. Get the `document.write` line Get rid of the `'+'` things Only get the actual url, not the rest of that stuff Well, here goes.. `my ($url) = $website =~ m/document\.write$(.+?)$/; $url =~ s/'\+'//g; ($url) = $url =~ m/src="(.+?)">/;` [download]	[reply] [d/l] [select]
Re: regex to match one nasty javascript line by Cody Pendant (Prior) on Nov 28, 2006 at 03:41 UTC
Would you like to let us know which site you're downloading these images from? You're going to so much trouble, they must be very good images... ($_='kkvvttuu bbooppuuiiffss qqffssmm iibbddllffss') =~y~b-v~a-z~s; print	[reply]
Re^2: regex to match one nasty javascript line by Anonymous Monk on Jul 25, 2007 at 09:33 UTC
This is in perl? Have you considered replacing the "+"s with "."s, and then eval-ing the string? Then you don't need to worry about parenthesis.	[reply]
Re: regex to match one nasty javascript line by Anonymous Monk on Nov 28, 2006 at 03:12 UTC
`s/^.src=//g;<br> s/'\+'//g;<br> s/\.jpg.//g;<br> s/^"//g;<br> print<br> #publicdomain<br> # HINT: use a filehandle to get the string into $_, it's devilishly tr +icky without it...<br>` [download]	[reply] [d/l]
Re^2: regex to match one nasty javascript line by Anonymous Monk on Nov 28, 2006 at 03:13 UTC
shercat or w/e (sry, bad w/ names) did it better :-)	[reply]
Re: regex to match one nasty javascript line by Anonymous Monk on Nov 28, 2006 at 03:12 UTC
s/^.src=//g; s/'\+'//g; s/\.jpg.//g; s/^"//g; print #publicdomain # HINT: use a filehandle to get the string into $_, it's devilishly tricky without it...	[reply]
Re^2: regex to match one nasty javascript line by ikegami (Patriarch) on Nov 28, 2006 at 03:57 UTC
You don't need to use a filehandle to alias $_ to something. `for ($var) { ... }` works nicely.	[reply] [d/l]