Помогите с Perl

Тема в разделе "Другие языки", создана пользователем artii, 7 сен 2009.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. artii

    artii Писатель

    Регистр.:
    25 июн 2008
    Сообщения:
    3
    Симпатии:
    0
    Perl не знаю, потому прошу помощи в написании простенького скрипта. Нужно чтоб генерился кусок строки произвольных символов с задаваемой длинной. например 8 символов - "poiqozij" и соединялся со строкой @yandex.ru и на выходе было poiqozij@yandex.ru
     
  2. RolCom

    RolCom

    Регистр.:
    12 мар 2008
    Сообщения:
    351
    Симпатии:
    108
    Лови
    Код:
    #!/usr/bin/perl -w
    @chars = ('a'..'z');
    $mail .= $chars[rand @chars] for 1..8;
    $mail .=  '@yandex.ru';
    print $mail;
    
     
  3. x-tender

    x-tender Создатель

    Регистр.:
    18 апр 2007
    Сообщения:
    13
    Симпатии:
    1
    Или так:
    $mail .= chr(ord('a')+rand(26)) for 1..8;
    $mail .= '@yandex.ru';
    print $mail;
     
Статус темы:
Закрыта.