view release on metacpan or  search on metacpan

lib/WWW/Autosite.pm  view on Meta::CPAN

argument is abs path to a -t text file
returns content

	my $src - slurp('/path/to/default.css');
	
=cut

sub abs_path_n {
	my $absPath = shift;
	return $absPath if $absPath =~ m{^/$};
   my @elems = split m{/}, $absPath;
   my $ptr = 1;
   while($ptr <= $#elems)
    {
        if($elems[$ptr] eq q{})
        {
            splice @elems, $ptr, 1;
        }
        elsif($elems[$ptr] eq q{.})
        {
            splice @elems, $ptr, 1;