DZone Snippets: file extension code

file extension methods

elliottcable (elliott cable) — Sat, 17 May 2008 02:08:39 GMT

Allows you to use file extensions as methods



class File

  # Feel free to add more here, as you need them.

  Extensions = %r=^(txt|rb|markdown|textile|haml|sass|css|html|xhtml)$=i

  

  module Extension

    def method_missing(meth, *args)

      if Extensions =~ meth.to_s

        [self, '.', meth.to_s].join

      else

        super

      end # if

    end # method_missing

  end # Extension

end # File



class Symbol

  include File::Extension

end

class String

  include File::Extension

end



'myfile'.html

# => "myfile.html"



:a_file.rb

# => "a_file.rb"

basename & dirname in Perl

Minimiscience (Guildorn Tanaleth) — Fri, 06 Jul 2007 05:49:34 GMT

These two Perl functions implement approximations of the UNIX utilities `basename` and `dirname`, though basename() automatically strips off the last extension no matter what.

sub basename($) {

 my $file = shift;

 $file =~ s!^(?:.*/)?(.+?)(?:\.[^.]*)?$!$1!;

 return $file;

}



sub dirname($) {my $file = shift; $file =~ s!/?[^/]*/*$!!; return $file; }

File extension counter

Minimiscience (Guildorn Tanaleth) — Thu, 05 Jul 2007 02:40:03 GMT

Produces a count of the frequencies of each file extension in the directories named on the command line



#!/usr/bin/perl -w

use strict;

my %exten;

foreach (@ARGV) {

 /(\.[^.]+)$/ && $exten{$1}++ foreach glob "$_/*.*"

}

print "$_: $exten{$_}\n" foreach sort keys %exten;