Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
perl -le 'use bytes; local $/; $s+=ord $_ for map {split //, $_} <>; print $s' < /path/to/filename
