regex - Perl/TCL の正規表現

Question

私は文字列を持っていて、その一部を取得したいと考えています。「セットエイド ODU4-4-3」という文字列があるとします。そこからODUだけ取りたい。ストリングのパターンは固定されていません。それはODU、ODU4、ODUXのようなものかもしれません。これを取得する方法がわかりません

$aid = "ODU4-9-1";
$aid =~ /(\w)+\d*-\d-\d/;
print " value is $1"

出力

value is ODU4

文字列パターンが変更される可能性があるのに対し、値は ODU のみである必要があります。ODU-4-3 のみの場合もあれば、ODU4-4-3 の場合もあります。

score 3 · Accepted Answer

3

およびTcl：

if {[regexp {^[[:alpha:]]+} $string letters]} {
    puts $letters
}

于 2012-04-20T10:06:51.003 に答える

score 2 · Accepted Answer

すべての一致を返す @ M42 の回答のバージョン:

my @allmatches = $aid =~ /([A-Z]{3}).*?\-\d\-\d/;

score 1 · Accepted Answer

oduでアルファベットだけが必要な場合は、これでうまくいくはずです

$aid =~ /([[:alpha:]]+)/;

score 1 · Accepted Answer

どうですか：

$aid =~ /([A-Z]{3}).*?-\d-\d/;

長さが 0 より大きく、大文字と小文字を区別しない場合は、次を使用します

$aid =~ /([a-zA-Z]+).*?-\d-\d/;

4 に答える 4