Блог

Я пытаюсь запустить следующий код:

 $lines = "Enjoyable )) DAY";
$lines =~ lc $lines;
print $lines;
 

Он завершается ошибкой во второй строке, где я получаю ошибку, указанную в названии. Я понимаю, что скобки вызывают проблемы. Я думаю, что мог бы использовать «quotemeta», но дело в том, что моя строка содержит информацию, которую я продолжу обрабатывать позже, поэтому я хотел бы сохранить строку неповрежденной, насколько это возможно, и не вмешиваться в нее слишком сильно.

Здесь у вас две проблемы.

1. =~ используется для выполнения определенного набора операций

=~ Оператор используется либо для сопоставления со // строкой, m// , qr// либо для замены на s/// или tr/// .

Если все, что вы хотите сделать, это ввести содержимое в нижний регистр $lines , тогда вам следует использовать = not =~ .

 $lines = "Enjoyable )) DAY";
$lines = lc $lines;
print $lines;
 

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

Если вы хотите сопоставить $lines с версией в нижнем регистре $Lines , которая должна возвращать true, если $lines уже была полностью в нижнем регистре, и false в противном случае, тогда вам нужно экранировать символы «)».

 #!/usr/bin/env perl

use strict;
use warnings;

my $lines = "enjoyable )) day";

if ($lines =~ lc quotemeta $lines) {
    print "lines is lower casen";
}

print $lines;
 

Обратите внимание, что это игрушечный пример, пытающийся найти причину для выполнения $lines =~ lc $lines — было бы намного лучше (быстрее, безопаснее) решить это с eq помощью as in $lines eq lc $lines .

См perldoc -f quotemeta . Или http://perldoc.perl.org/functions/quotemeta.html для получения более подробной информации о quotemeta.

=~ используется для регулярных выражений. «lc» не является частью регулярного выражения, это такая функция: $new = lc ($ old);

Я не помню оператор регулярных выражений для нижнего регистра, потому что я постоянно использую lc() .