getc を使用した標準入力の取り扱いについて

質問

みなさま，お世話になります．

現在，perl を使用した簡単なスクリプトを作っていますが，期待する動作を得られず困っています．どなたか，アドバイスをいただけると大変助かります．

よろしくお願いいたします．

【問題】
標準入力へ改行を含む複数行文字列を与え，perl スクリプト側で文字列処理をするような内容を考えていますが，行の文字数が大きい場合は正常に処理がされません．

--------------------------------------------
（ Perl スクリプト）　test.pl
--------------------------------------------
#!/usr/bin/perl
sub add_elements{
my($p) = @_;
my $c, $str;
my $i = 0;
my $lf_count = 0;
for ($i = 0; $i < length($p); $i++) {
$c = substr($p, $i, 1);
if (my $ascii = ord($c) == 10){
$lf_count++;
print "+++ Debug\t Line Feed here\n";
} else {
print "+++ Debug\t [$c]\t";
print ord($c);
print "\n";
}
}
return $str;
}

sub row_count{
my($p) = @_;
$p = $p =~ s/\n//g;
print "row count :: ";
print $p;
print "\n";
return $p;
}

sub set_string{
my $strp;
while(my $c = getc STDIN){
$strp .= $c;
}
print "set string: \n";
print $strp;
print "\n";
return $strp;
}

my $source = &set_string;
my $output;
my $rcnt = &row_count($source);

open(OUTFILE, ">> hoge.out");

if ($rcnt < 25) {
print "+++ Debug\t Line Nums under 25.\n";
$output .= add_elements($source);
} else {
print "+++ Debug\t Line Nums over 25.\n";
}

print OUTFILE $output;
print OUTFILE "\n";

close OUTFILE;
--------------------------------------------

--------------------------------------------
（ 入力用テキスト）　source
--------------------------------------------
A 1234567
B 12345678
C 123456789
D 1234567890
E 12345678901
--------------------------------------------

この Perl スクリプトに cat source の結果をパイプで入力して確認しました．

【テスト結果】
$ cat ./source | ./test.pl
set string:
A 1234567
B 12345678
C 123456789
D 123456789
row count :: 3
+++ Debug Line Nums under 25.
+++ Debug [A] 65
+++ Debug [ ] 32
+++ Debug [1] 49
+++ Debug [2] 50
+++ Debug [3] 51
+++ Debug [4] 52
+++ Debug [5] 53
+++ Debug [6] 54
+++ Debug [7] 55
+++ Debug Line Feed here
+++ Debug [B] 66
+++ Debug [ ] 32
+++ Debug [1] 49
+++ Debug [2] 50
+++ Debug [3] 51
+++ Debug [4] 52
+++ Debug [5] 53
+++ Debug [6] 54
+++ Debug [7] 55
+++ Debug [8] 56
+++ Debug Line Feed here
+++ Debug [C] 67
+++ Debug [ ] 32
+++ Debug [1] 49
+++ Debug [2] 50
+++ Debug [3] 51
+++ Debug [4] 52
+++ Debug [5] 53
+++ Debug [6] 54
+++ Debug [7] 55
+++ Debug [8] 56
+++ Debug [9] 57
+++ Debug Line Feed here
+++ Debug [D] 68
+++ Debug [ ] 32
+++ Debug [1] 49
+++ Debug [2] 50
+++ Debug [3] 51
+++ Debug [4] 52
+++ Debug [5] 53
+++ Debug [6] 54
+++ Debug [7] 55
+++ Debug [8] 56
+++ Debug [9] 57

これを見る限り，&set_string の中で 4 行目（"D" で始まる行）の最後が読み取れていないことは判明しています．また，&set_string では getc STDIN で一文字ずつ読み取り，変数に append しています．

大変初歩的な質問かもしれませんが，ご教示いただければと思います．

よろしくお願いいたします．

回答No.1

t-okura · ベストアンサー

数字の 0 を読んだところで
while(my $c = getc STDIN){
$strp .= $c;
}
のループから抜けてしまっています。ここの条件判定は

while( defined (my $c = getc STDIN)　){
...
}

でないといけません。

お礼

t-okura さん
迅速なご回答ありがとうございます．

FILEHANDLER / 標準入力 の最後に到達すると getc では未定義値が返ってくるということなのですね．
大変勉強になりました！

早速修正いたしまして，正常に稼動することを確認いたしました．
本当に助かりました．ありがとうございます．