Как использовать регулярное выражение в обратном направлении во время выписки

Question

open IN, "in.txt"; 
open OUT, ">out.txt"; 

print OUT unless m[^foo] while <IN>; 

Почему этот код не компилируется?

Answer 1

Проблема заключается в том, что запись, которая позволяет писать if/unless/while в качестве суффикса к строке кода может быть использован только один раз в этой строке. Таким образом, вы должны заменить последнюю строку в вас код с:

while (<IN>) { 
    print OUT unless m[^foo]; 
} 

Альтернативой для этого случая использовать or:

m[^foo] or print OUT while <IN>;