Anonymous

sub getAuthors()
{
	my @authors=();
	my $recordRef=shift;
	my $authorRef=$recordRef->{contributors}->{authors}->{author};
	if(ref($authorRef) eq "HASH")
	{
		my @keys=keys(%{$recordRef->{contributors}->{authors}->{author}});
		foreach my $key(@keys)
		{
			push(@authors, $recordRef->{contributors}->{authors}->{author}->{style}->{content});
		}
		my $authors=join(';', @authors);
		return $authors;		
	}
	if(ref($authorRef) eq "ARRAY")
	{	
		foreach($authorRef)
		{
			print "$authorRef->{style}->{content}\n";
		}
	}

}

Pseudo-hashes are deprecated at loftin.pl line 120.
Out of memory!

$VAR1 = [
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Verry, E. S.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          },
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Hornbeck, J. W.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          },
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Dollof, C. A.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          }
        ];
$VAR1 = [
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Wagner, R. G.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          },
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Hagan, J. M.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          }
        ];
$VAR1 = [
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Wallace, J. B.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          },
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Gurtz, M. E.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          },
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Smith-Cuffney, F.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          }
        ];
$VAR1 = {
          'style' => {
                     'face' => 'normal',
                     'content' => 'Webster, J. R.',
                     'font' => 'default',
                     'size' => '100%'
                   }
        };
$VAR1 = {
          'style' => {
                     'face' => 'normal',
                     'content' => 'Wessels, T. W.',
                     'font' => 'default',
                     'size' => '100%'
                   }
        };
$VAR1 = [
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Whitaker, D. M.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          },
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Carroll, A. L.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          },
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Montevecchi, W. A.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          }
        ];
$VAR1 = [
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Whitaker, D. M.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          },
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Montevecchi, W. A.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          }
        ];
$VAR1 = [
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Whitaker, D. M. ',
                       'font' => 'default',
                       'size' => '100%'
                     }
          },
          {
            'style' => {
                       'face' => 'normal',
                       'content' => 'Montevecchi, W. A.',
                       'font' => 'default',
                       'size' => '100%'
                     }
          }
        ];