]>
Commit | Line | Data |
---|---|---|
d13363af RL |
1 | #!/usr/local/bin/perl |
2 | ||
3 | if ($#ARGV < 0) { | |
4 | die "dirname.pl: too few arguments\n"; | |
5 | } elsif ($#ARGV > 0) { | |
6 | die "dirname.pl: too many arguments\n"; | |
7 | } | |
8 | ||
9 | my $d = $ARGV[0]; | |
10 | ||
11 | if ($d =~ m|.*/.*|) { | |
12 | $d =~ s|/[^/]*$||; | |
13 | } else { | |
14 | $d = "."; | |
15 | } | |
16 | ||
17 | print $d,"\n"; | |
18 | exit(0); |