11 lines
331 B
Perl
Executable File
11 lines
331 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
# Created by Ben Okopnik on Tue Feb 12 07:03:34 CST 2002
|
|
exec "links", "www.google.com/advanced_search" unless @ARGV;
|
|
|
|
my $s = "";
|
|
for ( @ARGV ){ s/.*/%22$&%22/ if y/ /+/; $s .= $s?"+$_":"$_"; }
|
|
|
|
# $ENV{LANG} = "en_US.UTF8";
|
|
exec "links", "www.google.com/search?num=30&hl=en&as_qdr=all&q=$s&btnG=Google+Search"
|
|
|