1. Список говнокодов пользователя VictorVonSpok

    Всего: 2

  2. Perl / Говнокод #11914

    −163

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    #!/usr/bin/perl -w

print "Это писесольная программа. Дать пеке писю? [Y/n]";
$vvod = 1;
$pisya = "Пекацефал писю пососал";
$start = <STDIN>;


  while ($start eq "y\n" or "Y\n") { 
 if ($vvod < 100) { 
       print "$pisya\n"; $vvod++; 
      } if ($vvod == 100) { 
     exit 0; } 
    }

    Написано обладателем IQ 150.

    VictorVonSpok, 12 Октября 2012

    Комментарии (10)

  3. Perl / Говнокод #10339

    −122

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    my (@data) = $content =~ m#href="/show/\d+.*?">(.*?)</a>.*?(Ep: \d+).*?(at \d{2}:\d{2}).*?</small>#gsi;
	
for (my $i; $i < @data;){
	$data .= $data [$i++].' '.$data [$i++].' '.$data [$i++];
	$data .= "\n" unless $i == @data;
}

    Распарсил.

    VictorVonSpok, 21 Мая 2012

    Комментарии (11)