CGI Perl総合 (461ﾚｽ)
上下前次1-新

---

5(1): 名無しさん 2001/03/16(金)01:08 AA×
>>4


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
5: 名無しさん [] 2001/03/16(金) 01:08 >>4 何がしたいのかさっぱりわからん。 これで良いのか？ open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。'); @LINES = <IN>; close (IN); $xx = "c"; foreach (@LINES) { &nbsp; my ($t1, $t2, $t3) = split /<>/; &nbsp; next unless $t2 eq $xx; &nbsp; $t3++; $_ = join ("<>",$t1,$t2,$t3); &nbsp; last; } open (OUT,">$hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。'); print OUT (@LINES); close (OUT); http://mevius.5ch.net/test/read.cgi/hack/984669133/5
何がしたいのかさっぱりわからん これで良いのか？ オープンエラー指定された書込みファイルが開けません オープンエラー指定された書込みファイルが開けません

---

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

---

あと 456 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.024s