Help for this page

Select Code to Download


  1. or download this
          
            my $patt = "*".$_."*";
            my $lc_file1 = "";
    my $cmd = "find $dir1 \(! -name /proj/dev_dbdump/files_36  -prune\) -n
    +ame $patt -print";
    $lc_file1 = `$cmd`;