Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

49: デフォルトの名無しさん [sage] 2012/10/08(月)19:13:40.44
>>44=>>48

---

71(4): デフォルトの名無しさん [sage] 2012/10/09(火)16:16:14.44
PHPでいうマジッククォートみたいなのない？
sjisで送信するとき表とかがエスケープされずにエラーでちゃうんだけど
自動でエスケープしてくれる関数みたいなの無いの？
教えてください

---

95: デフォルトの名無しさん [sage] 2012/11/12(月)19:41:16.44
ActivePerl5.16.1使用中です。
---
print DAT @dat;
---
このようにして配列を書き出そうとしたのですが
なぜかテキストファイルに繁栄されません。
何か情報をご存知の方いらっしゃいませんか？

---

160(2): デフォルトの名無しさん [] 2013/01/29(火)21:37:22.44
>>159
すみません。
2004年に配布されたもので結構昔のものなので製作者様の方に教えてもらうことができなくて、ここなら何かヒントになることだけでも教えていただけると思ったので...

---

161: デフォルトの名無しさん [sage] 2013/01/29(火)22:19:55.44
>>160
Perlを最初から勉強すればすむ話だろゴミ
それにそれが情報乞食をする理由になるの？
本当に乞食じゃねぇのこいつ

---

442: 438 [] 2018/10/06(土)06:07:28.44 ID:J8Y2BFN6(1/2)
おはよう。

元のテキストが s.txt に入っているとして、こうする。

perl -ne 'chomp;@d=split/,/;push(@{$h{$d[0]}},$d[2]);END{for(sort keys%h){for($i=0;$i<@{$h{$_}};$i++){print join(",",$_,$i+1,$h{$_}[$i])."\n"}}}' s.txt

なげーなw

---

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

---

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

---

ぬこの手 ぬこTOP 0.019s