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