したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

プログラムスレッド

126：女傑：2013/03/02(土) 13:47:38
sub datas
{
local %table;
local ($fname, $flength, $i);
local ($name, $val);

$fname = $_[0];
$flength = @_;

open FILE, "< $fname";

for ($i=0;$i<$flength;$i++) {
@_ = <FILE>;
chomp($_) if $_ =~ /\n$/;
($name, $val) = split(',', $_[$i], 2);
if ($name ne "") {
$table{$name} = $val;
}
}

close FILE;
return %table;
}
新着レスの表示

名前： E-mail（省略可）：

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

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

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）
掲示板管理者へ連絡 無料レンタル掲示板