- ベストアンサー
Perlでファイル書き込みの際の不思議
t_nの回答
これだとどうでしょうか？（確証はなくてすみませんが） @newline = ("0001\n","0003\n"); $string_length = 0; foreach $num (@newline) { $string_length += length ($num); } open (OUT,">file.dat"); seek (OUT,$string_length,0); print OUT @newline; close (OUT);
関連するQ&A
- 配列を変更しファイルに書き込むとなぜか古い配列も・・・
WEB上のCGIで、 ファイル（file.dat）から配列@lineを読み込み、 @line=(01,02,03) となっているときに、配列を操作して @newline=(01,03) とし、この @newline を open(OUT,">file.dat"); print OUT @newline; close(OUT); と処理したところ、なぜか、その中身は 01 03 01 02 03 となってしまいます。つまり、新しいデータ以外に古いデータも書き込まれるのです。 いろいろ試しました。書き込みの前後で@newlineの中身を画面に表示するなどして 確かめましたが、そこには異常はありません。 また、いろいろ変えていくと、場合によっては、ファイルの中身は 01 03 00001 01 02 03 などという訳の分からないことになってしまいます。 追加書き込みの可能性はありません。 試しに @newline の中身を空にして書き込みしてみると、 この場合は ファイルの中身も空になっています。 つまり、 @newlineの中身が有るときは、 画面上には正しく表示されるのに、ファイルに書き込まれるときには、 古いデータ（場合によっては変なデータも）も一緒に出力されていると言うことです。 こういう現象の原因として何が考えられますでしょうか？ 今まで、数々のファイル操作をしてきましたが、こういったことは 初めてです。 どうかご教授下さい。
- 締切済み
- Perl
- perlです。配列ファイルをよみこんで、1つの要素を上書きする方法
配列のファイルがあり、それをよみこんで、1つの要素だけ上書きして保存する方法を教えてください。 ex. file.datを以下のようなファイルだとして・・・ あいうえを かきくけこ さしすせそ たちつてと file.datが、 さしすせそ となるようにしたいのです。（つまり、三番目の要素を取り出し、上書き保存するというもの） 以下のように書いてみましたがうまく動きません。 open()やclose()は一回使うだけでいいように、読み書き両用で開いてみました。 $_にはファイル名が入っています。 open(FILE,"+<$_"); @temp=<FILE>; $temp2=$temp[2]; print FILE $temp2; close(LOGFILE); +<を+>とすると、ファイルが空(何も無くなる）となります。 まず読み専用で開いて、ファイルを閉じた後。上書き用で開いたほうがいいのでしょうか？？
- ベストアンサー
- CGI
- perlでファイルへの書き込みができません！
perlでファイルへの書き込みができません！ 教えてください． webプログラミング初心者なのですが， フォームから送信されたデータをshift-jisに変換させてからbbs1.txtへの内容の書き出しを行いたいのですが， #!/Applications/XAMPP/xamppfiles/bin/perl print "Content-type: text/html; charset=utf-8\n\n"; # フォーム部分を表示する print <<EOL; <html> <body> <h2>一行掲示板</h2> <form method="post" action="bbs1.cgi"> メッセージ：<input type="text" name="message" size="60"> <input type="submit" value="送信"> </form> <hr> EOL &ReadParse(*form); # フォームの値を取得 $message = $form{"message"}; use Encode; use Encode::Guess qw(euc-jp shiftjis 7bit-jis); encode("shiftjis",decode('Guess',$message)); # ログファイル読み込み open(IN, "bbs1.txt"); @log = <IN>; close(IN); # メッセージが入力されているときは書き込み処理を行なう if ($message ne "") { # ログ先頭にメッセージを格納 unshift @log, "$message\n"; # ログファイルに書き込み open(OUT, "> bbs1.txt"); print OUT @log; close(OUT); } # ログ表示 foreach $data (@log) { chop $data; print "$data<br>\n"; } print "</body>\n</html>\n"; このような感じにし実行して後でtxtファイルを見ると何も書かれていません＞＜ なぜでしょうか．．．？ 教えて下さい＞＜ 今気づいたのですがそれに関連してなのかログも表示されていませんでした．．．＞＜ txtファイルのアクセス権は読み書き可になっています encodeはあえてつかっています．
- ベストアンサー
- Perl
- Ｐｅｒｌのファイルオープン時のモードについて。
初歩の初歩、テキストカウンターを作成しようとして open (CNT,"+<cnt.dat"); $cnt = <CNT>; close(CNT); chomp $cnt; $cnt = $cnt + 1; print CNT $cnt; close (CNT); と上記のようなプログラムを書いたのですが、 ファイルに書き込みがなされません。 多少わかりにくい書き方になるかとは思いましたが、 open (CNT,"<cnt.dat"); $cnt = <CNT>; close(CNT); open(CNT,">$cntfile"); chomp $cnt; $cnt = $cnt + 1; print CNT $cnt; close (CNT); という風に書きかえてみました。 こちらですと、書き込みはされるのですが何故かカウントが ２つずつカウントされてしまうんです。 プログラムとしておかしな点というのが思い当たらずお手上げです。 ご教授下さい、お願いします。
- ベストアンサー
- Perl
- 配列の一部を書き換えてファイルに保存する方法は？
$dicname ='GermJ.txt'; open(IN, "$dicname"); @list = <IN>; close(IN); 読み込んだ配列@listの5番目のデータを'aaaaaaaaaa'に書き換えたいのですが、 $list[5]='aaaaaaaaaaaaaaaaa'; open(OUT, "> $dicname"); foreach (@list) { print OUT $_; } close(OUT); とやって、ファイルの中身を調べると、6番目の文字列データが5番目の文字列データの後ろにくっついてしまっています。 改行マークを $list[5]='aaaaaaaaaaaaaaaaa',\n;のように行末に追加しても、次の行とのあいだに空間が生まれます。基本的なファイル書き込みの知識をお尋ねして申し訳ありませんが，どうかお教えください。
- ベストアンサー
- Perl
- perlで容量の大きいCSVファイルを開く方法
perlで容量の大きいCSVファイルを開く方法 ファイル容量の大きいcsvファイルから、必要な項目を抜き出して別ファイルにするプログラムを作成したいと思ってます。 csvファイルが少ない場合は動作したのですが、容量が140MBを超えたデータを読み込もうとすると、ブラウザー表示で何も変化いたしません プログラムは以下のようになってます。 ------------------------------------------------- 略 open(IN,"$inport") || &error(" $inport を読み込みopen出来ません"); flock(IN,1); @lines = <IN>; foreach $lines (@lines) { local(@val) = split("\,", $lines); print "$val[0]"; $dat .= "$val[1]\,$val[5]\n"; } open(OUT,">$dcsv"); flock(OUT,2); print OUT "$dat"; close OUT; 略 ------------------------------------------------- 件数も多いので、foreachを$lines (@lines) としないで($start .. $end)として読み込みの件数を制限して対応しようと考えてましたが、うまくいきませんでした。 ご指導いただけますと幸いです。
- ベストアンサー
- Perl
- ファイルを読み込んで改行だけの行を取り除きたい
こんばんは。 ファイルを読み込んで、改行だけの行を省いて、上書きしたいのですが なぜかうまくいきません。 ループ内にある改行の判定をするIF文がいけないと思うのですが…。 教えていただけないでしょうか？ また、シングルクォーテーションダブルっクォーテーションは同じ意味 なのですか？「""」と「''」 作ったプログラムは以下です。 open(OUT,">$ssifile"); #改行のみのデータは除く @newtbl = (); foreach $siline ( @slines) { if ($slines ne "\n") { push @newtbl, $siline; } } print OUT @newtbl; close(OUT); 宜しくお願いいたします。
- ベストアンサー
- CGI
- PerlでのCSV書き込みについて質問です。
perl初心者です。 perlで投票のプログラミングを作ってるのですが、 どうもうまく動きません。 やりたいことは ・投票されたら １）csvを読み込む ２）該当するNOのカウントをアップ ３）csvに書き込む という単純なことなのですが、 投票してもカウンタは0のままになってしまいます。 書き込み部分のプログラムが間違っているとは思うのですが 何が間違っているのかがどうしてもわかりません。 どなたかお知恵を貸してくださいm(__)m プログラムは下記のようになっています。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ foreach my $key (@key) { $val = $in{$key}; $in{$key} = &Jcode::convert(\$val, 'sjis'); } # データオープン open(DAT,"+< $datfile"); flock(DAT, 2); my @data; while (<DAT>) { push(@data,$_); if (eof) { last; } } # データ書き込み truncate(DAT, 0); seek(DAT, 0, 0); my $i=1 while (i<11){ my ($no,$name,$count) = split(/,/, $data[$i]); if($val eq $no){$count++;} if (eof) { last; } $i++; print DAT "$no,$name,$count,\n"; } close(DAT); ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ どうぞよろしくお願いします。
- ベストアンサー
- Perl
- ファイルの書き込み
以下のことがしたいです。 testフォルダよりテキストファイル達を読み込み、 ある行だけ取り除いたのちnewtestフォルダに書き出したいと思います。 以下、コードになります。 #!/usr/bin/perl $n_dir = "newtest/"; $b_dir = "test/"; opendir(DIR, $b_dir); while($file = readdir(DIR)){ $nfile="$n_dir$file"; $bfile="$b_dir$file"; if (-T $bfile) { open(IN, $bfile); #testフォルダよりファイルの読み込み @list = <IN>; close(IN); open(OUT,">$nfile"); #newtestフォルダに書き出し while(@list = <IN>) { #testフォルダ内のファイルを一行ずつ読み込み if (@list =~ /test/) { #行にtestという文字列があるぎょうだけ書き出し print OUT @list; } } close(OUT); } else{next;} } closedir(DIR); ということをやりたいのですが、 書き出されるファイルは空です。 どこが間違っているのでしょうか。 エラーなどは特にありません。 testフォルダのファイル達が そのままnewtestフォルダに書き出されるのですが、 中身は空です。 ご協力お願いします。
- ベストアンサー
- Perl
- CGIにおけるサーバへのファイル書込みについて
[Mon Oct 16 16:27:12 2006] [error] [client 207.46.98.48] Premature end of script headers: prev.cgi [Mon Oct 16 16:27:13 2006] [error] [client 66.249.72.6] damy.dat Cannot Open at /home/e-fresh/public_html/prev.cgi line 71. サーバに上記のようなエラーログがありまして， ファイル作成&書込みができません。 私自身としては，サーバのフォルダに書込み権限が無い事が考えられます が，それをチェックする方法があれば併せてご教示願います。 prev.cgiの中身は下記の通りです。 $damy = 'damy.dat'; open DB,"$d_file" or die "$d_file オープン失敗"; open DAMY,">$damy" or die "$damy Cannot Open"; while (<DB>){ …} close DAMY; close DB; #ダミーファイルをデータファイルにリネーム rename($damy, $d_file) or die "Could not RENAME $damy TO $d_file";
- 締切済み
- Perl