Исходное сообщение
"Размышления о будущем языка Perl 5" Отправлено don_oles, 15-Дек-08 20:17
>cp -v $* | perl -ne 's/^(.*) -> .*$/$1/; chomp; my $fs = [stat $_]->[7]; our $sum += $fs; my $sum_rep = $sum; $sum_rep=~ s/(\d{6})$/ $1/g; print "$fs\t$sum_rep\n"' Офигеть как читаемо!

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>cp -v $* | perl -ne 's/^(.*) -> .*$/$1/; chomp; my $fs = [stat $_]->[7]; our $sum += $fs; my $sum_rep = $sum; $sum_rep=~ s/(\d{6})$/ $1/g; print "$fs\t$sum_rep\n"' > Офигеть как читаемо!
	Введите код, изображенный на картинке: