diff --git a/data/friday.txt b/data/friday.txt index b0c52c1..63db2c0 100644 --- a/data/friday.txt +++ b/data/friday.txt @@ -11,6 +11,47 @@ user, ты пиво купил? || 5 В пятницу совесть доживает только до обеда… || 5 Сколько работнику не плати, всё равно пятницы ждёт || 1234 Робинзооон!!! || 5 +В пятницу чаще всего хочется выпить. В понедельник чаще всего хочется пятницу. || 15 +Здравствуй Пятница, здравствуй, любимая, наконец-то ты пришла! || 5 +Зарплата в пятницу — удар по печени. || 5 +Вот и пятница пришла, счастье, радость принесла! || 5 +Все мы — пятницофилы и понедельникофобы. || 15 +Люблю понедельник — всего три дня до пятницы. || 1 +Ну здравствуй, пятница. Я дополз к тебе. || 5 +Пятница. Улыбните Улыбальник. || 5 +Чувствуете? Выходными пахнет! || 5 +До пятницы осталось…. пережить четверг! || 4 +Если пятый день подряд опаздываешь на работу, значит сегодня пятница. || 5 +От понедельника до пятницы очень далеко, а от пятницы до понедельника рукой подать. || 123467 +Жизнь начинается в пятницу вечером… В остальное время — выживание. || 5 +Пятница… белочки следят за тобой. || 5 +Примета: Если утром жена с вами не разговаривает, значит, вчера была пятница. || 6 +Чем ближе пятница, тем добрее утро! || 1234 +Пятница — лучший день недели, особенно её вечер, так как выходные еще не начались, а работа уже закончилась. || 5 +Отличной была пятница! Особенно запомнились русские народные катания на полицейских бобиках! || 1 +Четверг это маленькая пятница, а пятницу можно считать выходным. || 4 +Пятница традиционно начиналась легким ужином в четверг и заканчивалась плотным завтраком в понедельник. || 4 +Уже с пятницы начинаешь бояться, что скоро понедельник! || 67 +Каждую пятницу жизнь начинается сначала. || 5 +С пятницами надо быть осторожней. Они обещают слишком уж многое. Они словно рецензия на кинофильм: лишь в редких случаях предсказанное ими сбывается. || 5 +Русские в понедельник не работают — у них тяжелый день. || 1 +Все мы просто дети, изображающие на работе профессионалов, а на самом деле ждущие пятницы, чтобы быть сами собой! || 5 +Почему-то в пятницу хочется ничего не делать. Хотя в другие дни тоже хочется, но в пятницу ничего не делать хочется особенно сильно. || 5 +Хочешь жить завтрашним днем — устрой себе семь пятниц на неделе. || 5 +Что мне снег, что мне зной, что мне вермут разливной, когда мои друзья со мной! || 5 +Каждую пятницу количество довольных жизнью людей увеличивается на пару миллиардов. Этот эффект длится вплоть до понедельника. || 123467 +Так, Понедельник, Вторник, Среда, Четверг, проходим, проходим, не задерживаем Пятницу! || 1234 +Четверг. Смотрю на часы — 16.00. Еле сдерживаюсь, чтобы не закричать — Ура! Во Владивостоке Пятница! || 4 +Пятница — друг человека! || 5 +В пятницу вечером понимаешь, что в принципе — жить можно. || 5 +Ничто так не портит пятницу, как новость о том, что сегодня четверг. || 4 +Жить нужно так, как будто каждый день пятница. || 123467 +Только настроился на работу ― и вдруг снова пятница, снова отдых… Вот так всегда! || 5 +Хорошо, что пятница! Плохо, что еще только утро… || 5 +Уходя вечером с работы, он был рад, что сегодня пятница и можно спрятаться в уикенде. Он накроется субботой и воскресеньем как двумя толстыми одеялами. Ему ничего не хотелось делать; у него даже не хватало мужества читать. || 5 +Понедельник ― отходим от выходных, вторник ― готовимся к работе, среда ― работаем, четверг ― отдыхаем от работы, пятница ― готовимся к выходным. Вывод: может, хватит уже работать по средам! || 3 +Неделя тянется со скоростью улитки. Но в пятницу вечером улитка превращается в Феррари. || 5 +Прогноз погоды на пятницу: облачно, вечером осадки в виде алкоголя, возможен секс. || 5 А пятница всё ближе. Печень в ужасе, попа в предвкушении! || 5 Люди, с кем я вчера пила? Объясните, откуда у меня кот и почему люди в магазине мне хлопают… Кстати… никому кот не нужен? || 6 ПЯТНИЦА — это старинный народный праздник, который начинают праздновать в ПЯТНИЦУ, а заканчивают — в ПОНЕДЕЛЬНИК || 567 @@ -62,4 +103,4 @@ user, ты пиво купил? || 5 Предлагаю переименовать четверг в "завтра пятница"! || 4 Говорят, при Сталине все субботы были рабочие, должно быть он и вправду был садист и тиран! || 6 Остановись, воскресенье! Ты прекрасно!!! || 7 -Воскресенье — день трагичный. Суббота маячит далеко позади, а до понедельника уже рукой подать || 7 \ No newline at end of file +Воскресенье — день трагичный. Суббота маячит далеко позади, а до понедельника уже рукой подать || 7 diff --git a/lib/friday.pm b/lib/friday.pm index 6e95599..548abf3 100644 --- a/lib/friday.pm +++ b/lib/friday.pm @@ -52,8 +52,9 @@ sub seed () { my @daylist = split(//, $days); foreach my $day (@daylist) { + next unless (defined $day); next unless ($day =~ /^\d$/); - push @{$friday->[$day - 1]}, $phrase; + push @{$friday->[$day - 1]}, $phrase if (defined $phrase && ($phrase ne '') && ($phrase !~ m/^\s+$/xmsg)); } }