ファイルの入出力２

Question

指定したフォルダ内にあるcsvファイルのデータを指定したhtmlファイルに出力するプログラムを書いているのですが、下記のままだとcsvファイルにあるすべてのデータをとってきてしまいます。実現させたいことは「指定したフォルダ内にあるcsvファイル２行目のデータだけファイル出力する」というものです。どなたかご協力お願いします。 #!/usr/bin/perl #--------------------------------------------------------------# # ディレクトリを開く #--------------------------------------------------------------# opendir(DIR,"test/"); #--------------------------------------------------------------# # 出力ファイル名を指定 #--------------------------------------------------------------# $dest = "test.html"; open (OUT, ">$dest") or die "$!"; #--------------------------------------------------------------# # 出力ファイルにhtmlを出力 #--------------------------------------------------------------# print OUT ' 無題ドキュメント '; #--------------------------------------------------------------# # ディレクトリにあるファイル名を取得 #--------------------------------------------------------------# while ($filename = readdir(DIR)) { # ディレクトリにあるファイルパスを取得 $path = "test/$filename"; if(-f $path) { # ファイルオープン open (IN, $path) or die "$!"; while () { # カンマ区切りでデータを取得＆改行削除 chomp(@data = split(/,/, $_)); print OUT " "; # 各行の3つのカンマ区切りデータを取得 print OUT " "; print OUT " "; } close(IN); } } #--------------------------------------------------------------# # ディレクトリを閉じる #--------------------------------------------------------------# closedir(DIR); print OUT "

名前	住所	性別
",$data[0],"	",$data[1],"	",$data[2],"

"; #--------------------------------------------------------------# # ファイルを閉じる #--------------------------------------------------------------# close(OUT);

luka3 · Accepted Answer

while () { ↑ここを ; ; として、close(IN) の前の } を削除してください。

moon_night · Answer

#2です。
どうやらchompの位置がわるいようでした。

# カンマ区切りでデータを取得＆改行削除
chomp($line[1]);
@data = split(/,/, $line[1]);

としたら動きます。

luka3 · Answer

すみませんでした。２つめの「;」を「$_ = ;」に変えて下さい。はINのファイルハンドルから１行読み込むということです。１行目は無視して、２行目の処理をする、ということになります。

moon_night · Answer

open (IN, $path) or die "$!"; while () { # カンマ区切りでデータを取得＆改行削除 chomp(@data = split(/,/, $_)); print OUT " "; # 各行の3つのカンマ区切りデータを取得 print OUT "",$data[0]," ",$data[1]," ",$data[2]," "; print OUT " "; } close(IN); ↓ open (IN, $path) or die "$!"; @line = ; close(IN); # カンマ区切りでデータを取得＆改行削除 chomp(@data = split(/,/, $line[1])); print OUT " "; # 各行の3つのカンマ区切りデータを取得 print OUT "",$data[0]," ",$data[1]," ",$data[2]," "; print OUT " ";

ファイルの入出力２

while (<IN>) {

#2です。

すみませんでした。

open (IN, $path) or die "$!";

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング