|
ミングさんはじめまして。 まず abcd771gfds の件です。 #!/usr/bin/perl $string = "abcd771gfds"; $string =~ /(\W+)\s+(\d+)/; print "1:<$1> 2:<$2> string:<$string>\n"; を動かすと 1:<> 2:<> string:<abcd771gfds> と出ました。 \W+ は、英数字（word）以外１文字以上なので、なくてあたりまえ。 \s+ は、空白文字（space）１文字以上なので、なくてあたりまえ。 \d+ は、数字（digit）１文字以上だが、前に \W も \s もないのでダメ。 もし、$1 に abcd、$2 に 771（7771 は間違い？）を入れようとするなら、 $string =~ /^([a-zA-Z])(\d+)/; とかでしょうか。 ^ は文字列の先頭を示します。 これをやらないとどこからサーチしはじめるかわからん。 [a-zA-Z] は英字。\d は数字。 （わー、目からウロコ。英字のカンタンな文字クラスってないんですね） #!/usr/local/bin/perl $string = "abcd771gfds"; $string =~ /^([a-zA-Z]+)(\d+)/; print "1:<$1> 2:<$2> string:<$string>\n"; を動かすと 1:<abcd> 2:<771> string:<abcd771gfds> となりました。 |