新しくperlで標準で欲 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
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 それはライブラリのお仕事かなぁ

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5134日前に更新/33 KB
担当:undef