Может ли grep использоваться для переменной Perl?

Question

Возможно ли, так или иначе, в скрипте Perl эффективно выполнить grep для переменной Perl? Эквивалентная функция Perl была бы одинаково приемлема, я просто хочу, чтобы решение было максимально простым.

Например:

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

$var="foobar"; 

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

sprintf $newvar; 

Где я ожидаю sprintf $newvar к выходу foo.

Также приветствуем любые отзывы о лучшей практике здесь. Я не очень знаком с Perl.

Answer 1

Вы можете просто использовать регулярное выражение в Perl. Нет необходимости вызывать внешнюю команду «grep».

$var =~ /foo/; 

пожалуйста, прочитайте документацию perlrequick для введения о том, как искать закономерности в переменных. Также интересен Perl's grep.

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