Я пытаюсь подавить строки, начинающиеся с [T
, не делая положительного совпадения и не сводя на нет результаты .
my @tests = ("OT", "[T","NOT EXCLUDED");
foreach my $test (@tests)
{
#match from start of string,
#include 'Not left sq bracket' then include 'Not capital T'
if ($test =~ /^[^\[][^T]/) #equivalent to /^[^\x5B][^T]/
{
print $test,"\n";
}
}
Выходы
NOT EXCLUDED
У меня вопрос, может кто-нибудь сказать мне, почему OT
исключается в приведенном выше примере?
EDIT
Спасибо всем за ваши ответы до сих пор, я вижу, что я был немного тупым.