perl语言中的模式匹配问题创建一个用于匹配标准时间格式的模式.下面的所有格式应该都是可行的：12:00am、5:00pm、8:30AM.下面这些格式是不行的：3:00、2:60am、99:00am、3:0pm.

Question

perl语言中的模式匹配问题
创建一个用于匹配标准时间格式的模式.下面的所有格式应该都是可
行的：1 2 :0 0 a m、5 :0 0 p m、8 :3 0 A M.下面这些格式是不行的：3 :0 0、2 :6 0 a m、9 9 :0 0 a m、 3 :0 p m.编写一个短程序,使它能够执行下列操作：1) 打开一个文件.2) 将所有文件行读入一个数组.3) 从每个行中取出所有单词.4) 找出至少拥有4个连续辅音或非元音字母的所有单词（比如“ t h o ug h t s”或“y ar d s ti c k”

Answer 1

1: if (/(\d)+:(\d+)[ap]m/i && $1