文字列から記号を抽出する

Question

私は投資クラブプロジェクトのために、以下のような文字列をいくつか持っています（私は非専門家です）。

可能な文字列：

$EXPE - Analysts' Actions: TZOO, MSFT, GOOG, .... 
$V - Analysts' Actions: TZOO, MSFT, GOOG, .... 
$HPQ - Analysts' Actions: TZOO, MSFT, GOOG, ... 

私は上記の行と記号は1-4文字（例えば$ V、$ GOOG、$ VMW可能性があり、他の類似文字列から"EXPE"、"V"、"HPQ"を抽出したいです）など

会社のシンボルが固定長であれば抽出できます。

Answer 1

は、これは明らかに私が正しく質問を読むことができない

# you also need to check word boundaries. 
my @symbols = $string =~ m/(\b[A-Z]{1,4}\b)/g 

ライン

からすべてのシンボルを抽出します。

my $symbol = $string =~ /\$([A-Z]+)/; 

その他は正しいです。

Answer 2

これを試してみてください：

^\$([A-Z]{1,4}) 

これは1-zの文字を大文字4に続く文字列の先頭から$を探します。

あなたは{1,4}数量詞と、ここで他のメタ文字についての詳細を読むことができます：http://www.regular-expressions.info/reference.html

Answer 3

my $string = q<$EXPE - Analysts' Actions: TZOO, MSFT, GOOG>; 
my ($company_symbol) = $string =~ /^\$([A-Z]{1,4})/; 
print "got $company_symbol from $string\n";