MacのFinderで右クリックからGoogle画像検索する方法

2018/10/20 2018/10/20 Mac関連

今回は、MacのFinderで画像を右クリックして表示されるメニューに「Google画像検索」（似た画像検索）を追加する方法を紹介します。

使うのはAutomatorです！

ではやり方を紹介します。

1 やり方
2 使い方

やり方

Step1. Automatorを開いてください。

Step2. 開いたら「クイックアクション」（Mojave以外だとサービス）を選択してください。

Step3. 画面上部にある「ワークフローが受け取る現在の項目」を「イメージファイル」にして、検索対象を「Finder.app」としてください。

Step４. ライブラリからフローに「シェルスクリプトを実行」を配置してください。

Step5. ライブラリからフローに「Webページを表示」を配置してください。

Step6. 「シェルスクリプトを実行」に表示されている「シェル」を「/usr/bin/perl」に、「入力の引き渡し方法」を「引数として」にしてください。

Step7. 「シェルスクリプトを実行」のコード部分に次のコードをコピー・アンド・ペーストしてください。

foreach (@ARGV) {
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use warnings;

# POST準備
my $url = 'http://images.google.com/searchbyimage/upload';
my $fn = $_;
my $request = POST( $url, 
                'Content_Type' =&gt; 'multipart/form-data', 
                'Content' =&gt; ['encoded_image' =&gt; [$fn]] );

# 送信
my $ua = LWP::UserAgent -&gt; new;
my $res = $ua -&gt; request( $request ) -&gt; as_string;
my @lists = split("&lt;A HREF=\"", $res);
my @list1 = split("\"&gt;here&lt;/A&gt;", $lists[1]);
print $list1[0];
}

foreach (@ARGV) {

use strict;

use LWP::UserAgent;

use HTTP::Request::Common;

use warnings;

# POST準備

my $url = 'http://images.google.com/searchbyimage/upload';

my $fn = $_;

my $request = POST( $url,

'Content_Type' => 'multipart/form-data',

'Content' => ['encoded_image' => [$fn]] );

# 送信

my $ua = LWP::UserAgent -> new;

my $res = $ua -> request( $request ) -> as_string;

my @lists = split("<A HREF=\"", $res);

my @list1 = split("\">here</A>", $lists[1]);

print $list1[0];

}

Step8. クイックアクションを保存してください。これでFinderで画像を右クリックしたらクイックアクションが表示されるようになったと思います。

使い方

画像を選択して右クリックで「画像検索」をクリックするだけ！ブラウザが開いて画像検索画面が表示されます。

ma より:

2018年12月29日 10:47 PM

試してみたのですが、”@lists”と”$list1″に厳密なパッケージ名を要求されました
初心者のため、どのようにして良いのかわからないので、
宜しければアドバイスをお願いします。

ーーー
アクション“シェルスクリプトを実行”でエラーが起きました:
“Global symbol “@lists” requires explicit package name at -e line 17.
Global symbol “@list1” requires explicit package name at -e line 18.
Execution of -e aborted due to compilation errors.”

返信
- PHEXCEL より:
  
  2018年12月30日 5:45 PM
  
  申し訳ありません。
  ソースコードの表示に一部誤りがありました。
  現在は修正いたしましたので、もう一度お試しいただけますと幸いです。
  
  返信
  - ma より:
    
    2019年1月3日 10:25 AM
    
    ソースコードの更新ありがとうございました。
    正常に動作することを確認いたしました。
    
    返信