CGIの正規化

質問

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

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

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

abcf□defgh＠ertyh□asdfg

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

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

回答No.2

pick52

あ、蛇足ですがこの場合はCGIに関する質問ではなく完全にPerlに
関することですので(PerlとCGIはイコールじゃない)Perlのカテゴリの
方に投稿した方がよかったかも。

参考URL：

http://ja.wikipedia.org/wiki/Common_Gateway_Interface

回答No.1

pick52

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

正規表現の説明については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%E8%A1%A8%E7%8F%BE
http://ja.wikibooks.org/wiki/Perl/%E6%AD%A3%E8%A6%8F%E8%A1%A8%E7%8F%BE