Perl regex для соответствия метасимволам

Question

У меня есть текстовый файл, похожий на следующий.

Jack  Boy 
Jill  Girl 
Jam  ???? 
John  Boy 
Michelle Girl 

Я написал это, который я намеревался соответствовать только те строки, которые содержат два слова, а не линии Jam ????. Это не работает.

if ($line =~ (/(\w+)\s+(\w+)/) && !(m/\?\?\?\?/)) 

Answer 1

Я не вижу никакой необходимости, чтобы соответствовать метасимволам для конкретного ввода:

use warnings; 
use strict; 

while (<DATA>) { 
    print if /(\w+)\s+(\w+)/; 
} 

__DATA__ 
Jack  Boy 
Jill  Girl 
Jam  ???? 
John  Boy 
Michelle Girl 

Answer 2

Является ли эта только два варианта: два слова или слово и ?????

Если это так, первой части /(\w)+\s+(\w+)/ достаточно.

\w не соответствует ?.

Answer 3

Если вы также являетесь обработки данных, то регулярное выражение является неправильным инструментом для этого.

Вы должны просто разделить каждую строку на поля и проверить, не содержит ли второе поле ничего, кроме вопросительных знаков.

Как это

use strict; 
use warnings; 

while (my $line = <DATA>) { 
    my @fields = split ' ', $line; 
    next unless $fields[1] =~ /[^?]/; 
    print $line; 
} 

__DATA__ 
Jack  Boy 
Jill  Girl 
Jam  ???? 
John  Boy 
Michelle Girl 

выход покрыли

Jack  Boy 
Jill  Girl 
John  Boy 
Michelle Girl 

Answer 4

Предыдущие ответы, что это на самом деле не правильный процесс, но иногда фильтрации строк с помощью регулярных выражений является полезным в одном случае заявление.

У вас его почти не было! Во второй половине оператора if отсутствует соответствующий оператор.

if ($line =~ (/(\w+)\s+(\w+)/) && !($line =~ m/\?\?\?\?/))