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

    • ava Lure Of Chaos 30.11.2011 16:28 # 0

      только причем тут хэш?
      Ответить

    • ava roman-kashitsyn 30.11.2011 16:34 # 0

      > Мне бы было лень вбить столько символов
      А друг это программа - результат работы однострочника на перле? ;)
      Ответить

    • ava guest 02.12.2011 17:05 # 0

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

      А 0 и 1 - действительно, какие-то неинтересные символы, нам, товарищи, такие символы не нужны!
      Ответить

      • ava eth0 02.12.2011 18:46 # 0

        А в перле можно было сделать сплит по пустой строке, не как тут.
        Ответить

        • ava mac-t 08.12.2011 18:36 # 0

          В перле "это можно сделать по-разному". Ну и так по-говняному - тоже!
          Ответить

          • ava roman-kashitsyn 08.12.2011 18:39 # +1

            В большинстве случаев из 100 способов сделать что-то будет один самый правильный. Тот, который по дефолту в питоне.
            Ответить

    • ava MAKAKA 30.10.2019 22:29 # 0 

      my $number = 42;
my @chars = (0 .. 9, 'a' .. 'z', 'A' .. 'Z');
$plain .= $chars[rand(59) + 2] for 0 .. $number;

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

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