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

---

441: 2018/10/06(土)03:33 ID:gPBhgV7B(1) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
441: [sage] 2018/10/06(土) 03:33:56.69 ID:gPBhgV7B my @y = ""; while(<>) { my @x = split ","; # $x[1] = $x[0] eq $y[0] && ++$y[1] || 1; $x[1] = $x[0] ne $y[0] || ++$y[1]; print join ",", (@y = @x); } ウチでやるならこうかしら http://mevius.5ch.net/test/read.cgi/tech/1349538519/441
ウチでやるならこうかしら

---

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

---

あと 82 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.012s