Am sure others have pointed out relevant solution, which I believe worked. But if I may suggest, what improvement for your "contact_entry" subroutine.
Instead of the way it is presently implemented, why not either do this
OR thissub contact_entry { return ( name => entrada('Name'), lastName => entrada('Last Name'), address => entrada('Address'), email => entrada('Email'), phone => entrada('Phone Number'), image => entrada('Image Profile'), detailProfile => entrada('Detail Profile'), ); }
Make perl and your computer work for you, not the other way round! :)sub contact_entry { my %contact_entry; for (qw(name last_name address email phone_number image detail_pro +file)) { my $data = /_/ ? join ' ' => map { ucfirst $_ } split /_/, $_ : ucfirst $_; $contact_entry{ $_ } = entrada($data); } return %contact_entry; }
In reply to Re: Print Data::Dumper with format
by Anonymous Monk
in thread Print Data::Dumper with format
by Matiasinf
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |