perl - 从字符串中删除引号

Question

所以我认为这只是一个简单的问题，但是我得到了不正确的结果。基本上我试图删除字符串周围的引号。例如，我有字符串“01:00”，我想要 01:00，下面是我认为如何做到这一点的代码:

$expected_start_time = $conditions =~ m/(\"[^\"])/;

每次运行它都会返回 1，所以我猜它只是返回 true 而不是实际从引号中提取字符串。无论引号“02:00”、“02:20”、“08:00”等中是什么，都会发生这种情况。

Answer 1

您忘记的只是 LHS 将匹配项放入列表上下文中的括号，以便它返回子匹配组。执行此操作的正常方法是:

 ($expected_start_time) = $condition =~ /"([^"]*)"/;