ターミナルからGoogle検索をかける

ターミナルから直接Web検索をかけるられるようにperlでスクリプト組んだらすごい便利だった。

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Encode;

our $args = decode_utf8($ARGV[0]);
foreach my $i (1 .. $#ARGV) { 
    $args = $args . "+" . decode_utf8($ARGV[$i]);
}
our $num = 10;
our $url = "http://www.google.com/search?hl=ja&ie=UTF-8&num=$num&q=$args";
our $cmd = "x-www-browser \"$url\"";
print "Query: \"$args\"\n";
print "Launching a web browser...\n";
system($cmd);