>>43, 50
PerlIO::TextCodecクラスみたいなのが追加されたら便利かも。
(´-`).。oO(以下↓は妄想.....)
*------*
#!/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 それはライブラリのお仕事かなぁ
ニュース
- トランプ氏 支持率過去最低32%もアメリカ人の3割「岩盤支持層」MAGA派は揺らがず「敗れればトランプ失う」と危機感 ★2 [煮卵★]
- 猪瀬直樹氏、走行中EV充電の実証に私見「日本はズレまくっている [バイト歴50年★]
- 【ひろゆき】だんじり祭りの死亡事故に私見「その人の決めた人生だと思う」「第三者が勝手な価値観で制限するのに反対なおいらです」★3 [Ailuropoda melanoleuca★]
- 売上高1兆円へ、アシックスはなぜ復活したのか 苦戦するナイキと明暗を分けた「売り方」と「技術」の戦略 [♪♪♪★]
- 大迫傑��タトゥーびっしり�<宴梼pに衝撃「刺青いれたんだ⁈」「なんで入れちゃったんだろう」「別に良くね?」 [muffin★]
- 「不祥事に失望した」プロ野球選手ランキング!坂本勇人の女性トラブル、阿部慎之助“ChatGPT”長女暴行トラブルを抑えた1位は? [Ailuropoda melanoleuca★]
- 【高市悲報】嘘喰い作者、レスバで負ける★2 [834922174]
- 【画像】👩「旦那に主食ないってキレられた…どう思う?📸」 [394133584]
- 【訃報】可愛い女の子YouTuber、自殺してしまう... [856698234]
- 『生活保護受給者』→実際コイツらをどう思う? [396493159]
- 人生辛くてしんどくなってきた
- 巨乳スタイル抜群超絶可愛い性格良い非処女orクソブスデブ性格ゴミブス処女←これでもお前らは後者を選ぶという事実