# 引数：ファイルパス # 戻値：配列 sub readFile() { local($filename) = @_; local(@data); if (-f "$filename") { if (open(FILE, "$filename")) { @data = <FILE>; close(FILE); } }else { #&Error("「$filename」が見つかりません"); } return @data; }
ホームページ作成の第一歩【Perl ファイルの中身を読み込み配列に格納関数】
# 引数：ファイルパス # 戻値：配列 sub readFile() { local($filename) = @_; local(@data); if (-f "$filename") { if (open(FILE, "$filename")) { @data = <FILE>; close(FILE); } }else { #&Error("「$filename」が見つかりません"); } return @data; }
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
