七行プログラミング (452ﾚｽ)
上下前次1-新

---

261(1): 04/02/29 22:04 ID:??? AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
261: [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
明示的に しないとバッファに溜まったデータが されない為 直後に できない では が出来なかったので のままに

---

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

---

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

---

ぬこの手 ぬこTOP 0.023s