##
grep ((expr), @list);
##
##
grep { block } @list;
##
##
grep {
( -f "$path/$_" ) and
( $_ =~ m/\.(java|xml|cpp|c|h|inc|pas)$/i ) and
( $self->Scan_File( "$path/$_", $out, $target )
} @files );
# Also scan any subdirectories.
grep {
( ( -d "$path/$_" ) and
( $_ !~ /^\.+$/ ) and # but avoid . and ..
( $self->parseDir( "$path/$_", $out, $target )
)
} @files;
##
##
------------
:Wq
Not an editor command: Wq