#!C:/Perl/bin/perl.exe
#
#入力チェック
#
my $vI;
my $mailM;
my $mailF;
my $mailS;
my $mailD;
my $mailTo;
$mailD = 'wapqq@csdn.net';
if( isMailAddress($mailD) ){
$mailS = length($mailD);
$vI = index($mailD,'@');
$mailM = substr($mailD, 0, $vI);
$mailF = substr($mailD, $vI, $mailS);
$mailTo = $mailM.'//'.$mailF;
print "$mailS/n";
print "$vI/n";
print "$mailM/n";
print "$mailF/n";
print "$mailTo/n";
print "メールアドレスです。/n";
}else{
print "メールアドレスではありません。/n";
}
#---------------------------------------
#メールアドレスかチェックする
#---------------------------------------
sub isMailAddress{
my $str = shift || return(undef);
#-- メールアドレスか --#
if( $str =~ /^([a-zA-Z0-9/./-//_]{1,})@([a-zA-Z0-9/./-//_]{1,})/.([a-zA-Z0-9/./-//_]{1,})$/ ){
return(1);
}
#-- メールアドレスではないか --#
else{
return(0);
}
}