Re: printing from records ?

[Felix Geerinckx]

on Mon, 06 May 2002 10:21:55 GMT, [EMAIL PROTECTED] (Martin A. Hansen)
wrote: 

> sub print_record
> {
>    my ( $record_key ) = @_;
>    my $record;
>    my $records;
> 
>    # read in records
>    $records = &read_recordfile;
> 
>    foreach $record ( keys %{ $records->{ $record_key } } ) {
>       print "debug" . join('', @{ $records->{ $record_key }{
>       $record } } ); 
>    }
> 
>    return $record
> }

With

    sub read_recordfile {
        return  { 'bleh' => { a => [1, 2], b => [3, 4]}};
    }

    print_record('bleh');

I get the following output from your print_record routine, as 
expected:

    debug12debug34

If this is what you want, maybe you have an error in your 
read_recordfile?

-- 
felix

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]