Правда, дети, я хорош, на большой мешок похож?

[pechkin]

Программистское, страшное и смешное

О Шароне мне написать как-то нечего, а вот о работе -- есть чего, жаль, мало кто поймет.

    ...
my %other_hand = (left => 'right', 
		  right => 'left');
my %tape = (left => $rlStack->[-1],
	    right => $input[0]);

my $failed;
map(
       {
	   if ($tape{$_}->isa('ABCDTokenDATE'))
	   {
	       $rhState->{TmpData}->{$other_hand{$_}}->{year} = $tape{$_}->year;
	       $rhState->{TmpData}->{$_}->{date} = $tape{$_};
	   }
	   elsif ($tape{$_}->isa('ABCSymbolRangeNumeric')
		  && $tape{$_}->type == $ABCSymbolRangeNumeric::type_integer)
	   {
	       $rhState->{TmpData}->{$_}->{day} = $tape{$_}->left->value;
	       $rhState->{TmpData}->{$_}->{month} => $tape{$_}->right->value;
	   }
	   else
	   {	
	       $failed = 1;
	   }
       } qw(left right));

return 1 if (!$failed && 
	     #if at least one date
	     (grep(exists($rhState->{TmpData}->{$_}->{date}), keys(%other_hand))
	      #or two numeric ranges
	      || !grep(!exists($rhState->{TmpData}->{$_}->{month}), keys(%other_hand)));

Стало так:

	     my $success = 0;
	     map(
		 {
		     if ($tape{$_}->isa('ABCDTokenDATE'))
		     {
			 $rhState->{TmpData}->{$other_hand{$_}}->{year} = $tape{$_}->year;
			 $rhState->{TmpData}->{$_}->{date} = $tape{$_};
			 $success++;
		     }
		     elsif ($tape{$_}->isa('ABCSymbolRangeNumeric')
			    && $tape{$_}->type == $ABCSymbolRangeNumeric::type_integer)
		     {
			 $rhState->{TmpData}->{$_}->{day} = $tape{$_}->left->value;
			 $rhState->{TmpData}->{$_}->{month} => $tape{$_}->right->value;
			 $success += .5;
		     }
		 } qw(left right));

	return $success > .5;

Comments

[alesha-ru.livejournal.com]

все таки кривой код не перле вызван не особенностями языка,
а особенностями мЫшления...

[pechkin.livejournal.com]

Несомненно. Весь вопрос только -- это к первому стиху больше относится, или во втором наблюдается в не меньшей мере?

[alesha-ru.livejournal.com]

ну.....

будем считать что второй стих выглядит симпатичнее, хотя также вызывает у внимательного критика массу вопросов :)

[bimdusha.livejournal.com]

А мне после кубейсика объектно_что-то_там язык не осилить, и для простой формы не родить скрипт. Может подскажешь генератор какй несложный?

[pechkin.livejournal.com]

Вот чего не знаю, того не знаю.