[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

547: 2020/07/26(日)18:32 ID:hRZi6+cn(1) AA×
>>512


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
547: [] 2020/07/26(日) 18:32:06.33 ID:hRZi6+cn >>512 最適化するとすると手順はこんな感じかな。 1. 0x1c バイト読んでそのまま書く。 2. 1バイト読む。読めなかったら 5 へ。読んだ内容が 0x40 なら 0x00 に変えて書く。0x40 でなければそのまま書く。 3. 最大 0x7fff バイト読み、読めたデータをそのまま書く。 4. 2へ。 5. 終わり。 STDIN から読んで STDOUT で書くならこうなる。 read(STDIN, $buf, 0x1c); print $buf; while (read(STDIN, $buf, 1)) { 　print $buf eq "\x40" ? "\x00" : $buf; 　read(STDIN, $buf, 0x7fff); 　print $buf; } http://mevius.5ch.net/test/read.cgi/tech/1548981877/547
最適化するとすると手順はこんな感じかな バイト読んでそのまま書く バイト読む読めなかったら へ読んだ内容が なら に変えて書く でなければそのまま書く 最大 バイト読み読めたデータをそのまま書く へ 終わり から読んで で書くならこうなる

---

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

---

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

---

ぬこの手 ぬこTOP 0.043s