我有一个字符串,想得到它的一部分。假设我有一个字符串说“set aid ODU4-4-3”。我只想从中取出 ODU。而字符串的模式不固定。 IT可能有些像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。
最佳答案
和 Tcl:
if {[regexp {^[[:alpha:]]+} $string letters]} {
puts $letters
}
关于Perl/TCL 中的正则表达式,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10243531/