Unnamed

#!/usr/bin/perl
# basedir and basename v1.1 by xorc.

sub basename {
        my @filepath;
        @filepath = split(/\//,shift);
        return $filepath[@filepath-1];
}
sub basedir {
        my $dir;
        my $dirArr;
        my $rtn;

        my $dir = shift;
        @dirArr = split(/\//,$dir);
        pop @dirArr;
        for ($x=0; $x < @dirArr; $x++) {
                if ($dirArr[$x]) {
                        $dirArr[$x] =~ s/.//;
                        $rtn .= "/".@dirArr[$x];
                }
        }
        return $rtn;
}
print basedir($0);
print "\n";
print basename($0);