Bappoy's blog

Если 31 августа спросить у GNU date, какой будет следующий месяц, результат будет немного странным:
$ date
Tue Aug 31 11:32:35 UTC 2010
$ date +»%Y-%m» –date «next month»
2010-10
$ date +»%Y-%m» –date «next month»
2010-10
Документация GNU date (см info date Relative items in date strings) специально обращает внимание на эту проблему и рекомендует вычислять следующий месяц не для сегодняшнего [...]

Отлаживая один скрипт, в очередной раз напоролся на банальные грабли, иллюстрирующие красоту и мощь языка Perl.
Сначала был примерно такой код:

while(<STDIN>)
{
    if(($name) = $_ =~ /^\s*source (.*)\.sql/i)
    {
        if (&function $name)
        {
            # do something with $name
        }
    }
}
Логично было бы объединить два условия в одно:

while(<STDIN>)
{
    if(($name) = $_ =~ /^\s*source (.*)\.sql/i && &function $name)
    {
        # do something with $name
    }
}
Но после этого условие стало выполняться для каждой строки STDIN, [...]