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


{{category2 OS,Linux}}