Total agreement with your suggestions -- just wanted to add that the "print_all_nicknames" function would be easier if there's a hash of arrays built from the original "%formal_name" hash:
my %formal_name = (
bill => 'william',
will => 'william',
willie => 'william',
billie => 'william',
bob => 'robert',
bobbie => 'robert',
...
);
my %nick_names;
for my $nick ( keys %formal_name ) {
push @{$nick_names{$formal_name{$nick}}}, ucfirst $nick;
}
...
print_all_nicknames( 'William' );
sub print_all_nicknames
{
my $formalname = lc shift;
if ( exists( $nick_names{$formalname} )) {
print ucfirst $formalname, " has these nicknames: ",
join( ", ", @{$nick_names{$formalname}} ), "\n";
}
else { print ucfirst $formalname, " has no nicknames.\n"; }
}
(updated to fix sub name -- and to add missing curlies, as pointed out below by toolic) | [reply]
[d/l] |
Good idea. But, I needed to add some curlies to pass strictures with your code:
push @{ $nick_names{$formal_name{$nick}} }, ucfirst $nick;
| [reply]
[d/l] |
Thanks
I actually started with the hash you mentioned and decided to go for the mixture because lets say if we type Bill and the actual person's name for Bill could be William so I thought I have to handle that scenario..
example
Main Reson that I changed the structure of the hash is below mention concept.. Do you think I am on the wrong path or does it make sense...
A => B, C, D, E
B => A, F, G, H
| [reply]
[d/l] |
I don't know what you mean by "the mixture", and I don't understand how the "scenario" with "Bill" vs. "William" is different from what was handled in the earlier replies by toolic and me.
If "B,C,D,E" are all nicknames for "A", and "A,F,G,H" are all nicknames for "B", and if the purpose of this data structure is to provide a one-shot lookup for a given string (i.e. to get the "immediate nickname set" for that string), then okay, that structure makes sense. (Well, sort of, I guess... but are you saying you have cases where A is a nickname for B and B is also a nickname for A? I'm having trouble with that.)
But if the purpose is to pursue all possible "respelling" relations in a set (e.g. "A" can be respelled as any of "B,C,D,E", and for each of those, use the same structure to find all possible respellings), then you have a problem of circularity: A can be respelled as B, which can be respelled as A, which can be respelled as B, which... (infinite loop).
Actually, it's not at all clear now what you are really trying to do, so I'm not sure what advice to give about the data structure. There are two basic directions that seem to be at issue:
- tracking many-to-one relations: for each member in a set of N "nicknames", relate it to a specific member in a set of M "real" names, where M < N, and two or more nicknames can refer to the same real name; this involves a simple hash where each hash key points to exactly one value, but the hash values can be non-unique.
- tracking one-to-many relations: for each member in a set of M "real" names, list the set of one or more "nicknames" that are synonymous; this involves a hash of arrays, and if this structure is derived from the many-to-one set described above, it cannot be the case that a given array value shows up under more than one hash key (because each "nickname" relates to only one "real name").
If the structure you are looking for is not one of those two, then you need to be more clear about what kind of structure you are looking for and how you want it to organize things. You seem to be giving us simplified fake examples, and maybe they are too simple or maybe they don't accurately reflect your data or your task. What are you really trying to do?
UPDATE: There is a third direction you might be thinking about: many-to-many relations, e.g. a nickname like "Chas" might relate to both "Charles" and "Chastity", but "Chuck" is also a nickname for "Charles". This is another hash of arrays, where some array values (the "real" names in this case) can occur with two or more hash keys. In any case, the important thing is that the hash keys are one set of entities (e.g. nicknames), and the hash values, whether scalars or arrays, are a distinct set of entities (e.g. real names). Just don't get them confused.
| [reply] |
Thanks Graff, Sorry I didn't get a chance to reply for this, My Grandmother passed away and it has been a very emotional time since she had a major impact on my life.
Answer to your question which was "What am I trying to do here "
This is module that I am creating to work along with few other modules. And finally I am planning on running my perl script against the website to get the data. What I want to do here is, when the user enter a name analyze if there are nicknames for that name and get those nick names.
if the user enter name and if its a nick name lets say Will, it should give Willy, William as the results for "Will".
If the user enter "William" then it should give Willy, Will as the result.
Main Idea is to find multiple ways of representing name with the emphasize on nicknames. I dont have to put the spelling mistakes and other scenarios since I handle them in a different module.
So in mathematically I am thinking of a set theory implementation I am sorry I miss lead you in my original post.
the concept of the hash I am trying to have is,
A => B, C, D, E
B => A, C, D, E
C => A, B, D, E
D => A, B, C, E
E => A, B, C, D
I didn't put entire code since it has other subroutines that have no impact on this situation also I am new to perl so the code is 200 lines long. This is the entire code that I have which is related to the issue, sorry I should have put this before rather than putting a part of the code.
#!/usr/bin/perl
use Text::Soundex;
use WWW::Mechanize;
#use MakeRegex;
$DEBUG = true;
$SOUNDEX = 0;
print STDOUT "\nEnter name: ";
$name = <STDIN>;
chomp $name;
=pod
$result = ucfirst( $name );
$totalResult .= $result . " ";
print ( "\n---------- Entered Name\n\n" );
print ($result);
print ( "\n\n---------- Transposed Letters\n\n" );
$result = lc transposeName( $name );
$totalResult .= $result . " ";
print ($result);
calcSoundex( $result );
print ( "\n\n---------- Dropped Character\n\n" );
$result = lc dropCharName( $name );
$totalResult .= $result ." ";
print ($result);
calcSoundex( $result );
=cut
#hash table that contains nicknames
%nicknames = (
Abe => 'Abraham',
Abram => 'Abraham Abe',
Bill => 'William Will',
Will => 'Bill William willy',
Richard => 'Rick Dick Ric Ricky',
Rick => 'Richard Dick Ricky',
);
sub matchNickname {
my $nickTemp;
foreach my $key(keys %nicknames) {
my $value = $nicknames{$key};
if(lc $name eq lc $key){
print "user typed ".$name." Match the key ".$key." and val
+ue is $value\n\n";
$nickTemp = $value;
@nickArray = split '\W+', $nickTemp;
foreach $nickTemp(@nickArray) {
if($DEBUG){print "The name $name could be <$nickTemp>
+or ";}
}
}
#print "$key ==> $value\n";
#print "$nickTemp\n";
}
#print "Value of nickTemp is $nickTemp\n";
}
| [reply]
[d/l] |