develooper Front page | perl.perl6.users | Postings from January 2019

Re: I need hash string help

Thread Previous | Thread Next
ToddAndMargo via perl6-users
January 12, 2019 02:50
Re: I need hash string help
Message ID:
On 1/11/19 6:35 PM, Bruce Gray wrote:
>> On Jan 11, 2019, at 7:08 PM, ToddAndMargo via perl6-users <> wrote:
>> Hi All,
>> Now what am I doing wrong?  I need to convert the value in a
>> hash to a string:
>> $ p6 'my $x = "acme"; my Str $y; my %Vendors = ( acme => ContactName => "Larry" ); $y= %Vendors<ContactName>; say $y;'
>> $ p6 'my $x = "acme"; my Str $y; my %Vendors = ( acme => ContactName => "Larry" ); $y= %Vendors<ContactName>.Str; say $y;’
> —snip—
> This has nothing to do with string conversion.
> Compared to the previous email thread, two problems have been introduced:
> 1. The curly braces from around the second-level hash are now missing, changing from
>      CompanyName => { SomeKey => "foo" ... }
> to
>      CompanyName =>   SomeKey => "foo" ...
> So, you no longer have a HashOfHashes, you have a HashOfPair (singular Pair, not plural Pairs), so while this syntax can technically be made to work, it would only work with a single key, which is pointless.
> 2. The first level (company name?) of your HashOfHashes is no longer dereferenced. I see that you populated `$x`, but did not ever use it.
> 	%Vendors{"acme"}<ContactName>;      		# Correct
> 	%Vendors{$company}<ContactName>;    	# Correct, if $company contains `acme`
> 	%Vendors<acme><ContactName>;        	# Correct and most Perlish, if company is constant
> 	%Vendors<ContactName>;              		# Bad; will never work unless you happen to have a company really named "ContactName”. (Even then, you would get the whole first-level hash)
> UPDATE: Just before sending this, I peeked ahead at the exchange between Tom Browder and yourself. I think that you hit a snag, and constructed an example that showed what you thought was the snag, but was really a new set of problems that exists only in your example. FYI, every time that I have made this mistake, it was always due to my creating an example from scratch, instead of slowly massaging the real problem code down into a minimal form for public discussion. YMMV.
> I am glad you and Tom resolved your problem before I could `send`, but I did not want this post to go to waste.
> —
> Hope this helps,
> Bruce Gray (Util of PerlMonks)

That is exactly what happened.

What is happening is that I am copy and pasting five columns
(and any number of rows) from my parts database to the
clipboard, reading the clipboard into my perl code, writing
an letter in HTML to my vendor with the parts to be ordered,
and then sending it back to the clipboard for pasting into

Each parts group (four lines and a blank line) has an alternate
color.  Quantities greater than one are bolded.  (I haven't had
them goof the quantity since I bolded greater than 1.)

My company account number is at the top and bolded.  The letter
includes my salesman's name.  Enough HTML to make you scream.
I should use single quote when writing in HTML. That would
force me to separate variables with ~

I have had them goof my account number.  They don't
like to ask for my account number as we are suppose
to be good buddies and they are suppose to know me
by heart.  Ha!  So now I have included my account number
as well.

By the way, if anyone is interested, when reading columns from a 
spreadsheet off the clipboard, the columns are delimited by a
tab `\t`

Thread Previous | Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About