Doing $result=$_ inside the loop should work, but after the loop, $result will have the value of $_ from the last loop that executed. That might not be what you expected. I would test it by trying something like this:
my $result;
while(<$chan>){
$result = $_;
print "Inside loop: $result\n";
}
print "Outside loop: $result\n";
That should show you what's being assigned in each loop, and the last inside loop should show the same value as what ends up outside it.
One other thing: if you have other code inside the loop which you've removed for the sake of this sample, make sure it's not changing the value of $_ before you assign it to $result.
Aaron B.
Available for small or large Perl jobs and *nix system administration; see my home node.
|