Как зачеркнуть кавычки в perl? - PullRequest
0 голосов
/ 03 июля 2011
my $search = "Sony's";
my $string = "in TV sony's walkman";

как я могу получить совпадение "sony's" в $string с использованием регулярного выражения.

Ответы [ 2 ]

6 голосов
/ 03 июля 2011
my $search = "Sony's";
my $string = "in TV sony's walkman";

$string =~ /$search/;   # does not match
$string =~ /$search/i;  # matches case-insensitive

Это общий вопрос для начинающих. Пожалуйста, сначала изучите язык , прочитайте одну или две книги .

3 голосов
/ 03 июля 2011

Поскольку требуется совпадение без учета регистра, используйте модификатор i:

#!/usr/bin/env perl

use strict;
use warnings;

my $search = "Sony's";
my $string = "in TV sony's walkman";

if ( my ($match) = $string =~ /($search)/i ) {
    print "Matched string: $match";
}

Пожалуйста, прочитайте: perldoc perlretut.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...