看code用

#!/bin/perl
use strict;

my $cmd = "grep --color";
if (defined $ARGV[1]) {
    if (-d -e $ARGV[1]) {
        $cmd .= " '$ARGV[0]' -R '$ARGV[1]'";
    } else {
        die;
    }
} elsif (defined $ARGV[0]) {
    $cmd .= " '$ARGV[0]' -R .";
} else {
    die;
}

print $cmd, "\n";
system($cmd);

#!/bin/perl
use strict;

my $cmd = "find";
if (defined $ARGV[1]) {
    if (-d -e $ARGV[1]) {
        $cmd .= " '$ARGV[1]' -name '$ARGV[0]'";
    } else {
        die;
    }
} elsif (defined $ARGV[0]) {
    $cmd .= " . -name '$ARGV[0]'";
} else {
    die;
}

print $cmd, "\n";
system($cmd);

rgrep xxx dir
rgrep xxx
fbn xxx.sv dir
fbn xxx.sv