クイズ番組でやってた問題の備忘録

47：女傑さん ◆nDpXSJz8i.：2013/03/10(日) 16:26:09: sub datas
{
local %table;
local($fname, $kazu, $i);
local($name, $val);

$fname = $_[0];
$_[0] =~ s/\n//g;

if (! &lock($lockdir)) {
&error("ファイルがビジーです。ロックに失敗しました。");
exit;
}
open FILE, "< $fname";
@lines = <FILE>;
$kazu = @lines;
close FILE;
&unlock($lockdir);

# for ($i=0;$i<$kazu;$i++) {
# foreach $line (@lines) {
$i = 0;
while ($i < $kazu) {
chomp $_;
my ($icode2, $nmatch) = Jcode::getcode($lines);
$lines = Jcode::convert("$lines", "sjis", $icode2, "z");

($name, $val) = split(',', $lines[$i], 2);
# ($name, $val) = split(',', $line, 2);
if ($name ne "") {
$table{$name} = $val;
}
$i++;
if ($i >= $kazu) { last; }
}

return %table;
}

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板