ginnie,
| Цитата(ginnie @ 5.6.2013, 11:42) | tooncheg,
Если алгоритм понятен, попробуйте дописать программу, выводя кроме полного совпадения, еще и результаты, которые были ближе всего к полному совпадению (т.е. совпали не все поля).  |
| Код |
#!/usr/bin/perl
use strict;
use warnings;
use locale;
use POSIX qw(:locale_h);
setlocale(LC_ALL, "ru_RU.CP1251");
use Data::Dumper;
my %directory;
open my $fh, '<', 'phone.txt' or die "Error open phone.txt: $!\n";
while (<$fh>){
chomp;
my ($number,$surname,$name,$patronymic,$phone,$room, $otdel) = split /::/, $_;
my $person = {
name => $name,
surname => $surname,
patronymic => $patronymic,
phone => $phone,
room => $room,
otdel => $otdel,
};
$directory{number}{$number} = $person;
while (my ($key, $value) = each %{$person}) {
next if (!defined $value or $value eq '');
push(@{$directory{$key}{lc $value}}, $number);
}
}
my %query = (
surname => 'Иванов',
phone => '5322',
name => 'Иван',
room => '112',
# otdel => '7',
);
my $round = 0;
my %results;
while (my ($key, $value) = each %query) {
next if (!defined $value or $value eq '');
$round++;
my $numbers = $directory{$key}{lc $value} or next;
for my $number (@{$numbers}) {
$results{$number}++;
}
}
while (my ($number, $counter) = each %results) {
print join('::', @{$directory{number}{$number}}{qw{surname name patronymic phone room otdel}}) $/ if ($counter ==$round) ;
}
my @counter = values %results;
my $max = $counter[0];
foreach (@counter) {
if ($_ > $max) {
$max = $_
}
}
foreach my $number (keys %results) {
if ($max != $round and $results{$number}==$max) {
print "Возможно : " . join('::', @{$directory{number}{$number}}{qw{surname name patronymic phone room otdel}}). "\n";
}
}
|
вроде работает.
Появился вопрос. Каким образом происходит объединение в этой строке join('::', @{$directory{number}{$number}}{qw{surname name patronymic phone room otdel}}) не понимаю последовательность происходящего там. |
