Perl:自定义排序顺序？

Question

速记键盘具有特定顺序的键:STKPWHRAO*#EUFRPBLGTS.

我试图输入一个输入$ word并确定其字母是否遵循此顺序,从左到右.

所以KAT是有效的,但FRAG不会,因为虽然F在右边的R之前,但它们不在A-之前.TKPWAUL会起作用,但GAUL不会,因为-G不在A之前.钥匙必须从左到右排序.

我被订单中出现两次的一些信件绊倒了.

非常感谢你的任何ieas!

Answer 1

你可以创建一个带有锚点的正则表达式来开始和结束字符串,并允许每个字符0或一次.这是一个例子:

sub match {
    my $yesno = $_[0] =~ /^S?T?K?P?W?H?R?A?O?\*?#?E?U?F?R?P?B?L?G?T?S?\.?$/g;
    print $_[0] . " " . ($yesno ? 'yes' : 'no') . "\n";
}
match 'KAT';
match 'FRAG';
match 'TKPWAUL';
match 'GAUL';

提供

KAT yes
FRAG no
TKPWAUL yes
GAUL no

你可以通过生成一个列表,正则表达式split,join等等.