【perl】正規表現(マッチ)を使って、入力された値が数字かどうか判定する。

#! /usr/bin/perl

use strict;
use warnings;

print "入力された値が、数字だけで構成されているのかどうか判定するよ。\n";

my $line = <STDIN>;

chomp ($line); #chomp関数で、改行をなくしちゃいます。

if ($line =~ /^\d+$/){
	print "$lineは数字だよ。\n";
}else{
	print "$lineは文字列だよー。\n";
}

chompとを正規表現を知ってるだけで、遊べるんだね。