Greets Monks,
Just a little rusty after an extended hiatus:
Looking to return the hash value here? Can anyone point
out my error and suggest a fix?
Thanks Monks.
#! /usr/bin/perl
package ngetlogstdin;
sub new {
my $self={};
$self->{o}="ngeterr.log";
$self->{a}=undef;
$self->{i}={[(110,FB),(100,F)]};
$self->{F}=undef;
$self->{B}=$url;
bless $self,ngetlogstdin;
return $self;
}
sub access
{
$self=shift;
$arg=shift;
print $arg;
}
The interface:
#! /usr/bin/perl
use ngetlogstdin;
$obj=new ngetlogstdin;
for $key(keys %$obj){print "$key\n"};
$arg=<stdin>;
$value=$obj->access($arg);
print $value;