13/12/18 00:22:55.22
>>16
日本語は？
19:デフォルトの名無しさん
13/12/18 00:45:13.94
sub namechk{
$buf=shift; #引数として名前を受け取る
if ($buf=~/(.+)(\s|\.|＝|・)(.+)(\s|\.|＝|・)(.+)/){
return ($1,$3,$5);
}elsif ($buf=~/(.+)(\s|\.|＝|・)(.+)/){
return ($1,"",$3);
}
}
こっちのほうがいい。
20:デフォルトの名無しさん
13/12/18 00:58:54.76
正規化しろ
21:デフォルトの名無しさん
13/12/18 01:01:51.51
正規化しろ
22:デフォルトの名無しさん
13/12/18 01:12:12.27
正規表現縛りな奴って何考えて生きてんの？
23:デフォルトの名無しさん
13/12/18 01:42:16.31
正規化したら1行余計なものが増えるじゃん
sub namechk{
$buf = shift;
$buf =~s/(\s|\.|=|＝|・)/"."/meg;
if ( $buf =~/(.+)\.(.+)\.(.+)/ ){
return ( $1 , $2 , $3 );
}elsif ( $buf =~/(.+)\.(.+)/ ){
return ( $1 , "" , $2 );
}
}