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