[Moscow.pm] Парсинг текстовой строки

[Maxim Vuets]

On 11/6/08, Alexander Lourier <aml на rulezz.ru> wrote:

*snip!*
> while (<>) {
>
> 	chomp;
>
> 	for my $entry (split /, /) {
>
> 		if (my ($amount, $unit_name, $unit_size) = ($entry =~ /^\s*(\d+|\d+,\d+|
> \d+\.\d+)\s*\((.+)\s+по\s+(\d+)\s*м\s*\)\s*$/)) {
*snip!*

Александр, разрешите поинтересоваться: что это за такой
оригильный способ написаниия кода "через строку"?
Встречаю уже не первый раз (да и не только в Перле), а возможность
спросить у непосредственного автора появилась только сейчас (:

-- 
 .  Hoc est simplicissimum!
..: maxim.vuets.name