Модератор: Модераторы разделов
как это сделать? Код: Выделить всё
#!/usr/bin/perl
use open ':locale';
use MLDBM qw(GDBM_File Storable); # DB_File and Storable
use Fcntl;
use encoding 'utf8';
my %db;
tie %db, 'MLDBM', 'texts', Fcntl::O_CREAT|Fcntl::O_RDWR, 0640 or die $!;
Код: Выделить всё
65590;Перловица;unio;реки севера России и Скандинавии
56331;речная;margaritifera;север Европы
10616;жемчужница;martensii;Японское море
36816;стромбус;gigas;КубаКод: Выделить всё
use DB_File; # модули для работы с DBM
use Storable qw(freeze thaw); # и сохранения данных
my %database; # хэш "привязывается"...
tie %database, "DB_File", "mollusc.db" or die; # ...к БД
open my $text, '<', 'mollusc.txt' or die; # файл, откуда
while (my $data = <$text>) { # читаем данные,
chomp($data); # удаляя \n
# и разбивая строку на поля по разделителю ';':
my ($id, $name, $latin, $area) = split(';', $data);
my %record = ( # заполняем поля записи БД:
ID => $id, # идентификатор экземпляра
NAME => $name, # наименование моллюска
LATIN => $latin, # латинское название
AREA => $area); # ареал обитания
my $serialized = freeze \%record; # "замораживаем"
$database{$id} = $serialized; # и сохраняем запись
}
close $text; # закрываем тестовый файл
untie %database; # и базу данныхКод: Выделить всё
use DB_File; # модули для работы с DBM
use Storable qw(freeze thaw); # и сохранения данных
my %database; # хэш "привязываем"...
tie %database, "DB_File", "mollusc.db" or die; # ...к БД
my $id = 65590; # ищем "Перловицу"
if (exists $database{$id}) { # по идентификатору
my $serialized = $database{$id}; # считываем и
%record = %{ thaw($serialized) }; # "размораживаем"
printf "%5d %s %s %s\n", # запись БД в хэш
$id, $record{NAME}, $record{LATIN};
}
untie %database; # "отвязываем" БД от хэша
# будет выведено: 65590 Перловица Unio pictorumКод: Выделить всё
while (($latin)= each %record) {
print $latin;Код: Выделить всё
use DB_File;
use Storable qw(freeze thaw);
my %database;
tie %database, "DB_File", "mollusc.db" or die;
my $latin = unio;
if (exists $database{$latin}) {
my $serialized = $database{$latin};
%record = %{ thaw($serialized) };
printf "%d", $record{$latin};
}
untie %database;gcc писал(а): ↑03.11.2007 01:54у меня есть $latin0="u"; мне нужно посмотреть есть ли он в базе!!!!
перебрал вот так, не печатает
Код: Выделить всё
while (($latin)= each %record) { print $latin;
Код: Выделить всё
open (MYFILE, "2.txt") || die "awibka";
my (@sdata)=<MYFILE>;
foreach $str (@sdata) {
($razdel, $period)=split(/;/, $str);
#chomp @sdata;
#$maxf=4
$count = 0;
while ($razdel =~ /$razd1/g) {
$count++;
}
if ($count >= 4) {
print "MAXX";
exit;
}Код: Выделить всё
$razd1 = "искомое значение";
$count = 0;
foreach $str (@sdata) {
# chomp $str; # вот уж не помню надо оно тут или нет...
($razdel, $period)=split(/;/, $str);
if ($razdel =~ /$razd1/g) {
$count++;
if ($count >= 4) { break; }
}
}
Код: Выделить всё
#!/usr/local/bin/perl
$a1="127.0.0.1";
open (MYFILE, "mollusc.txt") || die "awibka";
my (@sdata)=<MYFILE>;
foreach $str (@sdata) {
#while (<MYFILE>) {
$count = 0;
($idd, $log, $passswd, $cityy, $ema, $title, $sds, $ip1)=split(/;/, $str);
#chomp @sdata;
#print "$ip1";
if ($ip1 =~ /$a1/g) {
$count++;
if ($count >= 4) {
print "4 exit";
exit;
}
}
}
close(MYFILE);Код: Выделить всё
$ cat _forumdb.pl
#!/usr/local/bin/perl
$a1="127.0.0.1";
# open (MYFILE, "mollusc.txt") || die "awibka";
$count = 0;
while (<>) {
chomp;
($idd, $log, $passswd, $cityy, $ema, $title, $sds, $ip1)=split(/;/, $_);
# print " [[[$ip1]]] ";
if ($ip1 =~ /$a1/g) {
$count++;
if ($count >= 4) {
print "\n\n4 exit\n";
exit;
}
}
}
# close(MYFILE);