Perl Regex для сопоставления строк и чисел внутри файла

Question

Привет Я новичок в perl и пытаюсь написать регулярное выражение, чтобы найти соответствие для определенного диапазона чисел и строк в строке внутри файла, мне нужно найти строки (" Документ имеет 15 строк и 2 столбца ").

Я знаю, что я что-то не хватает, но код, который я пытался до сих пор:

if(/^[a-zA-Z\d]+(has\s[1-9][0-9]$)\srows.*columns/) 
{ 
print "$_\n"; 
} 

Было бы очень полезно, если бы кто-нибудь, дайте мне знать, что здесь не так!

Answer 1

Easy регулярное выражение для использования:

/Document has [0-9]+ row(s?) and [0-9]+ column(s?)/ 

Если s используется только тогда, когда есть больше чем одна строка/столбец

Answer 2

Я предполагаю, что вы хотите, чтобы захватить номера.

if (/^Document has (\d+) rows and (\d+) columns/) { 
    my $rows = $1; 
    my $cols = $2; 

Answer 3

my $line = "Document has 15 rows and 2 columns" 

if ($line =~ /^Document has (\d+) rows? and (\d+) columns?/) 
{ 
    print "rows = $1\n"; 
    print "cols = $2\n"; 
} 

Answer 4

Если вы просто хотите, количество строк, используйте:

if (/(\d+)\s+rows/) { 
    print "$1\n"; 
} 

Если вы хотите строки и столбцы (и они всегда в таком порядке), используйте:

if (/(\d+)\s+rows\s+and\s+(\d+)\s+columns/) { 
    print "$1 rows and $2 columns\n"; 
} 

Если вы считаете, что это необходимо, вы можете быть более ограничительным, если вам необходимо: ограничение количества цифр, форсирование несущих нулей и т. Д.

Кроме того, я предполагаю, что вы либо используете «-n» в командной строке, либо имеете цикл вокруг этого.

Answer 5

Другие ответы здесь хороши, но объяснить, что случилось с регулярным выражением вы использовали:

if(/^[a-zA-Z\d]+(has\s[1-9][0-9]$)\srows.*columns/) 

Первая проблема: выражение не определяет каких-либо пробелов между началом строки и слова has , поэтому нет возможности для этого шаблона соответствовать пространству в Document has...

Вторая проблема: символ $ в регулярном выражении означает «соответствовать, если строка заканчивается здесь». Почти всегда ошибка заключается в использовании якоря $ в середине регулярного выражения; единственный путь этот матч будет будет в многострочный строки как

Documenthas 15 
rows and 7 columns 

внесении эти два изменения в вашем выражении делает его работу:

if(/^[a-zA-Z\d]+\s(has\s[1-9][0-9])\srows.*columns/) 
{ 
print "$_\n"; 
}