Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # http://mojolicio.us/perldoc/ojo
- # https://groups.google.com/d/msg/mojolicious/iTVzzjX5pPQ/ExAQmeRZ5UMJ
- # http://www.useragentstring.com/pages/useragentstring.php
- alias Mj="mojo get -r"
- #####
- for f in $(seq 62); do echo $f; mojo get http://www.europe1.fr/emissions/au-coeur-de-l-histoire?page=$f 'a.title,span.title>div>p' >> franck_ferrand_au_coeur_de_l_histoire.html; done
- #####
- perl -Mojo -E'g("https://www.google.com/search?tbm=isch&q=shell%20script", { "User-Agent" => "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.17 Chrome/24.0.1312.57" })->dom(".rg_l")->map(sub { m!href="http://www.google.com/imgres\?imgurl=(.*?)&! and $1 } )->join("\n")->say' | head -50 | xargs -n 1 -P 8 wget -q
- #####
- perl -Mojo -E'g("https://www.google.com/search?tbm=isch&q=linux%wallpaper%20filetype:png&tbs=isz:ex,iszw:1920,iszh:1080,ic:specific,isc:orange", { "User-Agent" => "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.17 Chrome/24.0.1312.57" })->dom(".rg_l")->map(sub { m!href="http://www.google.com/imgres\?imgurl=(.*?)&! and $1 } )->join("\n")->say' | head -10 | xargs -n 1 -P 8 wget -q
- #####
- perl -Mojo -E 'say g("http://www.dell.com/support/my-support/us/en/04/product-support/servicetag/167CXW1")->dom->find("div.span6 a[href^=#warrantyModal]")->text'
- #####
- export MOJO_MAX_REDIRECTS=0 # No redirects
- export MOJO_PROXY=0 # Proxy off
- export MOJO_USERAGENT_DEBUG=1 # Show full http trace
- #####
- mojo get /
- mojo get --header 'X-Bender: Bite my shiny metal ass!' mojolicio.us
- mojo get https://api.metacpan.org/v0/author/SRI /name
- mojo get http://w1.weather.gov/xml/current_obs/KBUR.xml temp_f 0 text
- mojo get http://www.google.com/finance?q=AAPL ".pr > #ref_22144_l, .ch > #ref_22144_cp text"
- mojo get -H 'X-Bender: Bite my shiny metal ass!' mojolicio.us
- mojo get --method POST --content 'trololo' mojolicio.us
- mojo get mojolicio.us
- mojo get mojolicio.us a attr href
- mojo get mojolicio.us '*' attr id
- mojo get mojolicio.us .footer all
- mojo get mojolicio.us 'h1, h2, h3' 3 text
- mojo get mojolicio.us 'head > title' text
- mojo get -M POST -c 'trololo' mojolicio.us
- mojo get -r http://osx.iusethis.com/appcast/corebreach title text
- mojo get -r http://osx.iusethis.com/app/corebreach link
- mojo get -r iusethis.com 'h2 a' attr href
- mojo get -r metacpan.org/feed/recent title text | grep Mojo
- mojo get -v -H 'Host: mojolicious.org' -H 'DNT: 1' mojolicio.us
- mojo get -v -r google.com
- mojo get www.reddit.com/r/perl/ 'p.title > a.title' text
- mojo get www.reddit.com "a.title[href^=http://i.imgur.com]" attr href
- #####
- perl -Mojo -E 'a("/hello" => {text => "Hello Mojo!"})->start' daemon # a -> any route
- perl -Mojo -E'a({json => {foo => ["bar"]}})->start' get / /foo/0
- perl -Mojo -E'a("/:name" => {inline => "Hi !"})->start' get -v /foo
- perl -Mojo -E 'a(sub { shift->render(json => {time => time}) })->start' daemon
- perl -Mojo -e 'a("/*x" => {x => "", text => "<center><h1>Down for maintenance!"})->start' daemon
- perl -Mojo -E 'b(g("mojolicio.us")->body)->html_unescape->say' # b -> bytestream
- perl -Mojo -E'g("metacpan.org/feed/recent")->dom("item > title")->grep(qr/\Q$ARGV[0]\E/i)->each(sub { $_->parent->find("title,description")->pluck("text")->join(": ")->say } )' mojo
- perl -Mojo -E'g("metacpan.org/search?q=mojo")->dom("big a")->pluck("text")->join("\n")->spurt("m.txt")'
- perl -Mojo -E'g("mojolicio.us")->dom("h1, h2, h3")->map(sub { $_->text })->shuffle->join("\n")->say'
- perl -Mojo -E'say a->text_field("foo", value => "bar")'
- perl -Mojo -E 'say g("example.com")->code'
- perl -Mojo -E 'say g("http://w1.weather.gov/xml/current_obs/KBUR.xml")->dom("temp_f")->first->text'
- perl -Mojo -E 'say g("mojolicio.us")->dom->at("title")->text'
- perl -Mojo -E 'say g("mojolicio.us")->dom("h1, h2, h3")->pluck("text")' # g -> get
- perl -Mojo -E 'say g("mojolicio.us")->dom("h1, h2, h3")->text' # g -> get
- perl -Mojo -E'say g("mojolicio.us")->dom("*")->pluck("type")->uniq'
- perl -Mojo -E'say g("reddit.com")->dom("*")->pluck(attrs => "href")->grep(qr/^http/)->grep(sub { $_ !~ /reddit.com/})->uniq'
- perl -Mojo -E'say g("reddit.com")->dom("*")->pluck(attrs => "href")->grep(qr/^http/)->uniq'
- perl -Mojo -E 'say r(g("example.com")->headers->to_hash)' # r -> dumper
- perl -Mojo -E'say r g("search.twitter.com/search.json?q=perl")->json'
- perl -Mojo -E 'say r(h("http://google.com"))' # h -> HEAD r -> dumper
- perl -Mojo -E 'g("https://news.ycombinator.com/")->dom->find("a")->map(attr => href)->grep(qr/^http/)->join("\n")->say'
- #####
Add Comment
Please, Sign In to add comment