広告
ホームページ作成の第一歩 >> Perl メニュー >>
# 引数:ファイルパス # 戻値:配列 sub readFile() { local($filename) = @_; local(@data); if (-f "$filename") { if (open(FILE, "$filename")) { @data = <FILE>; close(FILE); } }else { #&Error("「$filename」が見つかりません"); } return @data; }
ホームページ作成の第一歩 >> Perl メニュー >> ページの一番上へ