パソコン・周辺機器・PCパーツの通販ショップ PLEX
WMC対応で、PT2と比べて良いところは内部で2分配なのでつなぐのは2本だけ・PCIex1・ロープロファイル、ってところですかね?
ひとまずしばらくは様子見です。
WMC対応で、PT2と比べて良いところは内部で2分配なのでつなぐのは2本だけ・PCIex1・ロープロファイル、ってところですかね?
ひとまずしばらくは様子見です。
DirectShowSource("i:\123.aac")
return last
Office2007 で Office 97-2003 ファイルの暗号化の種類を指定する方法 - くらさば
暗号化プロバイダを設定する場合は OS 標準で付いているものの中から選ぶのが妥当だと思うが「Microsoft Enhanced RSA and AES Cryptographic Provider (Prototype)」は選ばない方がいい。
#### 実行環境チェック
#(eval {require Encode}) or die "please use perl 5.8.0 or higher version";
require Encode;
use Encode::Guess; # default only ascii/utf8/BOMed UTF
#use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;一括で指定したい場合はココで。
binmode STDOUT, ":encoding(cp932)";
binmode STDERR, ":encoding(cp932)";
use utf8;
#参考ページ:http://www.kt.rim.or.jp/~kbk/perl-5.8/guess.html http://www.kt.rim.or.jp/~kbk/perl-5.8/supported.html
#### 引数チェック
($ARGV[1] and (!$ARGV[2])) || die "Please input 2 arguments"; #因数が2つでなければexit
#### 入出力ファイルチェック
(-r $ARGV[0]) or die "can't open $ARGV[0]: $!\n";
(-w $ARGV[1]) and warn "$ARGV[1] is over written\n";
#### 入力
open(INPUT,$ARGV[0]); #入力OPEN
my $data=join '',<INPUT>;
close(INPUT);
#### UTF8にデコード
my $decoder = guess_encoding($data, qw/euc-jp cp932 iso-2022-jp big5-eten cp-936 gb12345-raw gb2312-raw/);
if(! ref($decoder)){
$decoder = guess_encoding($data, qw/euc-jp cp932 iso-2022-jp/);
};
(! ref($decoder)) and die "can't guess encode of $ARGV[0]: $!\n";
my $data_utf8 = $decoder->decode($data);
###cp932で出力
open(OUTPUT,'>crlf:encoding(cp932',$ARGV[1]) or die "can't write: $!\n"; #出力OPEN
print OUTPUT $data_utf8;
close(OUTPUT);