Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^3: Odd number of elements in anonymous hash

by Athanasius (Archbishop)
on Jun 09, 2016 at 16:23 UTC ( [id://1165236]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Odd number of elements in anonymous hash
in thread Odd number of elements in anonymous hash

Yes, actually $attached is a single string whether $code is true or false: in the latter case, it’s the empty string. And that means you get a key/value pair in which the string $attached is the key, and the value is undef — which gives the “Odd number of elements” warning.

The solution is to eval the string:

#! perl use strict; use warnings; use Data::Dump; my $body = 'Hello!'; my $code = 1; my $email = 'addressee'; my $file_name = 'unknown'; my $from = 'sender'; my $name = 'A Nonny Mouse'; my $subject = 'Greeting'; my $attached = $code ? "attach_path => '$file_name', " . "attach_filename => '$file_name', " . "attach_type => 'application/txt'," : ''; my $success = { to => $email, from => $from, from_name => $name, subject => $subject, body => $body, eval $attached, }; dd $success;

Output:

2:21 >perl 1655_SoPW.pl { attach_filename => "unknown", attach_path => "unknown", attach_type => "application/txt", body => "Hello!", from => "sender", from_name => "A Nonny Mouse", subject => "Greeting", to => "addressee", } 2:21 >

Hope that helps,

Athanasius <°(((><contra mundum Iustus alius egestas vitae, eros Piratica,

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2024-03-28 19:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found