コマンドからTeraTermのクリップボードへコピー

http://ks0608.hatenablog.com/entry/2012/09/15/054134

注意

encode_base64 した後の 4 KB (4096 Byte) までのデータしかコピーできない。

準備

• Tera Termで [設定]->[その他の設定]->[制御シーケンス]->[リモートからのクリップボードアクセス]->[書き込みのみ] を設定する。

 スクリプトの準備

pbcopy
の名前で、パスの通ったディレクトリに作成し、実行権限を与える。

 #!/usr/bin/env perl
 use strict;
 use warnings;
 use MIME::Base64;
 use Encode;
 binmode STDIN, ':encoding(utf8)';
  
 my $input = do {
 local $/;
 <STDIN>;
 };
 $input =~ s/ \n+ \z//xsm;
 $input = encode_base64( encode('cp932', $input), q{} );
  
 print "\e]52;;$input\e\\";

使い方

$ date | pbcopy
$ tree | pbcopy
$ pbcopy < file.txt