Google Notebookに代わるクリッピングツール
Google Notebookが開発終了するという事で、代替のWEBクリッピングツールを探しましたが、私の探し方が悪いのか良い物が見つかりません。
そこで、GMailを利用したデータ管理と、クリッピング方法について考えます。
使用するアプリケーション
Perl
smail(http://www.picolix.jp/)
※smailはEva LibRary様が開発されている、メール送信専用のコマンドラインユーティリティです。
ローカル
バッチファイルとPerlScriptでファイルまたはクリップボードに格納されている文字列をGMailへ送信
ソースは以下のとおり
メール送信.bat
@ECHO OFFD:\TEMP\gmclip.pl %*>D:\TEMP\log.txt
IF NOT %ERRORLEVEL% == 0 (
ECHO エラー発生
pause
)
gmclip.pl
#*****************************************
#* スクラップブックサポート
#* クリップボードの文字列またはドラッグしたファイルをメールで送信use strict;
use Win32::Clipboard;# smailのpath
my $smail = "D:\\usr\\local\\smail\\smail.exe";# SMTP(送信) Server名
my $smtp = "smtp.example.com";# 送信元メールアドレス
my $sender = "△△△△△@example.com";# サブジェクト
my $subject = "[データクリッピング]";# smailの一時ファイル
my $temp = "C:\\TEMP\\mail.txt";# 送信先のメールアドレス
my $address = "○○○○○@gmail.com";# 添付ファイルオプション生成
my $file = &attached(@ARGV);
# 本文ファイル生成
if(&putHonbun($file)){
exit(1);
}# メール送信
if(&mailpost($smail,$smtp,$sender,$subject,$temp,$file,$address)){
exit(1);
}# 本文ファイル削除
if(&delHonbun($temp)){
exit(1);
}exit(0);
#*****************************************
#* 添付ファイルオプション生成
sub attached{
my @f = @_;my $file = "";
# 添付ファイルが指定されている場合
if($f[0] ne ""){
# 添付ファイルが複数指定されている場合
# "hoge" "hoge" "hoge" ←こんな形にする
$file = "\"".join("\",\"",@f)."\"";
}
return($file);
}#*****************************************
#* 本文ファイル生成
sub putHonbun{
my $file = $_[0];my $text = "";
my $clip = Win32::Clipboard();
# 本文内容取得
if($file ne ""){
# 添付ファイルがある場合
$text = "ファイルを送信しました。";
}elsif($clip->IsText()){
# クリップボード内容がある場合
$text = $clip->GetText();
}# 本文ファイル書き出し
if($text ne ""){
if(! open(OUT,">$temp")){
return(1);
}
print OUT $text;
close(OUT);
}
return(0);
}#*****************************************
#* メール送信
sub mailpost{
my $smail = $_[0]; # smailの絶対パス
my $smtp = $_[1]; # SMTPサーバ
my $sender = $_[2]; # 送信元メールアドレス
my $subject = $_[3]; # サブジェクト
my $temp = $_[4]; # 本文ファイル保存先の絶対パス
my $addf = $_[5]; # 添付ファイル
my $address = $_[6]; # 送信先メールアドレス# 本文ファイルの有無を確認
if(! -f $temp){
return(1);
}# 添付ファイルがある場合、オプションを生成
if($addf ne ""){
$addf = " -a".$addf;
}# コマンド生成
my $command = sprintf("\"%s\" -h%s -f%s -s\"%s\" -F\"%s\"%s %s",$smail,$smtp,$sender,$subject,$temp,$addf,$address);# コマンド実行
if(system($command)){
print $command."...×\n"; #エラーログ
return(1);
}
return(0);
}#*****************************************
#* 本文ファイル削除
sub delHonbun{
my $temp = $_[0];if(system("DEL $temp")){
print "本文ファイルが削除できませんでした。\n";
return(1);
}
return(0);
}
GMail側
特になし
