Re: grep confusion

in reply to grep confusion

Something like

print grep { $DetailSheet{ColumnName}{$_}{XlsColumn} == 2 } keys %{$DetailSheet{ColumnName}} ?

(Untested)

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)

Je suis Charlie!}

update

Added ColumnName level

Comment on Re: grep confusion Download Code

Replies are listed 'Best First'.
Re^2: grep confusion by BillKSmith (Monsignor) on Sep 01, 2017 at 13:58 UTC
The function first_value (from List::MoreUtils) is slightly better than grep because it returns the single value that you expect as a scalar. `use strict; use warnings; use List::MoreUtils qw(first_value); my(%DetailSheet) = ( ... ); my %Column = %{$DetailSheet{ColumnName}}; my $description = first_value {$Column{$_}{XlsColumn} == 2} keys %Colu +mn; print $description, "\n";` [download] Bill	[reply] [d/l]
Re^3: grep confusion by LanX (Saint) on Sep 01, 2017 at 14:15 UTC
IMHO it's unclear from the OP s description how many results he expects. Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply]
Re^3: grep confusion by PriNet (Monk) on Sep 03, 2017 at 00:23 UTC
I will need to look into that Bill, I'm always looking for shortcuts ! I tried re-inventing the wheel again, but everytime I push it, it still falls flat on it's side...	[reply]
Re^2: grep confusion by PriNet (Monk) on Sep 01, 2017 at 02:13 UTC
Hmmm... 'Error: Not a HASH reference' but I see where your going... I tried re-inventing the wheel again, but everytime I push it, it still falls flat on it's side...	[reply]
Re^3: grep confusion by LanX (Saint) on Sep 01, 2017 at 02:15 UTC
See update, I can't test on my tablet Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply]
Re^4: grep confusion by PriNet (Monk) on Sep 01, 2017 at 02:19 UTC
'Experimental keys on scalar is now forbidden' Let me see if I can add the %{...} and fix that... I tried re-inventing the wheel again, but everytime I push it, it still falls flat on it's side...	[reply]
Re^5: grep confusion by PriNet (Monk) on Sep 01, 2017 at 02:31 UTC
Re^6: grep confusion by NetWallah (Canon) on Sep 01, 2017 at 03:27 UTC
Re^6: grep confusion by PriNet (Monk) on Sep 01, 2017 at 03:18 UTC
Re^3: grep confusion by PriNet (Monk) on Sep 01, 2017 at 02:14 UTC
wait... let me try that I tried re-inventing the wheel again, but everytime I push it, it still falls flat on it's side...	[reply]

In Section Seekers of Perl Wisdom