CGIの正規化

Perlでプログラムを組んでいます。

正規化って便利なものがあるのは判ったのですが、
使い方がいまいち判りません。

例えば
空白から＠までの文字を取得したい場合は
どのように書いたら良いのでしょうか
□をスペースとして

abcf□defgh＠ertyh□asdfg

見たいな文字列で
defgh　を取得したいのです。　

良かったら教えてください。

No.2 回答者： pick52 回答日時： 2008/08/03 23:33

あ、蛇足ですがこの場合はCGIに関する質問ではなく完全にPerlに

関することですので(PerlとCGIはイコールじゃない)Perlのカテゴリの
方に投稿した方がよかったかも。

参考URL：http://ja.wikipedia.org/wiki/Common_Gateway_Inte …

No.1 回答者： pick52 回答日時： 2008/08/03 22:57

正規表現のことでしょうか。

正規表現の説明についてはWikipediaやWikibooksなどを参照して貰う
としてご希望の動作は

m/\s+(.*?)\@/

で取得できませんか。

my $str = 'abcf defgh@ertyh asdfg';
my $buf = $1 if($str =~ m/\s+(.*?)\@/);
print $buf;

http://ja.wikipedia.org/wiki/%E6%AD%A3%E8%A6%8F% …
http://ja.wikibooks.org/wiki/Perl/%E6%AD%A3%E8%A …