七行プログラミング (452ﾚｽ)

七行プログラミング http://medaka.5ch.net/test/read.cgi/php/1036141603/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

261: nobodyさん [sage] 04/02/29 22:04 ID:??? package Store7;use base Exporter;@EXPORT=qw/store retrieve/;sub retrieve{do$_[0 ]}sub E{$_=pop;s/\\/\\\\/g;s/'/\\'/g;"'$_'"}sub d{my$e=ref(my$f=pop);"SCALAR"eq $e?E$$f:"ARRAY"eq$e?"[".join(',',map{d($_)}@$f)."]":"HASH"eq$e?"{".join(',',map {E($_),d($f->{$_})}keys%$f)."}":E$f}local*F;sub store{open F,">".pop;print F d pop;close F}1 ・明示的に close しないとバッファに溜まったデータが print されない為、 　store 直後に retrieve できない。 ・Perl 5.005_03 では do pop が出来なかったので、do $_[0] のままに。 http://medaka.5ch.net/test/read.cgi/php/1036141603/261

269: nobodyさん [sage] 04/03/06 00:53 ID:??? >>261 ｵﾍﾞﾝｷｮになります。 http://medaka.5ch.net/test/read.cgi/php/1036141603/269

---

ﾒﾓ帳

(0/65535文字)

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ ｱﾎﾞﾝOFF

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.013s