DB<111> $path='/tmp/path'
=> "/tmp/path"
DB<112> open $handle{$path},">",$path;
=> 1
DB<113> $handle{$path}->print("This is File $path")
=> 1
DB<114> close $handle{$path}
=> 1
DB<115> `cat $path`
=> "This is File /tmp/path"
####
DB<127> open $handle{$path},"<",$path;
=> 1
DB<128> ref $handle{$path}
=> "GLOB"
DB<129> print while (<$handle{$path}>)
GLOB(0x8f19688)
DB<130> print while (readline($handle{$path}))
This is File /tmp/path
DB<131> seek $handle{$path},0,0
=> 1
DB<132> readline($handle{$path})
=> "This is File /tmp/path"
##
##
DB<151> while ( my ($path,$handle) = each %handle ) {
print <$handle>;
}
This is File /tmp/path
##
##
DB<159> ;{
use strict;
my $path="/tmp/path";
my %handle;
open $handle{$path},"<",$path;
while ( my ($path,$handle) = each %handle ) {
print <$handle>;
}
}
This is File /tmp/path