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

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

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

---

258: Store7.pm [] 04/02/27 22:01 ID:xssKWf0b package Store7;sub E{$_=shift;s/\\/\\\\/g;s/'/\\'/g;$_}@ISA='Exporter';@EXPORT= @EXPORT_OK=qw/store retrieve/;sub store{open my$o,">$_[1]";print$o ''.d($_[0]); }sub retrieve{do$_[0]}sub d{my$f=shift;my$e=ref$f;$e eq'SCALAR'?"'".E($$f)."'": $e eq'ARRAY'?'['.join(',',map{d($_)}@$f).']':$e eq'HASH'?'{'.join(',',map{my$k= $_;$_="'".E($k)."'=>".d($f->{$k})}keys%$f).'}':"'".E($f)."'"};use Exporter;1 なんとか5行でStorable.pmと同じ使い方です（storeとretrieveだけ）。 store( \%hashとか\@array, 'data.txt' ); $hash_ref = retrieve('data.txt'); http://medaka.5ch.net/test/read.cgi/php/1036141603/258

260: 258 [] 04/02/28 13:00 ID:GPwfHIuc >>259 \->\\したあと、'->\'しなければいけないので、s/(\\|')/\\$1/g;はﾏｽﾞｲっぽいです。 http://medaka.5ch.net/test/read.cgi/php/1036141603/260

345: nobodyさん [sage] 04/10/03 20:29:26 ID:??? >>344 ありがとう いや，実は>>258なんだけど機能強化されてるのでこっちを使おうかと思ってね http://medaka.5ch.net/test/read.cgi/php/1036141603/345

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.737s*