Spreadsheet::ParseExcel＋正規表現？

質問

Excelファイルを読み込んで、A列をずら～っと上から連続して表示するプログラムを作ったのですが（下記）、句読点の"。"が入ったセルで改行したいです。しかし、うまくいきません。文字コードが原因なのかな・・・と思ってはいるのですが・・・調べても調べてもわかりません。どうか、未熟者にアドバイスお願いします。

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・

#! /usr/bin/perl

# モジュールの読み込み
use strict;
use utf8;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtJapan;

# ？
binmode STDOUT, ":utf8";

# Excelファイルの処理

my $format = new Spreadsheet::ParseExcel::FmtJapan;
my $excel = new Spreadsheet::ParseExcel;

my $book = $excel->Parse("xlsファイルの場所");
my $sheet = $book->{"Worksheet"}[0];

my $MaxRow = $sheet->{"MaxRow"};
my $MaxCol = $sheet->{"MaxCol"};

for(my $col=0, my $row=0; $row<=$MaxRow; $row++){
my $cell = $sheet->{"Cells"}[$row][$col];
my $val = "";

if($cell){
$val = $cell->Value;
}

print "$val";

if($cell=~"。"){
print "\n\n";
}
}
print "\n";

回答No.1

来生 自然（@k_jinen） · ベストアンサー

Spreadsheet::ParseExcelの内容を知りませんが、perlでのプログラミングでは随所で小さなテストプログラムを作って確認を怠らない必要があると思っています。（←怠ったために、何度かはまっています）

ところで

if($cell=~"。"){
で、あっていますでしょうか？

if($val=~"。"){
ではないのでしょうか？

パターンマッチの判定部分では、「。」を含む文字コードは無関係のようです。
たとえば、perl単体 （v5.6.1 built for MSWin32-x86-multi-thread）で
===
@a = ("あいうえお。","かきくけこ","さしすせそ。","たちつてと");
foreach $i (@a) {
print "$i";
if ($i =~ "。") { // or $i =~ /。/
print "\n";
}
}
===
を実行すると
===
あいうえお。
かきくけこさしすせそ。
たちつてと
===
となります。

お礼

すみません、少し複雑に考えすぎていたようです・・・。そのものズバリの回答でした。ご指摘ありがとうございました！