Miscellany

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

use strict;

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

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