У меня другое мнение. Жил рядом с санитарной зоной, которая соответствует артезианской скважине. При совке это был стратегический инфраструктурный объект, полагался милиционер с пислотетом. Так вот, вокруг сады, которые обрабатывают всевозможными химикатами, выпасают скот, все это потихоньку просачивается с неясными перспективами. Еще один, самый важный (на мой взгляд) аспект — в этой воде было много песка и «горели» насосы и качество воды было так себе. При совке эти насосы не особо считали, а в первые годы независимости эти скважины законсервировали и вода выходит на поверхности самотоком.

А какие именно банки? Интересуют только крупные игроки.

Россия для грустных.

Вчера был в севастопольском Сильно (в Новус не хожу — там совсем пусто), подтверждаю подорожание. Есть чек, могу сфоткать.

С последним пунктом не согласен. Заплатить за интернет можно в тех же citypay, принимают рубли, но таки можно.

#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use List::MoreUtils qw(uniq); my @mas_value = qw(); while (my $each_line = <STDIN>) { last if $each_line =~ m{^\s*$}; my @results; foreach my $pattern (split m{\s+}, $each_line) { # /\b....\b/i - in general it should be more complex map { push @results, $_ } grep { m{\b($pattern)\b}i } @mas_value; } @results = sort { lc $a cmp lc $b } uniq @results; printf "\nYou typed: %s\nprogram match: %s", $each_line, Dumper(\@results); }

Типичный сисадмин-стайл. Очень много синтаксического мусора, много лишних манипуляций с данными, дублирование семантики, комментирование очевидного, игнорирование возможностей «батарейки» языка и изобретение велосипедов. Вам советую почитать Perl Best Practices и пользоваться перл-критиком.

«Изучаем Perl», «Изучаем Perl глубже», обязательно читать чужой код (с cpan, например). Затем уже переходить к серьезной практике: кукбук, «Программируем на Perl», «Higher-Order Perl».