creating variables on the fly (newbie question)

Joshua Keroes jkeroes at
Thu Jan 11 19:17:39 CST 2001

I misread the first question. Here's one way you could parse 
that file and gen [and print] that AoA. I've used $/ to
read the filehandle F in paragraphs. Next, we turn each
paragraph into a subarray with one element/line:


#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my $AoA_ref = parse_file( "your_simple_file" );
print Data::Dumper->Dump( [$AoA_ref], ['AoA_ref'] );

sub parse_file {
        my $file = shift or die "Usage: parse_file( <path/to/file> )";
        my @AoA;

        local $/ = "\n\n";	# $INPUT_RECORD_SEPARATOR
        open F, "< $file" or die "Can't open '$file': $!";
        for ( <F> ) { push @AoA, [split /\n/] }
        close F or warn;

        return [@AoA];


|   Joshua Keroes, Sr. Software Engineer,  Electric Lightwave, Inc   | 
  "To be creative, it's not necessary that you're seeing a new thing,
       but that you're looking at the same things in a new way."
       Dieter Gruen, ultrananocrystalline diamond film inventor

More information about the Pdx-pm-list mailing list