Select Code to Download

sub getProperties
{
...
    bless($props);
    return $props;
}

sub get
{
...
  my $propName = shift;
  return $self->{$propName};
}

$VAR1 = bless( {
                 'log.name' => 'data load',
...
                 'localpath' => '/usr/local/reporting/ytsmsc',
                 'machine' => '172.23.2.2'
               }, 'Properties' );

sub get
{
...

#  return $self->{'$propName'};
}

[appadmin@NEOps2]/usr/local/reporting(159): ./u.pl --ne=floom --conf=t
+est.conf
?remote.passwd?
...
        passwd => xXxX
        rows => 1
        username => smsc

...
?remote.passwd?
>>remote.passwd
        remote.passwd =>