Regexp in 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.

Answer 1

Версия @ M42 «s ответ, который возвращает все матчи:

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

Answer 2

Как насчет:

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

для любой длины больше, чем 0 и нечувствительны к регистру, используйте

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

Answer 3

Если вы хотите только алфавитов в odu, тогда это должно сделать трюк

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

Answer 4

и Tcl:

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