ALeX inSide (alex_inside) wrote,
ALeX inSide
alex_inside

Программисты на perl?

Немного с ошыпками, но всё же это perl...
use Fotki2::Medved;

my $stepan = &Fotki2::Medved::getStepan() or die('Cant get Stepan!';

&Fotki2::Medved::randomizeMedvedies();

while (1) {
  my @medved = &Fotki2::Medved::getRandomMedvedsForUser($stepan) or die('Cant get Medved!');
  foreach @medved do &preved($_) or die('Medved failed to Preved!');
  &Fotki2::Medved::memcacheSurpriseData($stepan, \@medved);
}
PS: и ещё одна смешная надпись на доске в брифингруме :))
<div style="display: none;">Тут был Степан!!!1</div>
Tags: html, quotations, весело и вкусно, лингвистическое, программирование, сумасайти
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 

  • 5 comments