新しくperlで標準で欲しい関数は？ (203ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

49(6): 名無しさん＠お腹いっぱい。 01/12/28 22:34 ID:??? AAS
hashをマージする関数は欲しいなぁ。書いても3行なんですけどね。

---

54: 名無しさん＠お腹いっぱい。 01/12/29 17:12 ID:YO8PVCNz(1) AAS
>>51
それはモジュールでやるべきことでしょう。さすがに。

>>49
たしかに欲しい。

---

64(2): _gunzip 01/12/30 06:28 ID:??? AAS
>>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 それはライブラリのお仕事かなぁ

---

77: 02/04/21 10:45 ID:mSKVAdKd(1) AAS
>>49
%a=(%b,%c);
じゃだめか？

---

118(2): 02/12/15 16:09 ID:??? AAS
>>49
俺様の力作使ってはくれまいか？
sub merge
{
return(@_);
}

---

120: 02/12/16 23:14 ID:??? AAS
>>118
usage:
%c = merge ( %a, %b );

こんな感じ？
確かにシンプルだ……。
>>49は、キーがかぶった場合の仕様を作らなかったから、これでもいいと言える。
勉強になります。

---

123(1): 03/01/12 19:13 ID:bGDRedPP(1) AAS
>>49 ＞書いても3行なんですけどね。
%c = ( %a, %b );

どこらへんに三行要るんだろう？

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.017s