Untitled
public text v1 · immutable#!/usr/bin/perl
use URI::Escape;
$query = join(" ", @ARGV);
$query = uri_escape($query);
$url = "http://www.google.com/search?q=" . $query;
$text = `lynx -dump $url`;
$text =~ m/Results 1 - \d+ of about ([\d\,]+)/i;
$number = $1;
$number =~ s/\,//gi;
print $number;