use Perl

• Open the urls! (Score:1)

  by ChrisDolan (2855)

  This works on my Mac (change "/usr/bin/open" to the right command on your system). It searches the dictionary for words ending in "us". It picks a random one from that list, checks if it's a valid web host, and opens a browser tab to that site. Everytime it finds a host, it sleeps for 15 minutes to give you time to enjoy the site.
  
  My first find was http://zygomatic.us/ [zygomatic.us]
  
  #!perl -w
  use strict;
  use Socket;
  use LWP::Simple qw(head);
  $| = 1;
  open my $fh, ';
  close $fh;
  print "Found ".@words." candidates\n";
  while (@words
  • Re:Open the urls! (Score:1)

    by ChrisDolan (2855)

    Uhh, sorry, slashcode ate my open() command. Take 2:
    
    
#!perl -w
use strict;
use Socket;
use LWP::Simple qw(head);
$| = 1;
open my $fh, '<', '/usr/share/dict/words';
my @words = grep {/us$/m} ;
close $fh;
print "Found ".@words." candidates\n";
while (@words > 0) {
      my $word = splice @words, int(rand scalar @words), 1;
      (my $host = $word) =~ s/us\s*\z/.us/s;
      print '.';
      next if (!inet_aton($host));
      my $url = "http