Можно ли использовать 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 grep .

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