perlのcgiプログラムですが、勝手に改行が入ってしまって困っています。また、思ったように動作しない状態です。お力をかしてください。
perlのcgiプログラムですが、勝手に改行が入ってしまって困っています。また、思ったように動作しない状態です。お力をかしてください。 入力データ a1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 b1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, c1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 d1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 e1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 出力結果 a1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 ,no b1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, ,no c1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 ,no d1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 ,no e1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,no 希望する結果 a1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,no b1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,,http://search.yahoo.co.jp/search?p=9$strbuf&ei=SJIS c1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,no d1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,no e1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,no プログラム ----------------------------- #!/usr/local/bin/perl # #============# # 設定 # #============# # jcode.pl取り込み require './jcode.pl'; #CSVデータファイルなど #$csvfile = '1.csv'; for($i=1;$i<=48;$i++){ &read_shopdata($i); } print "Content-type: text/html\n\n"; print <<"EOM"; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html lang="ja"> <head> <title>出力結果</title></head> OK </html> EOM #----------------# # データを処理 # #----------------# sub read_shopdata { use strict; my $filenum=$_[0]; my $in_file = "$filenum.csv"; my $out_file = "$filenum-out.csv"; my $strbuf; open my $fh_in, '<', $in_file or die "cannot read $in_file: !*"; open my $fh_out, '>', $out_file or die "cannot write $out_file: !*"; while (my $line = <$fh_in>) { chomp $line; my @column = split(/,/, $line); #9列目に検索したいキーワードが含まれているのでURLに使用できるように加工。 $strbuf=$column[8]; # $str を URIエスケープする $strbuf =~ s/(\W)/'%'.unpack("H2", $1)/eg; $strbuf =~ tr/ /+/; chomp $strbuf; chomp $column[16]; #17列目が空白なら、18列目に検索用文字列($strbuf)を挿入する。 if($column[16] eq ""){$column[17] ="http://search.yahoo.co.jp/search?p=$strbuf&ei=SJIS";}else{$column[17] ="no";}; print $fh_out join(',', @column)."\n"; } } ---------------- よろしくお願いいたします。
プログラミング・1,035閲覧・250