[perl] やる夫が数値判定するプログラムを組んだようです。

perlで数値判定プログラム

内容としては、あるlistファイルを1行づつ読み、その値が数値（少数点も含む）であるかを判定します。

# vi yaruo.pl
-----
#!/usr/local/bin/perl
open(IN, "yaruo.list");
while ($_ = <IN>) {
    if($_ =~/^(-|\+|)\d+\.?\d*(E\+\d+|E\-\d+)?$/i){
        print "$_ \n";
    }
}
close(IN);
-----

yaruo.listをオープンし、数値だったら標準出力に結果を表示する内容となっています。

# cat yaruo.list
123
1245
21.212
やる夫
やらない夫
12

ファイルの中身はこんな感じです。ではyaruo.plを動かしてみましょう。

# ./yaruo.pl
123
1245
21.212
12