locate

• Here's locate itself:

 #!/usr/bin/suidperl
 use strict 'vars';
 
 $ENV{PATH} = '/bin:/usr/bin';
 
 my $DEF_DB= '/var/lib/slocate/FILES';
 my $DB = $DEF_DB;
 my @GREPFLAGS = ();

 while ($ARGV[0] =~ /^-/) {
 if ($ARGV[0] =~ /^--([^=]*)=(.*)/) {
 if (1ドル eq 'database') {
 $DB = 2ドル;
 } else {
 push @GREPFLAGS, $ARGV[0];
 }
 } elsif ($ARGV[0] =~ /^-(.)/) {
 if (1ドル eq 'd') {
 $DB = $ARGV[1];
 shift;
 } else {
 push @GREPFLAGS, $ARGV[0];
 }
 } 
 shift;
 }
 my $PAT = shift;
 usage() if @ARGV > 0;