ファイルからのデータ読み込みとデータ処理

質問

ActivePerlをインストールしたばかりの初心者です。
ファイルからデータを読み、データ処理をするプログラムをつくっている所ですが
、データファイルの読み込み後の処理がうまくいきません。

データ処理では、空白文字、マイナスの符号も含めて3個ずつで一つの数値とします。
$a ='-10 -1 0 22177';
@foo = split( /(\s\s\d|\s\d\d|\d{3}|-\d{2}|\s-\d{1})/, $a) ;
print "@foo\n";

【出力結果】
-10 -1 0 22 177

ファイルから１行ずつデータを読み込み、同様の処理を行う以下のプログラムですが、正しくファイルが表示された後は止まってしまいます。
どこで躓いているのかご教示下さい。

＃プログラム
$no = 1;
while ($line = <>) {
print $no, "\t", $line;
print $line;
++$no;
}

while ($line = <>) {
@foo = split( /(\s\s\d|\s\d\d|\d{3}|-\d{2}|\s-\d{1})/, $a) ;
print "@foo\n";
}

回答No.1

HoComeCome · ベストアンサー

ファイルを標準入力に流し込んで動かしているのだと思いますが、ファイルの終わりを読み込んだとき1つ目のループを抜け、もう１つのループが標準入力からの入力待ちになって止まったように見えます。2回目のループにはファイルの内容は流し込まれません。

while(<>){処理}
を2回やるのではなく、

@line=<>;
と一度配列によみこんでから、

foreach (@line){処理}

を2回やるように変更するのが1つの手だと思います。

なお、splitの仕方がそれでよいのかはふめいです。
すくなくともwhileの中の$aは未定義ですね。

お礼

なるほど、foreachを使うと一行ずつ読み込み処理できました。

foreach ( @lines=<> ) {
@foo = split( /(\s\s\d|\s\d\d|\d{3}|-\d{2}|\s-\d{1})/) ;
print "@foo\n";
}

ありがとうございました。
早く尋ねれば良かった～

回答No.6

HoComeCome

空白が入るのが嫌なら。。。

$str = " -2 9 22 36 42 45 49 52 49 45";
@list=map{s/ //g;$_}($str =~ /.{3}/g);
print "@list\n";

とか。

お礼

もう完璧です。
プログラムを提示して頂き、大変参考になりました。
最後までおつきあい頂きありがとうございました。

回答No.5

HoComeCome

>空白を＠で表すならば、
@-2@@9@22@36@42@45@49@52@49@45
ルールは、空白文字と符号を含めデータを３つずつに区切る、です。

それなら
$str = " -2 9 22 36 42 45 49 52 49 45";
$str =~ s/(.{3})/push(@list,$1)/eg;
print "@list\n";
こんなんでどうでしょ?

お礼

スマートです！勉強になりました。
ありがとうございました。

回答No.4

HoComeCome

データの数値には、負の整数2桁、負の整数1桁、1桁から3桁までの負でない整数があります。
ファイルデータは以下のようになっています。
-2 9 22 36 42 45 49 52 49 45
-11999777777777777777777777777
↓
-2,9,22,36,42,45,49,52,49,45
-11,999,777,777,777,777,777,777,777,777
ファイルを読み込み上記のように変換する処理を行いたいのです。

これだけでは、ルールとしてあいまいです。
＞負の整数2桁、負の整数1桁、1桁から3桁までの負でない整数があります。
の情報だけでは、

-11999777777777777777777777777
が、
-1,199,9,77,777,7,77,777,
とか
-11,99,9,77,7,77,7,77,777,
とか、いくらでも別け方が有るなかで
-11,999,777,777,777,777,777,777,777,777
なるのかの理由がわかりません。

また、
-2 9 22 36 42 45 49 52 49 45
↓
-2,9,22,36,42,45,49,52,49,45
が言うのは、空白があればそれを区切りとして扱うということですか?
なら、
-2 9 2236 42 45 49 52 49 45
のように、空白も含むけれど4つ以上の数字が続く場合は?、また、

-2 9 2236 -42454952495

なら?
とにかく、ルールを一意的に解釈できるようにしたほうが適切な解答もらえると思いますよ。

補足

例が誤っていました。すみません。
空白を＠で表すならば、
@-2@@9@22@36@42@45@49@52@49@45
ルールは、空白文字と符号を含めデータを３つずつに区切る、です。

-11999777777777777777777777777
は頭から区切っていくと
-11,999,777,777,777,777,777,777,777,777
となります。

数字だけを３桁ずつに区切るならば
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1034162
なのですが、空白文字とマイナスが入っているので下手なプログラムを作っています。

回答No.3

SE-1

# 余計なお世話かもしれません・・・
# #2 さんのプログラムを実行すると分かりますが、@foo には空の要素が幾つか入ります。
# split 内の式を見て perl001 さんの得たい配列を勝手に想像して以下を書いてみました。

foreach (my @lines=<DATA>){
my @foo2;
foreach (my @foo = split(/\s/,$_)){
$_=~/\d{4,}/ ? push @foo2, $_=~/(-??\d{2})(\d{1,3})/ : push @foo2, $_;
}
print "$_|" foreach @foo2;
print "\n";
}

__DATA__
-10 -1 0 22177
25 -98 5 -77364

補足

プログラムありがとうございます。

データについて加筆します。
データの数値には、負の整数2桁、負の整数1桁、1桁から3桁までの負でない整数があります。
ファイルデータは以下のようになっています。
-2 9 22 36 42 45 49 52 49 45
-11999777777777777777777777777
↓
-2,9,22,36,42,45,49,52,49,45
-11,999,777,777,777,777,777,777,777,777
ファイルを読み込み上記のように変換する処理を行いたいのです。

回答No.2

umasikajiro

#1さんの言われるような方法か、
または pushを使います

$no = 1;
while (<>)
{push @_,$_;
print $no . "\t". $_;
++$no;
}
foreach(@_)
{@foo = split( /(\s\s\d|\s\d\d|\d{3}|-\d{2}|\s-\d{1})/) ;
print (join '|',@foo)."\n";# テスト用に | を入れて出力してみる
}

##私も splitの中の式は検証していません

お礼

#3さんがご指摘のように、空要素が入りますが、今の私にはその理由がわかりません。
おいおい勉強していきます。
貴重なお時間を割いて回答して頂き、ありがとうございました。