新しくperlで標準で欲しい関数は？

新しくperlで標準で欲 ..

64:_gunzip
01/12/30 06:28
>>43, 50
PerlIO::TextCodecクラスみたいなのが追加されたら便利かも。
(´-`).｡ｏＯ（以下↓は妄想.....）

*------*
#!/usr/bin/perl6

use IO;

my $in = new IO::TextStream(@ARGV[0]); #Perl6の配列要素参照は@array[index]
my $out = new IO::TextStream(@ARGV[1]);
$in.open("r") or $out.open("w") or die "open() failed";

$*in is chomped; # 入力は自動的に改行を削除
$out.setCodec(PerlIO::TextCodec::euc_JP); # 出力はeuc-jpで、とか

while (!$in.end) {
　　　　my string $line = $in.readline(); # 勝手にunicode文字列に変換して$lineへ

　　　　$out.writeline($line); # $outのコーデックでunicode->euc-jp自動変換

　　　　$out << codec("euc-jp") << $line << endl; # まにぴゅれーたすたいる

　　　　print $out: $line.locale8bit(); #ロケールに応じたエンコーディングで出力

　　　　my $codec = new PerlIO::TextCodec("shiftjis");
　　　　print $out: $codec.fromUnicode($line);
}

$in.close();
$out.close();
*-----*

>>49 それは無いかなぁ
>>51-52 それはライブラリのお仕事かなぁ

次ページ

続きを表示

1を表示