MixenDixon
-
Posts
1 -
Joined
-
Last visited
MixenDixon's Achievements
Newbie (1/14)
0
Reputation
-
Can someone convert this one line of code for me: perl -MWWW::Mechanize -e '$m = WWW::Mechanize->new; $_=shift; ($i) = /v=(.+)/; s/%(..)/chr(hex($1))/ge for (($u) = $m->get($_)->content =~ /l_map": .+(?:%2C)?5%7C(.+?)"/); print $i, "\n"; $m->get($u, ":content_file" => "$i.flv")'