package Properties; 
##################################################################### 
# File        : Properties.pm 
# Description :  
##################################################################### 
use strict; 
use Carp; 
use FileHandle; 
use vars qw($properties);     
 
#==================================================================== 
# Method: addProperties 
#==================================================================== 
sub addProperties 
   { 
   my $package  = shift(); 
   my $propFile = shift(); 
   my $name     = shift() || '__default__'; 
   my $fh       = FileHandle->new($propFile) || die($!);  
 
   #----------------------------------------------------------------- 
   # Read into a hash, referenced by $name, the contents of the file 
   # We assume a properties file consists of a number of lines of the 
   # form key = value. White space is ignored 
   #----------------------------------------------------------------- 
   #----------------------------------------------------------------- 
   # First strip comments ... then empty lines 
   #----------------------------------------------------------------- 
   my @lines = grep !/^\s*$/, map { s/\s*#.*//; $_ } <$fh>; 
   #----------------------------------------------------------------- 
   # First strip comments ... then empty lines 
   #----------------------------------------------------------------- 
   @lines = map { s/\$(\w+)/$ENV{$1}/g; $_ } @lines; 
   #----------------------------------------------------------------- 
   # ... then parse the key value pairs  
   #----------------------------------------------------------------- 
   $properties->{$name} = { map { $_ =~ m/(\S+)\s*=\s*(.*)/} @lines };  
   $fh->close();  
   }  
 
#==================================================================== 
# Method: get 
#==================================================================== 
sub get 
   { 
   my $package  = shift(); 
   my $property = shift(); 
   my $name     = shift() || '__default__';  
 
   return $properties->{$name}{$property}; 
   }  
 
#==================================================================== 
# Method: set 
#==================================================================== 
sub set 
   { 
   my $package  = shift(); 
   my $property = shift(); 
   my $value    = shift(); 
   my $name     = shift() || '__default__';  
 
   return $properties->{$name}{$property} = $value; 
   }  
 
1;

##################################################################### 
# File: properties.txt 
##################################################################### 
valueOne      = 1               # number 
valueTwo      = $HOME/bin  # path

##################################################################### 
# File        : sample.pl 
# Description :  
##################################################################### 
use strict; 
use Properties;  
 
#==================================================================== 
# Get the properties 
#==================================================================== 
my $propertyFile = shift() or die("Usage: $0 <propertyFile>"); 
Properties->addProperties($propertyFile);  
 
printf("%d : %s", 
       Properties->get('valueOne'), 
       Properties->get('valueTwo'));

my( $package, $propFile, $name ) = @_; 
   $name ||= '__default__';

   my $package  = shift();  
   my $propFile = shift();  
   my $name     = shift() || '__default__';