Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: get the filename from CGI::UploadEasy

by doc_faustroll (Scribe)
on Apr 03, 2006 at 01:42 UTC ( #540834=note: print w/ replies, xml ) Need Help??


in reply to get the filename from CGI::UploadEasy

You are in the land of a reference to a hash of hashes. If you are just learning the language and the idioms are unfamiliar to you, you might explicitly dereference first off to simplify

read perldoc perlref

my $ref = $ue->filinfo; my %HoH = %{$ref};
Then you have a hash or hashes which is a hash in which the keys are the filenames and the values are hash references.

the canonical print idiom from perldoc perdsc is: (although your taste may differ once you develop it):

foreach my $filename ( keys %HoH ) { print "$filename: { "; for my $key ( keys %{ $HoH{$filename} } ) { print "$key =$HoH{$filename}{$key} "; } print "}\n"; }


Comment on Re: get the filename from CGI::UploadEasy
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://540834]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (7)
As of 2014-07-22 09:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (109 votes), past polls