クリップボード操作 / [win][perl] | 戯術者の日記
Win32モジュール使用 テキストをセット use Win32::Clipboard; Win32::Clipboard("foo\nbar"); または $clip = Win32::Clipboard(); $clip->Set("foo\nbar"); テキストのゲット $getstring = $clip->GetText(); テキスト以外でもとにかくクリップボードの中をゲット $buffer = $clip->Get(); クリップボードの内容の消去 $clip->Empty(); ターミナルへの表示をマウスでコピペするのが嫌で STDIN をクリップボードにセットするスクリプトを書いたが、cygwin 環境のためか割りと重い… というか、悲しいくらいデリファレンスの書き方を忘れてる orz 前のエントリ: diff オプション再帰編 [command] 次のエントリ: タブ幅
ActivePerlでLF(0x0a)単体の出力 / [win][programming][perl] | 戯術者の日記
ActivePerlだと、"\n"は当然、"\x0a"でも、出力時に 0x0d が着いちゃうんだよね。 0x0a 単体を出力するには、(UNIX/Linux作業時は半ばおまじないと化していた) binmode を使用する。 binmode STDOUT; print "\n"; これで 0x0a 単体。 ファイルハンドル出力なら open F, "> file.txt" or die; binmode F; print F "\n"; close F; もはや Windows 上での開発(C/C++)のソース解析・修正用にしか使ってないな・・・＜Perl 前のエントリ: GD::Barcode::QRcodeでQRコード作成 [perl] 次のエントリ: ActivePerlはワイルドカード＆<>が使えん [perl] 2013 : 01 02 03 04 05 06 07 08 09 1
WindowsのShift-JIS環境でjperl から perl 5.8.X への移植
わりとよく使っているらしいWindows 環境 のjperl（ActivePerl 5.005へのパッチか？） のプログラムが動かないといわれたので、ActivePerl 5.8.X で動くように修正した。 プログラムの内容はShift-JISのテキストファイルを特定の形式に変更するもの。プログラムの内容はできるだけ修正したくないので、ソースファイルを UTF-8 に変更しプログラムの先頭に次の行を追加した。 use utf8; use open IO => ":encoding(cp932)", ":std"; つまり、1行めでソースコードは utf8であることを明示。2行目で機種依存コードを含む Shift-JISコードファイルの入出力を行い、ついでに標準入出力も Shift-JISに設定したということ。 これで処理すべきファイル8個のファイルのうち7個までは正常に処理できた。 異常の
最速インターフェース研究会 :: PerlでIEの履歴にアクセスする方法
こんなんで出来た。 use strict; use Win32::OLE; use Data::Dumper; my $wshell = Win32::OLE->new('Shell.Application') or die "oops\n"; my $HISTORY_FOLDER = 0x22; my $history_dir = $wshell->Namespace($HISTORY_FOLDER); my $url_list = scan_folder($history_dir, []); print Dumper $url_list; sub scan_folder{ my ($folder, $ref) = @_; my $items = $folder->items; for(my $i = 0;$i < $items->count; $i++){ my $item = $it
Windows 版 ActivePerl 5.8.X で日本語のファイル名を使う。
結論から言うと、UTF-8を内部コードにしているとき、Windows で日本語ファイル名を使いたいときは、プログラムの頭でこんな風に宣言すると便利である。 use strict; use encoding 'shiftjis'; use open ':encoding(shiftjis)'; use open ':std'; use File::Spec::Functions; use subs qw(open); sub open { use Encode; return CORE::open(shift,encode('shiftjis',shift),encode('shiftjis',shift)); } Perl 5.8.X では内部コードに UTF-8が使える。しかし、そのために日本語のファイル名が正しく扱えないことがある。 たとえば、次のプログラムは何の問題もなく動作する。
Windows版 ActivePerl 5.8.X 日本語テキストファイルの操作
前回の続き、結論から言うと、とりあえず、Windows 版 ActivePerl 5.8.X でシフトJISの日本語テキストファイルを操作するときは、次のように宣言したほうがいいということ。 use encoding "shiftjis"; use open ":encoding(shiftjis)"; use open ":std"; map{ binmode($_,":crlf"); } qw/STDIN STDOUT STDERR/; 1行目、use encoding "shiftjis"; --- テキストファイルの中でシフトJISを使うという宣言。そして、標準入出力もシフトJISになる。 2行目、use open ":encoding(shiftjis)"; --- オープンするファイルのデフォルトのエンコードの宣言。つまり、シフトJISとして扱う。 3行目、use open "
Windows版 ActivePerl 5.8.X で日本語テキストファイルの標準入出力
前に、「Windows版 ActivePerl 5.8.X で日本語処理をする」でencodingプラグマについて触れた。しかし、この機能には小さなバグがあった。Perl 5.8.7/5.8.8で確認しているので、それ以前のバージョンで発生すると思われる。 たとえば、次のように宣言する。use encoding "shiftjis";こうすると、Perlの次のような動作になる。 ソースファイルはシフトJISコードで扱う 内部コードはUTF-8を使用する 標準入力(STDIN)からシフトJISコードをUTF-8に変換して読み込む 標準出力（STDOUT)へUTF-8をシフトJISコードに変換して書き込む 果たして本当にそうなっているのか？ 次のプログラムをtest1.plとして保存して、perl test1.pl 実行してみると、STDIN,STDOUT,STDERRのそれぞれのファイルハン
続・コマンドライン用クリップボードツールを作ってみた(Active Perl編)
Microsoft Visual C++ Express Edition で clp というコマンドライン用クリップボードツールを作った。しかし、VC++ Express Edition の場合、EXEファイルをコピーするだけでは実行できないことがわかった。DLLが必要なのである。しかも、ただコピーすればいいだけということではない。その件は、いつか体力のあるときに書くことにして、たいしたことないので、clp を Active Perl で書き直した。使い方は前回の記事( https://hardsofttalk.seesaa.net/article/200603article_2.html ）と同じ。 clp.pl の内容は、こんな感じ。 use strict; use Win32::Clipboard; my $option = shift; my $clip = Win32::Clip
ActivePerl 5.8.X で日本語処理をする
Windows で ActivePerl 5.8.X 以降を使う場合、次のように宣言すると、標準入出力やPerl/Tkも日本語で使えるようになる。ソースプログラムも Shift-JISコードで保存できるようになって便利。 use encoding 'shiftjis'; ただし、さまざまな問題があるので、以下の点に気をつける必要がある。 use encoding 'shiftjis' の副作用 - https://hardsofttalk.seesaa.net/article/200801article_6.html shiftjis 、CP932、MacJapanese の違い - https://hardsofttalk.seesaa.net/article/200802article_1.html また、Perl/Tkでの日本語の例は下記の記事に加筆していく予定。 Perl/Tkで日
ActivePerlでＬＨＡ
ActivePerlでLHA（99/1/8） by Hippo2000(1999/1/8) Microsoft社のVBScriptは、VBやVBAからいくつか機能が削られています。 それでもファイル関連の処理やプログラムの起動はFileSystemObjectやWSHといった別オブジェクトの力によって、 同じことを実現できるようになっています。 でも不思議なことにDLLを直接呼び出すことは、相変わらずできないままのようです。 ActivePerlではWin32::APIモジュールを使って、DLLも呼び出すことができます。 ここではUNLHA32.DLLの呼び出しについて書こうと思います。 ＰｅｒｌでもDLLが呼び出せないと思ってunlhacom.dllなんて作ったのにぃー。 目次 1.PerlからUNLHA32.DLLを呼び出す 1.1 必要なパッケージをインストール 1.2
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
remora.cx
Perl から Windows のデフォルトブラウザを起動する