Peut-on utiliser grep sur une variable Perl?

Question

Est-il possible d'une manière ou d'une autre, dans un script Perl, d'exécuter efficacement grep par rapport à une variable Perl? Une fonction Perl équivalente serait également acceptable, je veux juste garder la solution aussi simple que possible.

Par exemple:

#!/usr/bin/perl 
#!/bin/grep 

$var="foobar"; 

$newvar="system('grep -o "foo" $var'); 

sprintf $newvar; 

Là où j'attends sprintf $newvar à la sortie foo.

Souhaitez-vous également des commentaires sur les meilleures pratiques ici. Je ne suis pas extrêmement familier avec Perl.

Answer 1

vous pouvez simplement utiliser la correspondance regex en Perl. Pas besoin d'appeler la commande "grep" externe.

$var =~ /foo/; 

s'il vous plaît lire la documentation perlrequick pour l'introduction sur la façon de rechercher des modèles dans les variables. Aussi intéressant est le propre grep de Perl.

$var="foobar"; 
if ($var =~ /foo/){ 
    print "found foo\n"; 
}