jw_cad 外部変形 - (1258) perlでクリップボードを使う -

外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。

 

perlクリップボードを使う

:perlクリップボードを使う
@echo off
perl -x %~f0 > jwc_temp.txt
goto:eof

REM #jww
REM #e

#!perl
use Win32::Clipboard;

$str = "ようこそ ありがとう";
Win32::Clipboard::Set($str);
$text = Win32::Clipboard::GetText();
print "h#clip=$text\n";
Win32::Clipboard::Empty();
__END__