Re^4: using hashes

in reply to Re^3: using hashes
in thread iterating hash keys?

It's only partially working, because it's not matching exactly the 'pattern-key'.

Supposing I have both banana AND bananas, being two different names and banana having an ID of 25, he's translating like:

25s

I'm guessing the [] exact match operator doesn't work on these cases?

Comment on Re^4: using hashes

Replies are listed 'Best First'.
Re^5: using hashes by kennethk (Abbot) on Sep 26, 2013 at 17:44 UTC
That is a trickier proposition. If you know your words are separated by word boundaries, you can solve your issue with the \b assertion: `s/\b$find\b/$replace/g` [download] That will require that either side of your key must correspond to the start or finish of the line, or to the pattern `\w\W` or `\W\w`. If you can't use word boundaries to delimit, you could try your keys in descending key length. `for my $line (@lines) { for my $find(sort {length($b) <=> length($a)} keys %ids) { $line =~ s/$find/$ids{$find}/g; } }` [download] This still has some potential for key overlap, but we'd really need to see you real data to design the correct regex for it. There are a number of ways to cut this up, the choosing the 'right' answer depends strongly on actual input. #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]
Re^6: using hashes by R56 (Sexton) on Sep 26, 2013 at 18:16 UTC
The \b assertion apparently did the trick. It will take at least a couple of hours until all is processed (as soon as I get all the basics, I'll start working on my optimization :), but by the looks of it, it looks okay! Thanks for all the help and patience Kenneth :)	[reply]
Re^6: using hashes by R56 (Sexton) on Sep 27, 2013 at 13:26 UTC
Is there a simple way to also contemplate names with hyphens on the middle?	[reply]
Re^7: using hashes by kennethk (Abbot) on Sep 27, 2013 at 15:41 UTC
Hyphens aren't special outside of a character class. What makes you think they are at fault? If your 'words' might contain punctuation, you can escape meta characters using quotemeta or synonymously `\Q .. \E` `s/\b\Q$find\E\b/$replace/g` [download] #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]
Re^8: using hashes by R56 (Sexton) on Sep 27, 2013 at 17:48 UTC
Re^9: using hashes by kennethk (Abbot) on Sep 27, 2013 at 21:26 UTC
Some notes below your chosen depth have not been shown here

In Section Seekers of Perl Wisdom