1. Perl / Говнокод #8687

    −122

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    sub GenRandomHash()
    {
    	my $self=shift;
    	my $number=shift||10;
    	my $plain='';
    	my @chars=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
    	for (my $i=0;$i<$number;$i++)
    	{   
    		$plain.=$chars[rand(59)+2];
    	}
    return $plain;
    }

    Мне бы было лень вбить столько символов :)

    Запостил: Alikus, 30 Ноября 2011

    Комментарии (19) RSS

    • только причем тут хэш?
      Ответить
    • > Мне бы было лень вбить столько символов
      А друг это программа - результат работы однострочника на перле? ;)
      Ответить
    • Ну, когда у меня потребовали рандомную строку из наперед заданных символов - я их все-таки строкой сделал и из нее по символу дергал. Чем сэкономил себе некоторое количество нервов и моторесурса апострофа и запятой. Я теперь тоже сюда, да?

      А 0 и 1 - действительно, какие-то неинтересные символы, нам, товарищи, такие символы не нужны!
      Ответить
      • А в перле можно было сделать сплит по пустой строке, не как тут.
        Ответить
        • В перле "это можно сделать по-разному". Ну и так по-говняному - тоже!
          Ответить
          • В большинстве случаев из 100 способов сделать что-то будет один самый правильный. Тот, который по дефолту в питоне.
            Ответить
    • my $number = 42;
      my @chars = (0 .. 9, 'a' .. 'z', 'A' .. 'Z');
      $plain .= $chars[rand(59) + 2] for 0 .. $number;

      ёбаные абизяны
      Ответить

    Добавить комментарий