幸せサーバープロジェクト 「アイデア・技術のある人募集中」★4

[781 ● ◆SUAMA.Cbav5m 2009/12/10(木) 23:10:24 ID:dQ5JxvgoP]

#!/usr/bin/perl
use strict;
use warnings;

my $host='softbank218136142014.bbtec.net';

my $regex='softbank\d{6}';

if($host=~m/($regex)/){
　print "$1\n";
}

exit;