正则表达式匹配[0-9] - [A-Z0-9] .wav

Question

我有以下Perl代码：

perl -ane 'm|/(..)/([1-9zo]+[ab])\.wav| || die "bad line $_"; print "$1_$2 $_";'

我不需要匹配像/m/ad/11b.wav这样的文件路径，而是需要匹配文件路径，如：

/m/6-23E5CD3A14BC47154F29E25578FC4.wav

Answer 1

您想要1美元和2美元的形式？你想1美元像“/ m”吗？ 你想2美元是“6-23 ......”吗？还有别的吗？

m|(..)/([[:digit:][:upper:]-]+)(?>\.wav)$| || die; print "$1_$2 $_";

这个正则表达式产生：

/m_6-23E5CD3A14BC47154F29E25578FC4