Авторские статьи Perl с нуля. Часть первая.

Discussion in 'Статьи' started by tclover, 26 Feb 2006.

  1. tclover

    tclover nobody

    Joined:
    13 Dec 2005
    Messages:
    741
    Likes Received:
    682
    Reputations:
    287
    Вот, как и обещал, пишу статью о программировании на этом, бесспорно, прекрасном языке.
    Алерт! Статья для новичков! Все кто уже потирает руки с желанием нагадить в комментах - валите отсюда сразу. :)
    Говорить я буду о перле под виндовс - это чтобы небыло потом дальнейших пререканий и недоразумений.
    Непосредственно перед тем как мы начнём мучать этот язык, советую скачать -
    ActivePerl(12.7MB)
    Интерпретатор Перл.(Именно интерпретатор, а не компилятор, как его ошибочно называют многие)
    EmEditor (3.1 MB) (Редактор) В нём Вы будете находить свои ошибки (а ошибки есть у всех и всегда) куда быстрее, чем в блокноте.
    И маленький совет от меня - Когда будете устанавливать ActivePerl - создайте на диске C директорию usr и уже в неё ставьте Perl.
    -------------
    Поскольку за один раз проглотить перл неполучится - буду писать примерно раз в две недели продолжение.
    Ну вот собственно с вступлением покончено раз и навсегда. Обратного пути у Вас нет :). Вперёд!
    ---------------

    Начало
    Ну вот. Начинаем.
    Перво-наперво напишем малюсенькую программку которая выведет надпись - "antichat - rulezzz4hax0rz".

    Code:
    #!/usr/bin/perl -w
    print ("antichat - rulezzz4hax0rz\n");
    Сохраняем это дело в файл с именем например antichat.pl
    Открываем из cmd и смотрим на результат.
    Теперь обьясню что мы только что сделали :)
    Итак - первая строка говорит о том что это программа написана на перле и указывает путь к интерпретатору. Кроме того, как Вы наверное заметили здесь присутствует ключ -w. Этот ключ применяют для того что чтобы перл-интерпретатор предупреждал нас о заведомо опасных конструкциях программы. Вообщем на мой взгляд ничего существенного, но так лучше следить за качеством кода.
    Вторая строка - это выполняемая часть нашей с Вами первой программы. Как видите здесь стоит функция print. В нашем случае print имеет только один аргумент - строку текста.
    "\n" - означает переход на новую строку.
    ";" - Точка с запятой завершает оператор.

    Теперь усложняем задачу - пишем прогу которая будет называть Вас по нику.
    Наша прога сначала спросит ник, запишет его в переменную и выведет на экран.
    Одно из мест для хранения значений (например текстовых) - скалярная переменная. Для хранения ника я возьму переменную $nick.
    Получение данных осуществляется при помощи конструкции <STDIN>,
    которая в нашем случае получит строку, которую мы в свою очередь присвоем переменной $nick.

    Code:
    #!usr/bin/perl -w
    print "What is you nick-name?\n"; #Какой у тебя ник?
    $nick = <STDIN>;
    #Теперь нам осталось сказать "Привет" и указать значение переменной $nick
    print "Hello,$nick!\n";
    Упс... Забыл :) Если Вы всё сделали правильно, то Ваш ник и восклицательный знак отбразились на разных строчках.
    Сейчас исправим - Дело в том, что например ник "tclover" поступает как "tclover\n". Чтобы избавиться от этого
    мы воспульзуемся функцией chomp, которая принимает скалярную переменную и удаляет из её строкового значения символ перехода на новую строку - "\n"
    chomp ($nick);

    Теперь у нас получилось что-то вроде этого -

    Code:
    #!usr/bin/perl -w
    print "What is you nick-name?\n"; 
    $nick = <STDIN>;
    chomp ($nick);
    print "Hello,$nick!\n";
    Вот так уже значительно лучше :)
    Теперь усложним ещё больше. Мы же любим себя? Любим конечно, глупый вопрос :)
    Тогда сделаем так, чтобы для нас любимых привествие было особым.Добавляем операцию сравнения.

    Code:
    #!/usr/bin/perl -w
    print "What is you nick-name?\n";
    $nick = <STDIN>;
    chomp ($nick);
    if ($nick eq "tclover"){
    	print "Hello, tclover You - the Best!"; # Типа для нас
    } else {
    	print "Hello, $nick \n"; # Типа для всех остальных
    }
    
    В операции eq мы сравнили две строки. Если они равны, то результатом будет "истина".
    Оператор if выбирает, какой блок операторов (это те что между фигурными скобками) выполняется - если выражение даёт в результате "истина", то выполняется первый блок, ну а если "ложь" - то выполняется второй блок.

    Ну и последнее на сегодня.
    Рассмотрим ещё один код. У всех кто открыл это (кроме товарища по имени tclover), ЭТО будет просить
    ввести пароль.
    Code:
    	#!/usr/bin/perl -w
    	$pass = "antichat"; # Обьявляем пароль - пароль сегодня "antichat"
    	print "What is your name? \n";
    	$nick = <STDIN>;
    	chomp $nick;
    	if ($nick eq "tclover"){
    	print "Hello, tclover! You the Best! \n";
    } else {
    	print "Hello $nick! \n";
    	print "What is the password? \n";
    	$vopros = <STDIN>;
    	chomp ($vopros);
    	while ($vopros ne $pass){
    	print "Nichrena, try again. What is the password? \n";
    	$vopros = <STDIN>;
    	chomp ($vopros);
    	}
    }
    Поясню. сначала мы задали секретное слово поместив его в переменную $pass. Прога спрашивает вызывая функцию принт у пользователя пароль и сравнивает с тем что у нас есть. Введённые данные сравниваются с тем что мы задали в операции ne. Эта операция возвращает значение "истина", если сравниваемые строки не равны. Заметьте отличие от операции eq. Далее мы задествовали цикл while, который ваполняется до тех пор пока сравнение проходит с результатом "истина".

    Ну и в заключение первой части: Всё это я писал для тех, кто ничего не знает о языках программирования, но очень хочет. Перл на мой взгляд наиболее лёгкий для изучения язык.
    Все умники которые начнут кричать о ламероватости этой статьи могут идти по своему выбору либо сюда
    либо сразу в /dev/null.
    А те кто только начинают свой путь - удачи Вам в изучении этого языка. Как только найду время начну писать продолжение. Всем удачи!
     
    #1 tclover, 26 Feb 2006
    Last edited: 26 Feb 2006
    11 people like this.
  2. nerezus

    nerezus Banned

    Joined:
    12 Aug 2004
    Messages:
    3,191
    Likes Received:
    729
    Reputations:
    266
    вынужден несогласиться.

    почему выбрал именно про перл писать? других языков нет что-ли? =)

    тема скобок не раскрыта.
    тема strict не не раскрыта
    тема метасимволов(типа \n) не раскрыта
    тема ибли не раскрыта
    тема сравнения не раскрыта
    тема оформления кода не раскрыта

    хотя это почти все юзается в статье
     
    1 person likes this.
  3. nerezus

    nerezus Banned

    Joined:
    12 Aug 2004
    Messages:
    3,191
    Likes Received:
    729
    Reputations:
    266
    почему перл сакс:
    1. ООП прятянуто за уши. Тут без комментариев. Не нужны комментарии.
    2. Переменные по умолчанию. Из-за сабжа приходится читать не только нужный отрывок скрипта, но и отрывок перед ним, чтобы понять, благодаря какой ебической силе меняется переменная.
    3. Постусловия. Это вобще маразм - поставить условие в конец строки. Из-за такого кретинизма приходится читать код, а не просто поглядывать на управляющие структуры. Особенно усугуюляется это благодаря п.4.
    4. Вольности в синтаксисе. Ну вот нахрена? Правильно - как проще, а не как короче. BlackMagic никому не нужен, кроме автора текста.
     
  4. Evolution

    Evolution Elder - Старейшина

    Joined:
    9 Sep 2005
    Messages:
    77
    Likes Received:
    16
    Reputations:
    1
    ко всему уважению к автору, я бы луше купил/скачал учебник.
    а на форуме про язык програмирования писать глупо, т.к. всё описать всёравно не сможешь(времи оч много займёт)...да и статей тогда будкт не один десяток
     
  5. tclover

    tclover nobody

    Joined:
    13 Dec 2005
    Messages:
    741
    Likes Received:
    682
    Reputations:
    287
    1. начну писать продолжение
    2. могут идти по своему выбору либо сюда либо сразу в /dev/null.
    3. Изучив один язык легко вычуить другое.
    И 4. Пля. Там написано куда идти таким умным парням как ты - двигай на wasm.ru и там уже можешь поумничать вволю.
    Вольности в синтаксисе - как хочу так и пишу.
    Насчёт того что перл противопоказан новичкам - не вижу ни оной причины для этого. Новичкам ничего не противопоказано, даже ассм. Начинай хоть с него. Без разницы.
     
    #5 tclover, 26 Feb 2006
    Last edited: 26 Feb 2006
  6. nerezus

    nerezus Banned

    Joined:
    12 Aug 2004
    Messages:
    3,191
    Likes Received:
    729
    Reputations:
    266
    потом + поставлю значит )

    мне кажется перл новичкам противопоказан. Его постепенно тем более сложно изучать.
     
  7. tclover

    tclover nobody

    Joined:
    13 Dec 2005
    Messages:
    741
    Likes Received:
    682
    Reputations:
    287
    Это ты не туда зашёл :) Тему ибли :) раскрывать и не собирался.
     
  8. Morph

    Morph Пирожок с Маком

    Joined:
    13 Aug 2004
    Messages:
    790
    Likes Received:
    113
    Reputations:
    169
    раскрой тему ебли.

    А если серьезно написал бы с примерами там как примерно сплойты пишуться объяснил бы что к чему.
    Интересно многим было бы.
     
  9. tclover

    tclover nobody

    Joined:
    13 Dec 2005
    Messages:
    741
    Likes Received:
    682
    Reputations:
    287
    Вот сразу прямо и в сплоиты. Там же два раза написано - "Для новичков" и "С нуля". Всему своё время.
     
  10. gazta

    gazta Elder - Старейшина

    Joined:
    16 Oct 2005
    Messages:
    35
    Likes Received:
    3
    Reputations:
    -1
    лучше было бы в файл всё загнать и ссылками давать так удобно и практично

    А так да клёва (особенно для меня тк в перле не шарю)

    И вообще взялся доведи до канца и не бросай как принято у вас на античате
     
  11. tclover

    tclover nobody

    Joined:
    13 Dec 2005
    Messages:
    741
    Likes Received:
    682
    Reputations:
    287
    Не боись. Доведу.
    Всё будет аллрайт, как говорят буржуины.
     
  12. tclover

    tclover nobody

    Joined:
    13 Dec 2005
    Messages:
    741
    Likes Received:
    682
    Reputations:
    287
    Потому что Калашникова мне всё равно не переплюнуть :)
     
    1 person likes this.
  13. Tem

    Tem -

    Joined:
    5 Oct 2005
    Messages:
    557
    Likes Received:
    157
    Reputations:
    179
    Даже очень не плоха, PHP знаю , а спомошью тебя выучу Perl . Продолжения давай )
     
  14. [Zarakul]

    [Zarakul] Elder - Старейшина

    Joined:
    12 Dec 2005
    Messages:
    153
    Likes Received:
    49
    Reputations:
    6
    При всём уважении к автору [Evolution ;) ], я б не стал называть эту статью "для новичков". Новички обычно ни с Perl`а начинают. А тема статьи, имхо, "Что знает её автор о данном языке" или "Чем он пользуется при написании чего-то на данном языке".
     
  15. Tem

    Tem -

    Joined:
    5 Oct 2005
    Messages:
    557
    Likes Received:
    157
    Reputations:
    179
    Не для навичков , извените меня ну навичок сразу не будет изучать Perl )), сперва ХТМЛ, потом уже идти по цепочка, а так статья не плохая.
     
  16. nerezus

    nerezus Banned

    Joined:
    12 Aug 2004
    Messages:
    3,191
    Likes Received:
    729
    Reputations:
    266
    Tem, у тя каша в голове: ты птаешь языки разметки и языки программирования.
     
  17. podkashey

    podkashey С крышкой по жизни!

    Joined:
    18 Jun 2005
    Messages:
    756
    Likes Received:
    351
    Reputations:
    353
    Ни че так статья. Правда если хоть чуть-чуть знаешь даже паскаль, то можно не вдаваться в смысл. Trampled_clover, без обид. ;)
    Не у кого нет идеи расписать по полочкам, что делает какой-нить сплойт на перле, чтобы потом все сами могли разбирать ошибки "от дурака" в сплойтах? Хорошая бы статья была. :)
     
  18. rent0n

    rent0n Elder - Старейшина

    Joined:
    25 Dec 2005
    Messages:
    119
    Likes Received:
    19
    Reputations:
    2
    все хорошо да, кроме 1-й же строчки кода #!/usr/bin/perl -w
    Спрашивается причем здесь /usr/bin/perl, если ты кодишь под винду? Тогда и указывай путь к виндовому интерпретатору...
     
  19. tclover

    tclover nobody

    Joined:
    13 Dec 2005
    Messages:
    741
    Likes Received:
    682
    Reputations:
    287
    А ты прочитал эту строчку? -
     
  20. LeopardSS

    LeopardSS Elder - Старейшина

    Joined:
    8 Jan 2006
    Messages:
    64
    Likes Received:
    8
    Reputations:
    5
    Все отлично, пиши дальше. Только желательно побольше и почаще, раз в 2 недели, так можно на год растянуть