Controllare se una stringa contiene una stringa

Question

Come posso verificare se una data stringa contiene una certa stringa, utilizzando Perl?

Più in particolare, voglio vedere se s1.domain.com è presente nella variabile stringa data.

Answer 1

per verificare se una stringa contiene sottostringa è possibile utilizzare la funzione di index:

if (index($str, $substr) != -1) { 
    print "$str contains $substr\n"; 
} 

tornerà la posizione della prima occorrenza di $substr in $str, oppure -1 se la stringa non viene trovata.

Answer 2

Un'altra possibilità è quella di utilizzare regular expressions che è ciò che Perl è famosa per:

if ($mystring =~ /s1\.domain\.com/) { 
    print qq("$mystring" contains "s1.domain.com"\n); 
} 

I backslash sono necessari perché un . può adattarsi a qualsiasi carattere. È possibile aggirare questo utilizzando gli operatori \Q e \E.

my $substring = "s1.domain.com"; 
    if ($mystring =~ /\Q$substring\E/) { 
    print qq("$mystring" contains "$substring"\n); 
} 

Oppure, si può fare come eugene y dichiarato e utilizzare la funzione index. Solo una parola di avvertimento: Index restituisce un -1 quando non riesce a trovare una corrispondenza invece di un undef o 0.

Quindi, questo è un errore:

my $substring = "s1.domain.com"; 
if (not index($mystring, $substr)) { 
    print qq("$mystring" doesn't contains "$substring"\n"; 
} 

questo sarà male se s1.domain.com è all'inizio della stringa. Sono stato personalmente bruciato su questo più di una volta.

Answer 3

Case Insensitive Substring Esempio

Si tratta di un'estensione della risposta di Eugenio, che converte le stringhe in minuscolo prima di controllare per la stringa:

if (index(lc($str), lc($substr)) != -1) { 
    print "$str contains $substr\n"; 
}