質問編集履歴
1
り
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -17,7 +17,7 @@
|
|
|
17
17
|
use Encode;
|
|
18
18
|
|
|
19
19
|
# Google APIを使用するために必要となる情報
|
|
20
|
-
my $google_key = "
|
|
20
|
+
my $google_key = "yourgoogleapikey";
|
|
21
21
|
my $google_wdsl = "GoogleSearch.wsdl";
|
|
22
22
|
my $gsrch = SOAP::Lite->service("file:$google_wdsl");
|
|
23
23
|
my $query = join(" ", @ARGV) . ' site:co.jp';
|