in reply to get the filename from CGI::UploadEasy
read perldoc perlref
Then you have a hash or hashes which is a hash in which the keys are the filenames and the values are hash references.my $ref = $ue->filinfo; my %HoH = %{$ref};
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"; }
|
---|