Re: Read a variable backwards..

[johngg]

You could use chop if you don't need to retain the string.

$ perl -E '
$str = q{abcdefg};
say chop $str while $str;'
g
f
e
d
c
b
a
$

I hope this is helpful.

[moritz]

Make that

say chop $str while length $str;

Otherwise if the string starts with 0, the last iteration will be omitted, because Perl considers the string 0 to be false.

[littlemonk]

check this code

$str="123456789";
@arr=split(//,$str);
while($tmp=pop(@arr)){
print "\nfirst-frm last-->$tmp";
}