在Perl中使用grep和gawk

$result = grep { /pattern/ } @files;

$result = grep { /pattern/ } @files;
$output = $result;

$result = gawk '/pattern/ { print $0 }' @files > new_file.txt;

$result = gawk '/pattern/ { print $0 }' @files;
@output = $result;

$result = grep { /pattern/ } gawk '/pattern/ { print $0 }' @files;