in reply to Chapter 8 of intermediate perl

Your question has already been answered, but I gotta wonder why you're using IO::File at all. Ever since 5.6 (March 2000), you can get lexical file handles from the open function. 
        if (!$output_handles{$name}) {
           open($output_handles{$name}, '>', "$name.info")
              or die "Cannot create $name.info: $!\n";
        }

        my $handle = $output_handles{$name};
        print $handle $_;

[download]

Update: Fixed bug.

Replies are listed 'Best First'.
Re^2: Chapter 8 of intermediate perl
by actualize (Monk) on Jun 26, 2008 at 03:23 UTC

    I guess the only reason is because the book may be a bit out of date. This book really focuses on how to use references. They probably created this case to serve as an example. In this chapter it is about using references with File Handles. I think that they were using this case as an example of how to create file handles on the fly with references.

    I am not sure why this IO::File is used in this case. They introduce it only as a subclass of IO::Handle and give some examples on how to use it.

    Thanks for the help guys,

    -Actualize
[reply]

      Chapter 8 in Intermediate Perl is about "Filehandle References", and it's current up to 5.8. We cover lexical filehandles and the three argument open, but we also cover the IO::Handle modules too. We have three exercises for that chapter, so we use a different technique for each answer.

      As with all of our answers, it's only one way to do it. And, as with any teaching environment, you don't necessarily do things as you would in real life. Once you know the technique, you can forget it and use the one you like best. In this case, it would be the three-argument open in the section "An Even Better Way" :)

      --
      brian d foy <brian@stonehenge.com>
      Subscribe to The Perl Review
[reply]

        Wow, I never thought I would get a response from one of the authors. Thanks. Anyway, I was hoping to get more visibility into this specific technique.

        I like how file handles are created on the fly in this code. I was thinking that all the filehandles are created through autovivification and that a new update of that specific module closed some security holes by forcing stricter programming practices

        I am thinking the next step is to explicitly create the object with "new" if the islander hash key isn't present yet. Is there anything I can do to get the current code to run? Can I only do it by modifying the module itself?

        -actualize
[reply]

      Handles created by open are also IO::Handle objects. All IO handles are, actually. You just need to load IO::Handle (use IO::Handle;) to use the methods. 

      use IO::Handle;

open(my $fh, '>', $fn) or die;
print $fh 'foo!';
$fh->flush();         # From IO::Handle

      [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom