MixenDixon Posted April 16, 2010 Posted April 16, 2010 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")' Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.