Change
$arg=<stdin>;
to
chomp($arg=<stdin>);

Ref: chomp, IO Operators

Update: Oh and change
print $arg;
to
return $arg;

1. use strictures (use strict; use warnings;).
2. $self->{i}={[(110,FB),(100,F)]}; does not make sense. What do you intend?
3. Where are you looking to return a hash value?

The following reworked sample code may give you some hints:

use strict;
use warnings;

package ngetlogstdin;

sub new {
    my $self={};
    $self->{o}="ngeterr.log";
    $self->{a}=undef;
    $self->{i}={110 => 'FB', 100 => 'F'};
    $self->{F}=undef;
    $self->{B}='http://wibble.wobble.com';
    bless $self;
    return $self;
}

sub access {
    my $self=shift;
    my $arg=shift;
    print $arg; # Note that "result" of print is the return value
}

1;

package main;

my $obj=new ngetlogstdin;

for my $key(keys %$obj){print "$key\n"};

my $arg='tomatoes';
my $value=$obj->access($arg);

print $value;
[download]

Prints:

F
a
B
i
o
tomatoes1
[download]

Ok, Well I guess what I'm asking is how to get 'at' the hash from the accessor. I want to prompt for the key then print the value.

so you want something like:

sub access {
    my ($self, $arg) = @_;
    return $self->{$arg};
}

...

my $arg='B';
[download]

Prints (using previous sample code):

F
a
B
i
o
http://wibble.wobble.com
[download]

---

DWIM is Perl's answer to Gödel

And I'll say the same thing I said to you earlier in the CB .. run your code in the debugger, and you'll find your error.

$self->{i}={[(110,FB),(100,F)]};

This is almost certainly not doing what you think it's doing.

You take two lists - (110, FB) and (100, F) - and flatten them into a single list - (110, FB, 100, F). You then create an anonymous array that contains this list. You then create an anonymous hash where the (single) key is the stringified reference to your anonymous array. There is no value associated with this key.

Adding "use strict" and "use warnings" to your code will really help you to track down problems like this.

Hi, Thanks for drawing attention to this syntax. Won't the value to the stringified key be in fact the anon array. That is the one flattened list. Its here that i thought I could do something like:

$self->{i}={[(110,FB),(100,F)]}
...
$objinstance=Class::package();
$value=$objinstance->{i};
for (@$value){..do some code with (110,FB) and (100,F)}
[download]

Won't the value to the stringified key be in fact the anon array

No. There won't be a value. You haven't set a value. You can check this easily with Data::Dumper.

$ perl -MData::Dumper -le 'print Dumper {[(110,FB),(100,F)]}'
$VAR1 = {
          'ARRAY(0x125560)' => undef
        };
[download]

--


See the Copyright notice on my home node.

"The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg