XSM.JP
└そうだ Perlで書こう
2013-03-05 15:14

書くことないんでちょっとPerlの小技でも
実はPHPもできるんだけどPHP関数に無駄な機能がある分変なバグが多いです。

やっぱりPerlだね…って事でよく使うファイルに何らかの情報を記録して簡単に呼び出す方法

# 例えば個人情報を記録
open FILE, ">ファイル";
print FILE << "EOF";
name=名前
age=年齢
email=メールアドレス
tel=電話番号
EOF
close FILE;
# =に続く文字列の改行は別の文字に置き換えておく必要があります。ここでは#改行#に置き換え
# で呼び出す
my $hash = {};
open FILE, "<ファイル";
while (<FILE>) {
    chomp;# 改行削除
    my @l = split('=',$_,2);# 最初の=で2分割
    $l[1] =~ s!#改行#!\n!g;
    $hash->{$l[0]} = $l[1];
}
close FILE;
# 表示してみる
print qq (Content-type: text/plain; charset=Shift_JIS

名前:$hash->{name}
年齢:$hash->{age}
メールアドレス:$hash->{email}
電話番号:$hash->{tel}
);

←前次→

コメント一覧

コメントはありません