; после } кто ставить будет?
С уважением, Денис Федосеев On 14 Sep 2012, at 3:46 PM, Nikolay Mishin <[email protected]> wrote: > type 01_fact.pl > use 5.16.0; > # use feature 'say'; > my $fact; > $fact=sub{ > my ($x)=@_;# > return $x if $x==1; > return $x*$fact->($x-1); > } > say $fact->(5); > > perl -c 01_fact.pl > syntax error at 01_fact.pl line 9, near "say" > 01_fact.pl had compilation errors. > > perl -v > > This is perl 5, version 16, subversion 0 (v5.16.0) built for > MSWin32-x64-multi-thread > > что я делаю не так? > 14.09.2012, 15:22, "Анатолий Шарифулин" <[email protected]>: >> Пример рабочий, какая ошибка или say забыл написать? :-) >> >> 2012/9/14 Nikolay Mishin <[email protected]> >>> my $fact;$fact=sub{ >>> my ($x)=@_;# >>> return $x if $x==1; >>> return $x*$fact->($x-1); >>> } >> >> -- >> С уважением, >> Анатолий Шарифулин. >> , >> -- >> Moscow.pm mailing list >> [email protected] | http://moscow.pm.org > > -- > Nikolay Mishin > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
