print random commandlinefu.com submission

lynx -source http://www.commandlinefu.com/commands/random | sed 's/<[^>]*>//g' | head -1037 | tail -10 | sed -e 's/^[ \t]*//' | sed '/^$/d' | head -2
ok I'm sure it's not pretty
Sample Output
Terminal - runs a bash script in debugging mode    
bash -x ./post_to_commandlinefu.sh

-2
By: lxtips
2009-06-02 09:48:59

These Might Interest You

What Others Think

How about this. It only needs one call to sed: links -dump -no-numbering -no-references http://www.commandlinefu.com/commands/random | sed -e '/Add to favourites/,$d' -e '1,/_____________________/d'
flatcap · 468 weeks and 5 days ago
nice thanks
lxtips · 468 weeks and 5 days ago
Hi guys, your snippet is not reliable that way. By example with & or spaces, the output is broken. This one is longer as yours but reliable : perl -MHTML::TreeBuilder -MWWW::Mechanize -e 'my $b = WWW::Mechanize->new( autocheck => 1 ); $b->get("http://www.commandlinefu.com/commands/random"); my $t = HTML::TreeBuilder->new_from_content(\$b->content); for ($t->look_down("_tag", "div", "id", "window-bar")) { print "Description :", $_->as_text, "\n"; } for ($t->look_down("_tag", "div", "class", "line")) { print $_->as_text, "\n"; } $t = $t->delete;' If I'ill have time to spent, I'll try to make it shorter...
sputnick · 468 weeks and 5 days ago
A little bit shorter : perl -MHTML::TreeBuilder -MWWW::Mechanize -e 'my $b = WWW::Mechanize->new; $b->get("http://www.commandlinefu.com/commands/random"); my $t = HTML::TreeBuilder->new_from_content(\$b->content); $te = $t->look_down("_tag", "div", "id", "window-bar"); $tl = $t->look_down("_tag", "div", "class", "line"); for ($te, $tl) { print $_->as_text, "\n"; }; $t = $t->delete;'
sputnick · 468 weeks and 5 days ago
hi sputnick i get: Can't locate WWW/Mechanize.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .). BEGIN failed--compilation aborted. do i need to install something?
lxtips · 468 weeks and 4 days ago
lxtips : run this command as root to auto-install needed perl modules : # for m in HTML::TreeBuilder WWW::Mechanize; do perl 2>/dev/null -e "use ${m}" || cpan -i ${m}; done
sputnick · 468 weeks and 4 days ago

What do you think?

Any thoughts on this command? Does it work on your machine? Can you do the same thing with only 14 characters?

You must be signed in to comment.

What's this?

commandlinefu.com is the place to record those command-line gems that you return to again and again. That way others can gain from your CLI wisdom and you from theirs too. All commands can be commented on, discussed and voted up or down.

Share Your Commands



Stay in the loop…

Follow the Tweets.

Every new command is wrapped in a tweet and posted to Twitter. Following the stream is a great way of staying abreast of the latest commands. For the more discerning, there are Twitter accounts for commands that get a minimum of 3 and 10 votes - that way only the great commands get tweeted.

» http://twitter.com/commandlinefu
» http://twitter.com/commandlinefu3
» http://twitter.com/commandlinefu10

Subscribe to the feeds.

Use your favourite RSS aggregator to stay in touch with the latest commands. There are feeds mirroring the 3 Twitter streams as well as for virtually every other subset (users, tags, functions,…):

Subscribe to the feed for: