ハム活動記/2019-11-01
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[ハム活動記]]
*Mac バージョンあげたら [#gadd8fc5]
OSX10.15にバージョンアップしたら、自作のハムログソフト「L...
メモ記入の際、交信日や周波数を保存しておく、登録時に登録...
など
バージョンアップしたら、使えなくなってしまったので、仕方...
echo '保存する文字列' | pbcopy ←クリップにコピー
$pstr = pbpaste ←ペースト
こんな感じだ、%%しかも今まで文字コードがMacJapaniseだった...
そこで、エンコードとデコードも書き直した
まぁ、バージョンが上がれば、不具合も出る、チマチマと手直...
*以下にperlソースコード (クリップボードの読み書き)MacOS...
#
# クリップボードのテストプログラム
# 2019/10/30 by jr1gdy
#
use utf8;
use Encode qw/ from_to encode decode encode_utf8 decode_...
#以下テストプログラム
my $str1="テスト 123abc次の行\n";
my $str2="追加の 文字列追加の行\n";
&pb_clear();
my $pbstr = &pb_sum_copy($str1);
print encode_utf8("一回目 = $pbstr\n");
$pbstr = &pb_sum_copy($str2);
print encode_utf8("二回目 = $pbstr\n");
my $paste_str = &pb_paste();
print encode_utf8("クリップのペースト: $paste_str\n");
#&pb_clear();
print("Tyin >");
while(my $stdin = <STDIN>){ #キーボードからのテスト
if($stdin eq "q"){exit;}
$stdin = decode_utf8($stdin);
&pb_sum_copy($stdin);
}
print encode_utf8(&pb_paste);
#---サブルーチン----------------------------------------...
sub pb_clear{#クリップボードのクリア
`echo '' | pbcopy`;
}
#ペースト
sub pb_paste{
my $str = `pbpaste`;
$str =~ s/^\n//;#最初と最後に改行が入って来るので削...
chomp($str);
$str = decode('utf8', $str);
return $str;
}
#クリップへコピー
sub pb_copy{
my ($str)=@_;
$str = encode('MacJapanese',$str);
`echo '$str' | pbcopy`;
return;
}
#クリップへ追加コピー
sub pb_sum_copy{
my ($str) = @_;
my $sum_str = &pb_paste($str);
$sum_str .= $str;
&pb_copy($sum_str);
return $sum_str;
}
終了行:
[[ハム活動記]]
*Mac バージョンあげたら [#gadd8fc5]
OSX10.15にバージョンアップしたら、自作のハムログソフト「L...
メモ記入の際、交信日や周波数を保存しておく、登録時に登録...
など
バージョンアップしたら、使えなくなってしまったので、仕方...
echo '保存する文字列' | pbcopy ←クリップにコピー
$pstr = pbpaste ←ペースト
こんな感じだ、%%しかも今まで文字コードがMacJapaniseだった...
そこで、エンコードとデコードも書き直した
まぁ、バージョンが上がれば、不具合も出る、チマチマと手直...
*以下にperlソースコード (クリップボードの読み書き)MacOS...
#
# クリップボードのテストプログラム
# 2019/10/30 by jr1gdy
#
use utf8;
use Encode qw/ from_to encode decode encode_utf8 decode_...
#以下テストプログラム
my $str1="テスト 123abc次の行\n";
my $str2="追加の 文字列追加の行\n";
&pb_clear();
my $pbstr = &pb_sum_copy($str1);
print encode_utf8("一回目 = $pbstr\n");
$pbstr = &pb_sum_copy($str2);
print encode_utf8("二回目 = $pbstr\n");
my $paste_str = &pb_paste();
print encode_utf8("クリップのペースト: $paste_str\n");
#&pb_clear();
print("Tyin >");
while(my $stdin = <STDIN>){ #キーボードからのテスト
if($stdin eq "q"){exit;}
$stdin = decode_utf8($stdin);
&pb_sum_copy($stdin);
}
print encode_utf8(&pb_paste);
#---サブルーチン----------------------------------------...
sub pb_clear{#クリップボードのクリア
`echo '' | pbcopy`;
}
#ペースト
sub pb_paste{
my $str = `pbpaste`;
$str =~ s/^\n//;#最初と最後に改行が入って来るので削...
chomp($str);
$str = decode('utf8', $str);
return $str;
}
#クリップへコピー
sub pb_copy{
my ($str)=@_;
$str = encode('MacJapanese',$str);
`echo '$str' | pbcopy`;
return;
}
#クリップへ追加コピー
sub pb_sum_copy{
my ($str) = @_;
my $sum_str = &pb_paste($str);
$sum_str .= $str;
&pb_copy($sum_str);
return $sum_str;
}
ページ名: