☰ Dup Ver Goto 📝

Which1

PT2/lang/perl/toy-examples does not exist
To
16 lines, 37 words, 218 chars Page 'Which1' does not exist.

A simple which clone:

#!/usr/bin/env perl

$target = $ARGV[0];
$path = $ENV{PATH};
@path = split ":", $path;
for(@path) {
  $b = "$_/$target";
  if( -x "$b" ) {
    print "$b\n";
    exit 0;
  }
}
exit 1;