this does not work:
sub extract{ #retrieve subset of data from a single file #return that data in a list context
my $fh = shift; #filehandle reference my @creds; local $/ = '<entry>'; @creds = grep {/./} $fh;
Try:
@creds = grep {/./} <$fh>;-- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
