Иван Андреевич (diente_de_lion) wrote,
Иван Андреевич
diente_de_lion

Перловая подлянка

#!/usr/bin/perl

printnum(2);
printnum(3);

sub printnum
{
	my $a = shift;

	doprint();
	sub doprint { print "$a\n"; }
}
Вопрос: что напечатает программа?

upd. поскольку все ринулись сразу скрипт запускать, я переформулирую вопрос: почему программа печатает не то, что ожидается? что в программе изменить, чтобы печатала 2 и 3? (вариант print "2\n3\n" не предлагать! :D)
Tags: вопрос, перл
Subscribe
  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 20 comments