Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
perl -e 'foreach(glob("*")) { $o = $_; s/^(.+)\-\w+(\.\w+)$/\1\2/; rename($o, $_) or die("ERROR: can not rename $o to $_!\n"); }'