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

    Всего: 2

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

    −11

    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
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    #!/usr/bin/perl -w

use IO::Socket;

@months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );

$server_port = 1488;
$server = IO::Socket::INET->new(
    LocalPort => $server_port,
    Type => SOCK_STREAM,
    Reuse => 1,
    Listen => 20
)
or die "Can\'t use port:$server_port";

while($client_socket = $server->accept()) {
    while ($count = sysread($client_socket, $data, 1024)) {
        print "Принято ${count} байт: ${data}\n";

        if ($data eq '/time') {
            ($sec,$min,$hour) = localtime();
            if ($hour < 10) {
                $hour = "0$hour";
            }
            if ($min < 10) {
                $min = "0$min";
            }
            if ($sec < 10) {
                $sec = "0$sec";
            }
            $client_socket->send("$hour:$min:$sec");
        } elsif ($data eq '/date') {
            ($sec,$min,$hour,$mday,$mon,$year) = localtime();
            $year += 1900;
            $client_socket->send("$mday $months[$mon] $year");
        } elsif ($data eq '/datetime') {
            ($sec,$min,$hour,$mday,$mon,$year) = localtime();
            $year += 1900;
            if ($hour < 10) {
                $hour = "0$hour";
            }
            if ($min < 10) {
                $min = "0$min";
            }
            if ($sec < 10) {
                $sec = "0$sec";
            }
            $client_socket->send("$mday $months[$mon] $year $hour:$min:$sec");
        } else {
            $client_socket->send("nil");
        }
    }

    shutdown($client_socket, 1);
}

$server->close();

    Обнаружил сокет-сервер на перел

    ufufney, 16 Мая 2016

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

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

    −12

    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
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    #!/usr/bin/perl5.18

$file = $ARGV[0];
if (!$file) {
    print "Введите имя файла: ";
    $file = <STDIN>;
    chomp $file;
}
$direction = $ARGV[1];
if (!$direction) {
    print "Введите направление: ";
    $direction = <STDIN>;
    chomp $direction;
}
if ($direction ne '866toKOI8' && $direction ne 'KOI8to866') {
    die "Invalid param";
}

open (IN_FILE, "<$file") or die "Cannot open file";
open (OUT_FILE, ">out$file") or die "Cannot open file";
$text = '';
while (my $row = <IN_FILE>) {
    if ($direction eq '866toKOI8') {
        $row =~ tr/\x80\x81\x82\x83\x84\x85\xF0\x86\x87\x88\x89\x8A\x8B\x8C\x8D\x8E\x8F\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9A\x9B\x9C\x9D\x9E\x9F\xA0\xA1\xA2\xA3\xA4\xA5\xF1\xA6\xA7\xA8\xA9\xAA\xAB\xAC\xAD\xAE\xAF\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF/\xE1\xE2\xF7\xE7\xE4\xE5\xB3\xF6\xFA\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF2\xF3\xF4\xF5\xE6\xE8\xE3\xFE\xFB\xFD\xFF\xF9\xF8\xFC\xE0\xF1\xC1\xC2\xD7\xC7\xC4\xC5\xA3\xD6\xDA\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD2\xD3\xD4\xD5\xC6\xC8\xC3\xDE\xDB\xDD\xDF\xD9\xD8\xDC\xC0\xD1/;
    } else {
        $row =~ tr/\xE1\xE2\xF7\xE7\xE4\xE5\xB3\xF6\xFA\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF2\xF3\xF4\xF5\xE6\xE8\xE3\xFE\xFB\xFD\xFF\xF9\xF8\xFC\xE0\xF1\xC1\xC2\xD7\xC7\xC4\xC5\xA3\xD6\xDA\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD2\xD3\xD4\xD5\xC6\xC8\xC3\xDE\xDB\xDD\xDF\xD9\xD8\xDC\xC0\xD1/\x80\x81\x82\x83\x84\x85\xF0\x86\x87\x88\x89\x8A\x8B\x8C\x8D\x8E\x8F\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9A\x9B\x9C\x9D\x9E\x9F\xA0\xA1\xA2\xA3\xA4\xA5\xF1\xA6\xA7\xA8\xA9\xAA\xAB\xAC\xAD\xAE\xAF\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF/;
    }
    print OUT_FILE $row;
}
close (IN_FILE);
close (OUT_FILE);

    Смена кодировки из cp866 в KOI8 и обратно. Шел 2016й год.....................

    ufufney, 04 Апреля 2016

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