若干条记录，如下所示。

BGM001.....

NADabcd....

SG001uiqt...

SG17001+09999...

SG17002+1256....

SG7xxxxxxx....

UNT20071217

其中BGM、NAD、SG001、SG17001、SG17002、SG7、UNT是RecordType。现在要求对于每条记录返回其RecordType。该问题麻烦在RecordType的长度不确定，无法通过$RecordType=substr($_,0,$length)来获得。假设每条记录使用$_变量来代表。

但是有一点是确定的，所有的RecordType只有这7种。此时可以利用s命令来解决。

s用来在某个字符串中查找匹配模式，并进行个性化替换。

my recordType

$RecordType = $_;

$RecordType =~ s/(BGM|NAD|SG001|SG17001|SG17002|SG7|UNT).*/$1/;

注意，这里最好先将$_的值赋给$RecordType，因为s命令会改变$_的值。