【Perl】特定文字列の抽出方法が分かりません。

$aに以下のように、
SNから始まる不規則な桁の半角数字 ＋ 半角スペース ＋ 半角の不規則な桁の英数字 が代入されているとして、

$a = "SN0123456789012345 Aabc1ef";

$bに、半角スペースより前の文字列（SN0123456789012345）のみを
代入するにはどのようなソースにするといいのでしょうか？
御教授お願いします。

No.4 ベストアンサー 回答者： SHOO-3 回答日時： 2006/04/08 16:37

あ、間違い

substr($temp, 0, index($temp, ' '));
じゃなくて、
substr($a, 0, index($a, ' '));
だった。
ちなみに、正規表現を使わない分高速(だけどけたが小さければさほど差はない)

この回答へのお礼

おかげさまで解決しました。
御丁寧且つ効率の良い内容での回答をありがとうございました。

お礼日時：2006/04/09 01:32

No.3 回答者： SHOO-3 回答日時： 2006/04/08 16:35

my $a= "SN0123456789012345 Aabc1ef";

$b = substr($temp, 0, index($temp, ' '));
substr で文字列$aを、0個目からindexで探したスペースのあるところ(長さ)までを切り出し、$bに代入しています。

No.2 回答者： BLUEPIXY 回答日時： 2006/04/08 16:34

$b = (split / /, $a)[0];

この回答へのお礼

おかげさまで解決しました。
回答をありがとうございました。

お礼日時：2006/04/09 01:33

No.1 回答者： Tacosan 回答日時： 2006/04/08 16:32

($b) = ($a =~ /^(\S*)\s/);

この回答へのお礼

おかげさまで解決しました。
回答をありがとうございました。

お礼日時：2006/04/09 01:34