Как запустить perl скрипт на windows

Windows

В Windows мы будем использовать DWIM Perl. Это пакет программ,
содержащий компилятор/интерпретатор Padre, Perl IDE,
и ряд модулей из CPAN.

Для начала зайдите на сайт DWIM Perl
и откройте страницу загрузки DWIM Perl для Windows.

Скачайте исполняемый файл и установите его в вашу систему. Предварительно
пожалуйста убедитесь, что у вас не установлена любая другая версия Perl.

Конечно, разные версии Perl можно заставить работать вместе, но как это сделать потребует дополнительных разъяснений.
Поэтому пусть пока у вас в системе будет установлена одна единственная версия Perl.

Linux

Большинство современных Linux-дистрибутивов поставляются со свежей версией Perl.
Её мы и будем использовать. В качестве редактора
вы можете установить Padre — большинство дистрибутивов дают возможность сделать это
с помощью стандартного менеджера пакетов. Или вы можете выбрать любой другой текстовый редактор.
Если вы дружите с Vim или Emacs, используйте его. Если нет,
попробуйте Gedit — простой и удобный.

Apple

Уверен, Маки также поставляются с предустановленным Perl, ну или вы можете легко установить его с помощью
стандартных средств установки.

Редактор и IDE

Хотя я это и советую, вовсе не обязательно использовать Padre IDE, чтобы писать код на Perl.
В следующей части учебника я перечислю пару редакторов и IDE, которые вы
можете использовать для программирования на Perl. Но даже если вы выберете другой редактор,
я бы рекомендовал — для пользователей Windows — установить упомянутый выше пакет DWIM Perl.

Он идет с большим количеством готовых Perl-модулей, это сэкономит вам массу времени и сил.

Видео

Вы можете посмотреть видео
Hello world with Perl (англ.),
которое я загрузил на YouTube. Также обратите внимание на
Beginner Perl Maven video course (англ.).

Первая программа

Ваша первая программа будет выглядеть, например, так:

use 5.010;
use strict;
use warnings;

say "Hello World";

Рассмотрим её шаг за шагом.

Hello world

Как только вы установили DWIM Perl, вы можете нажать на
«Пуск -> Все программы -> DWIM Perl -> Padre», откроется редактор
с пустым новым файлом.

Введите:

print "Hello Worldn";

Как вы, наверное, заметили, команды в Perl заканчиваются точкой с запятой ;.
Знак n используется для обозначения перевода строки.
Строки заключены в двойные кавычки «.
Функция print печатает текст на экран.
В результате выполнения этого кода Perl выведет на экран текст, заканчивающийся переводом строки.

Сохраните файл как hello.pl, чтобы затем вы запустить его командой «Run -> Run Script».
Появится новое окно с результатами работы программы.

Готово, вы писали ваш первый Perl-скрипт.

Теперь давайте его немного усовершенствуем.

Perl в командной строке для тех, кто не пользуется Padre

Если вы не используете Padre или другую IDE,
вы не сможете запустить скрипт прямо из редактора.
По крайней мере, по умолчанию. Нужно будет открыть shell
(или cmd в Windows), перейти в каталог, где вы сохранили hello.pl
и набрать команду:

perl hello.pl

Так Perl-скрипты запускаются из командной строки.

say() вместо print()

Давайте немного улучшим наш однострочный Perl-скрипт:

Для начала нужно указать минимальную версию Perl, которую мы хотели бы использовать:

use 5.010;
print "Hello Worldn";

Теперь можете запустить скрипт еще раз, выбрав в меню
«Run -> Run Script», или нажав клавишу F5.
Перед запуском файл будет автоматически сохранен.

В целом, указание минимальной требуемой версии Perl является хорошей практикой.

В нашем случае это добавляет в Perl также несколько новых функций, в том числе оператор say().
say похож на print, но короче, и
автоматически добавляет в конце символ перевода строки.

Вы можете переписать ваш код так:

use 5.010;
say "Hello World";

Мы заменили print на say и убрали n с конца строки.

Сейчас вы скорее всего используете Perl версии 5.12.3 или 5.14.
Большинство современных Linux-дистрибутивов версии поставляются с Perl 5.10 или более поздней версии.

К сожалению, кое-где ещё работают старые версии Perl.
В них нет оператора say(), и, кроме того, могут потребоваться некоторые другие изменения
в примерах, которые мы рассмотрим позднее. В дальнейшем я буду отмечать, если используются возможности
версии 5.10.

«Ремни безопасности»

Помимо прочего, в каждой скрипт я настоятельно рекомендую добавлять несколько команд, меняющих
поведение Perl. Это две строки, так называемые прагмы, которые действуют подобно флагам компилятора
в других языках:

use 5.010;
use strict;
use warnings;

say "Hello World";

Команда use говорит Perl, что нужно загрузить и использовать каждую прагму.

strict и warnings помогут вам отловить некоторые общие ошибки
в коде, а иногда даже просто не дадут вам их сделать.
Это очень удобно.

Чтение ввода

Теперь давайте ещё улучшим нашу программу: будем спрашивать у пользовательницы её имя, а затем
выводить его на экран.

use 5.010;
use strict;
use warnings;

say "What is your name? ";
my $name = <STDIN>;
say "Hello $name, how are you?";

$name называется скалярной переменной, или просто: скаляр.

Переменные объявляются при помощи ключевого слова my.
(По секрету заметим, что на самом деле это одно из требований, добавленных прагмой strict).

Скалярные переменные всегда начинаются со знака доллара: $.
<STDIN> это инструмент для чтения строки с клавиатуры.

Введите наш новый код и запустите его, нажав клавишу F5.

Он спросит имя. Введите его и нажмите ENTER, чтобы сообщить Perl
об окончании ввода.

Обратите внимание, что вывод нашей программы слегка кривой: запятая после
имени появляется на новой строке. Это произошло потому, что ENTER, который вы нажали после ввода имени,
попал в переменную $name.

Избавляемся от переводов строк

use 5.010;
use strict;
use warnings;

say "What is your name? ";
my $name = <STDIN>;
chomp $name;
say "Hello $name, how are you?";

Это настолько распространенная в Perl задача, что есть специальная функция chomp,
которая удаляет концевой перенос строки.

Заключение

В начало каждого скрипта, который вы пишете, всегда добавляйте use strict; и use warnings;.
Также крайне рекомендуется добавлять use 5.010;.

Задания

Я обещал задания.

Попробуйте запустить следующий скрипт:

use strict;
use warnings;
use 5.010;

say "Hello ";
say "World";

Он не выводит сообщение в одну строку. Почему? Как это исправить?

Задание №2

Напишите скрипт, который запрашивает у пользовательницы два числа, одно за другим.
Затем выводит сумму этих двух чисел.

Что дальше

Следующая часть нашего учебника расскажет про
редакторы, IDE и среду разработки для Perl.

1. Есть много способов: можете писать руками путь/к/перлу/perl скрипт.pl (точнее, у вас в качестве пути может быть что-нибудь вроде C:Program FilesSome Perlbin), можете добавить путь к перлу в переменную окружения %PATH% и запускать скрипты командой perl скрипт.pl, можете настроить ассоциацию перловых исходников с интерпретатором — вариантов масса. А ещё был когда-то cygwin, где перл конечно же был, а ещё в свежих версиях Windows 10 есть линуксовая подсистема, где тоже перл должен быть.

2. #!/usr/bin/perl — так называемый shebang, особый комментарий, где после решётки с восклицательным знаком пишется путь к интерпретатору (это может быть не только перл) и, если надо, дополнительные параметры (например, #!/usr/bin/perl -F' ' -nla). В юниксоподобных системах это имеет значение — при запуске скрипта без указания команды вызова интерпретатора операционная система как раз в shebang и смотрит, чтобы понять, как же выполнить скрипт — бывают скрипты и без расширений. Под Windows shebang скорее всего роли не играет.

3. Чтобы перл больше ругался, используйте

use warnings;
use strict;

Вместо первой из этих строк можете добавить ключ -w при запуске перлового интерпретатора.

4. IDE с поддержкой перла существуют. Лучшее из того, что попадалось мне под Windows — Komodo IDE. Есть упрощённая бесплатная версия — Komodo Edit: это уже не IDE (нет отладчика, юнит-тестов и ещё кучи всякой всячины), а просто навороченный редактор с поддержкой перла.

10.01.2015, 01:54. Показов 20549. Ответов 3

2

Перейти к содержимому

Perl – Введение

Perl – это язык программирования общего назначения, изначально разработанный для работы с текстом, и теперь он используется для решения широкого круга задач, включая системное администрирование, веб-разработку, сетевое программирование, разработку графического интерфейса пользователя и многое другое.

Что такое Perl?

• Perl – это стабильный кроссплатформенный язык программирования.

• Хотя Perl официально не является аббревиатурой, но мало кто использовал его как Практическое извлечение и язык отчетов .

• Он используется для критически важных проектов в государственном и частном секторах.

• Perl – это программное обеспечение с открытым исходным кодом, лицензируемое по лицензии Artistic License или GNU General Public License (GPL) .

• Perl был создан Ларри Уоллом.

• Perl 1.0 был выпущен для alnet.comp.sources usenet в 1987 году.

• На момент написания этого руководства последняя версия Perl была 5.16.2.

• Perl указан в Оксфордском словаре английского языка .

Perl – это стабильный кроссплатформенный язык программирования.

Хотя Perl официально не является аббревиатурой, но мало кто использовал его как Практическое извлечение и язык отчетов .

Он используется для критически важных проектов в государственном и частном секторах.

Perl – это программное обеспечение с открытым исходным кодом, лицензируемое по лицензии Artistic License или GNU General Public License (GPL) .

Perl был создан Ларри Уоллом.

Perl 1.0 был выпущен для alnet.comp.sources usenet в 1987 году.

На момент написания этого руководства последняя версия Perl была 5.16.2.

Perl указан в Оксфордском словаре английского языка .

Журнал PC Magazine объявил Perl финалистом премии «Техническое совершенство» 1998 года в категории «Средства разработки».

Особенности Perl

• Perl использует лучшие возможности других языков, таких как C, awk, sed, sh и BASIC.

• Интерфейс интеграции базы данных Perls DBI поддерживает сторонние базы данных, включая Oracle, Sybase, Postgres, MySQL и другие.

• Perl работает с HTML, XML и другими языками разметки.

• Perl поддерживает Unicode.

• Perl соответствует требованиям 2000 года.

• Perl поддерживает как процедурное, так и объектно-ориентированное программирование.

• Perl взаимодействует с внешними библиотеками C / C ++ через XS или SWIG.

• Perl расширяемый. Существует более 20 000 сторонних модулей, доступных из всеобъемлющей сети архивов Perl ( CPAN ).

• Интерпретатор Perl может быть встроен в другие системы.

Perl использует лучшие возможности других языков, таких как C, awk, sed, sh и BASIC.

Интерфейс интеграции базы данных Perls DBI поддерживает сторонние базы данных, включая Oracle, Sybase, Postgres, MySQL и другие.

Perl работает с HTML, XML и другими языками разметки.

Perl поддерживает Unicode.

Perl соответствует требованиям 2000 года.

Perl поддерживает как процедурное, так и объектно-ориентированное программирование.

Perl взаимодействует с внешними библиотеками C / C ++ через XS или SWIG.

Perl расширяемый. Существует более 20 000 сторонних модулей, доступных из всеобъемлющей сети архивов Perl ( CPAN ).

Интерпретатор Perl может быть встроен в другие системы.

Perl и Интернет

• Perl был самым популярным языком веб-программирования из-за его возможностей манипулирования текстом и быстрого цикла разработки.

• Perl широко известен как « клейкая лента Интернета ».

• Perl может обрабатывать зашифрованные веб-данные, включая транзакции электронной торговли.

• Perl может быть встроен в веб-серверы для ускорения обработки на 2000%.

• Mod_perl в Perl позволяет веб-серверу Apache встраивать интерпретатор Perl.

• Пакет Perl DBI облегчает интеграцию веб-базы данных.

Perl был самым популярным языком веб-программирования из-за его возможностей манипулирования текстом и быстрого цикла разработки.

Perl широко известен как « клейкая лента Интернета ».

Perl может обрабатывать зашифрованные веб-данные, включая транзакции электронной торговли.

Perl может быть встроен в веб-серверы для ускорения обработки на 2000%.

Mod_perl в Perl позволяет веб-серверу Apache встраивать интерпретатор Perl.

Пакет Perl DBI облегчает интеграцию веб-базы данных.

Perl интерпретируется

Perl является интерпретируемым языком, что означает, что ваш код может быть запущен как есть, без этапа компиляции, который создает непереносимую исполняемую программу.

Традиционные компиляторы конвертируют программы на машинный язык. Когда вы запускаете Perl-программу, она сначала компилируется в байт-код, который затем преобразуется (при запуске программы) в машинные инструкции. Так что это не совсем то же самое, что оболочки или Tcl, которые строго интерпретируются без промежуточного представления.

Это также не похоже на большинство версий C или C ++, которые компилируются непосредственно в машинно-зависимый формат. Это где-то посередине, вместе с Python и awk и файлами Eelcs .elc.

Perl – Окружающая среда

Прежде чем мы начнем писать наши программы на Perl, давайте разберемся, как настроить нашу среду Perl. Perl доступен на самых разных платформах –

• Unix (Solaris, Linux, FreeBSD, AIX, HP / UX, SunOS, IRIX и т. Д.)
• Win 9x / NT / 2000 /
• WinCE
• Макинтош (КПП, 68K)
• Солярис (x86, SPARC)
• OpenVMS
• Альфа (7.2 и позже)
• Symbian
• Debian GNU / kFreeBSD
• МирОС БСД
• И многое другое …

Это более вероятно, что на вашей системе будет установлен Perl. Просто попробуйте ввести в командной строке следующую команду:

$perl -v

Если на вашем компьютере установлен Perl, вы получите следующее сообщение:

This is perl 5, version 16, subversion 2 (v5.16.2) built for i686-linux

Copyright 1987-2012, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

Если Perl еще не установлен, перейдите к следующему разделу.

Получение установки Perl

Самый актуальный и актуальный исходный код, двоичные файлы, документация, новости и т. Д. Доступны на официальном сайте Perl.

Официальный сайт Perl – https://www.perl.org/

Вы можете скачать документацию по Perl со следующего сайта.

Веб-сайт документации Perl – https://perldoc.perl.org

Установить Perl

Распространение Perl доступно для самых разных платформ. Вам нужно скачать только двоичный код, подходящий для вашей платформы, и установить Perl.

Если двоичный код для вашей платформы недоступен, вам нужен компилятор C, чтобы скомпилировать исходный код вручную. Компиляция исходного кода обеспечивает большую гибкость с точки зрения выбора функций, которые требуются при установке.

Вот краткий обзор установки Perl на различных платформах.

Установка Unix и Linux

Вот простые шаги для установки Perl на машину Unix / Linux.

• Откройте веб-браузер и перейдите по адресу https://www.perl.org/get.html.

• Перейдите по ссылке, чтобы скачать сжатый исходный код, доступный для Unix / Linux.

• Загрузите файл perl-5.xytar.gz и введите в командной строке следующие команды.

Откройте веб-браузер и перейдите по адресу https://www.perl.org/get.html.

Перейдите по ссылке, чтобы скачать сжатый исходный код, доступный для Unix / Linux.

Загрузите файл perl-5.xytar.gz и введите в командной строке следующие команды.

$tar -xzf perl-5.x.y.tar.gz
$cd perl-5.x.y
$./Configure -de
$make
$make test
$make install

ПРИМЕЧАНИЕ. Здесь $ – это приглашение Unix, где вы вводите свою команду, поэтому убедитесь, что вы не вводите $ при вводе вышеупомянутых команд.

Это установит Perl в стандартном месте / usr / local / bin, а его библиотеки будут установлены в / usr / local / lib / perlXX , где XX – это версия Perl, которую вы используете.

Компиляция исходного кода после выполнения команды make займет некоторое время. После завершения установки вы можете выполнить команду perl -v в $ prompt, чтобы проверить установку perl. Если все хорошо, то будет отображаться сообщение, как мы показали выше.

Установка Windows

Вот шаги, чтобы установить Perl на машине Windows.

• Перейдите по ссылке для установки Strawberry Perl в Windows http://strawberryperl.com

• Загрузите 32-битную или 64-битную версию установки.

• Запустите загруженный файл, дважды щелкнув его в проводнике Windows. Это вызывает мастер установки Perl, который действительно прост в использовании. Просто примите настройки по умолчанию, дождитесь окончания установки, и вы готовы к работе!

Перейдите по ссылке для установки Strawberry Perl в Windows http://strawberryperl.com

Загрузите 32-битную или 64-битную версию установки.

Запустите загруженный файл, дважды щелкнув его в проводнике Windows. Это вызывает мастер установки Perl, который действительно прост в использовании. Просто примите настройки по умолчанию, дождитесь окончания установки, и вы готовы к работе!

Установка Macintosh

Чтобы создать собственную версию Perl, вам понадобится make, который является частью инструментов разработчика Apples, обычно поставляемых с установочными DVD-дисками Mac OS. Вам не нужна последняя версия Xcode (за которую сейчас взимается плата) для установки make.

Вот простые шаги для установки Perl на компьютер Mac OS X.

• Откройте веб-браузер и перейдите по адресу https://www.perl.org/get.html .

• Перейдите по ссылке, чтобы загрузить сжатый исходный код, доступный для Mac OS X.

• Загрузите файл perl-5.xytar.gz и введите в командной строке следующие команды.

Откройте веб-браузер и перейдите по адресу https://www.perl.org/get.html .

Перейдите по ссылке, чтобы загрузить сжатый исходный код, доступный для Mac OS X.

Загрузите файл perl-5.xytar.gz и введите в командной строке следующие команды.

$tar -xzf perl-5.x.y.tar.gz
$cd perl-5.x.y
$./Configure -de
$make
$make test
$make install

Это установит Perl в стандартном месте / usr / local / bin, а его библиотеки будут установлены в / usr / local / lib / perlXX , где XX – это версия Perl, которую вы используете.

Запуск Perl

Ниже приведены различные способы запуска Perl.

Интерактивный переводчик

Вы можете ввести perl и сразу начать писать код в интерактивном интерпретаторе, запустив его из командной строки. Вы можете сделать это из Unix, DOS или любой другой системы, которая предоставляет вам интерпретатор командной строки или окно оболочки.

$perl  -e <perl code>           # Unix/Linux

or 

C:>perl -e <perl code>          # Windows/DOS

Вот список всех доступных параметров командной строки –

-d [: отладчик]

Запускает программу под отладчиком

-Idirectory

Определяет @ INC / # include каталог

-T

Позволяет портить чеки

-t

Позволяет портить предупреждения

-U

Позволяет небезопасные операции

-w

Включает много полезных предупреждений

-W

Включает все предупреждения

-ИКС

Отключает все предупреждения

-э программа

Запускает Perl-скрипт, отправленный как программа

файл

Запускает Perl-скрипт из заданного файла.

Скрипт из командной строки

Скрипт Perl – это текстовый файл, в котором хранится код Perl, и его можно выполнить в командной строке, вызвав интерпретатор в вашем приложении, как показано ниже:

$perl  script.pl          # Unix/Linux

or 

C:>perl script.pl         # Windows/DOS

Интегрированная среда развития

Вы также можете запустить Perl из среды графического интерфейса пользователя (GUI). Все, что вам нужно, это приложение с графическим интерфейсом в вашей системе, которое поддерживает Perl. Вы можете скачать Padre, Perl IDE . Вы также можете использовать Eclipse Plugin EPIC – Perl Editor и IDE для Eclipse, если вы знакомы с Eclipse.

Прежде чем перейти к следующей главе, убедитесь, что ваша среда правильно настроена и работает идеально. Если вы не можете правильно настроить среду, вы можете обратиться за помощью к системному администратору.

Все примеры, приведенные в последующих главах, были выполнены с версией v5.16.2, доступной для разновидности CentOS в Linux.

Perl – обзор синтаксиса

Perl заимствует синтаксис и понятия из многих языков: awk, sed, C, Bourne Shell, Smalltalk, Lisp и даже английского. Однако между языками есть определенные различия. Эта глава предназначена для быстрого ознакомления с синтаксисом, ожидаемым в Perl.

Программа Perl состоит из последовательности объявлений и операторов, которые выполняются сверху вниз. Циклы, подпрограммы и другие управляющие структуры позволяют вам перемещаться внутри кода. Каждое простое утверждение должно заканчиваться точкой с запятой (;).

Perl – это язык свободной формы: вы можете форматировать и делать отступы так, как вам нравится. Пробельные символы служат в основном для разделения токенов, в отличие от таких языков, как Python, где он является важной частью синтаксиса, или Fortran, где он несущественен.

Первая Perl-программа

Программирование в интерактивном режиме

Вы можете использовать интерпретатор Perl с параметром -e в командной строке, который позволяет выполнять операторы Perl из командной строки. Давайте попробуем что-то в $ prompt следующим образом:

$perl -e 'print "Hello Worldn"'

Это выполнение даст следующий результат –

Hello, world

Script Mode Программирование

Предполагая, что вы уже используете $ prompt, давайте откроем текстовый файл hello.pl с помощью редактора vi или vim и поместим следующие строки в ваш файл.

Live Demo

#!/usr/bin/perl

# This will print "Hello, World"
print "Hello, worldn";

$chmod 0755 hello.pl
$./hello.pl

Hello, world

print("Hello, worldn");
print "Hello, worldn";

# This is a comment in perl

#!/usr/bin/perl

# This is a single line comment
print "Hello, worldn";

=begin comment
This is all part of multiline comment.
You can use as many lines as you like
These comments will be ignored by the 
compiler until the next =cut is encountered.
=cut

Hello, world

#!/usr/bin/perl

print       "Hello, worldn";

#!/usr/bin/perl

# This would print with a line break in the middle
print "Hello
          worldn";

Hello
          world

#!/usr/bin/perl

print "Hello, worldn";
print 'Hello, worldn';

Hello, world
Hello, worldn$

#!/usr/bin/perl

$a = 10;
print "Value of a = $an";
print 'Value of a = $an';

Value of a = 10
Value of a = $an$

#!/usr/bin/perl

$a = 10;
$var = <<"EOF";
This is the syntax for here document and it will continue
until it encounters a EOF in the first line.
This is case of double quote so variable value will be 
interpolated. For example value of a = $a
EOF
print "$varn";

$var = <<'EOF';
This is case of single quote so variable value will be 
interpolated. For example value of a = $a
EOF
print "$varn";

This is the syntax for here document and it will continue
until it encounters a EOF in the first line.
This is case of double quote so variable value will be
interpolated. For example value of a = 10

This is case of single quote so variable value will be
interpolated. For example value of a = $a

#!/usr/bin/perl

$result = "This is "number"";
print "$resultn";
print "$resultn";

This is "number"
$result

#!/usr/bin/perl

# This is case of interpolation.
$str = "Welcome to ntutorialspoint.com!";
print "$strn";

# This is case of non-interpolation.
$str = 'Welcome to ntutorialspoint.com!';
print "$strn";

# Only W will become upper case.
$str = "uwelcome to tutorialspoint.com!";
print "$strn";

# Whole line will become capital.
$str = "UWelcome to tutorialspoint.com!";
print "$strn";

# A portion of line will become capital.
$str = "Welcome to UtutorialspointE.com!"; 
print "$strn";

# Backsalash non alpha-numeric including spaces.
$str = "QWelcome to tutorialspoint's family";
print "$strn";

Welcome to
tutorialspoint.com!
Welcome to ntutorialspoint.com!
Welcome to tutorialspoint.com!
WELCOME TO TUTORIALSPOINT.COM!
Welcome to TUTORIALSPOINT.com!
Welcome to tutorialspoint's family

$age = 25;             # An integer assignment
$name = "John Paul";   # A string 
$salary = 1445.50;     # A floating point

#!/usr/bin/perl

$age = 25;             # An integer assignment
$name = "John Paul";   # A string 
$salary = 1445.50;     # A floating point

print "Age = $agen";
print "Name = $namen";
print "Salary = $salaryn";

Age = 25
Name = John Paul
Salary = 1445.5

#!/usr/bin/perl

@ages = (25, 30, 40);             
@names = ("John Paul", "Lisa", "Kumar");

print "$ages[0] = $ages[0]n";
print "$ages[1] = $ages[1]n";
print "$ages[2] = $ages[2]n";
print "$names[0] = $names[0]n";
print "$names[1] = $names[1]n";
print "$names[2] = $names[2]n";

$ages[0] = 25
$ages[1] = 30
$ages[2] = 40
$names[0] = John Paul
$names[1] = Lisa
$names[2] = Kumar

#!/usr/bin/perl

%data = ('John Paul', 45, 'Lisa', 30, 'Kumar', 40);

print "$data{'John Paul'} = $data{'John Paul'}n";
print "$data{'Lisa'} = $data{'Lisa'}n";
print "$data{'Kumar'} = $data{'Kumar'}n";

$data{'John Paul'} = 45
$data{'Lisa'} = 30
$data{'Kumar'} = 40

#!/usr/bin/perl

@names = ('John Paul', 'Lisa', 'Kumar');

@copy = @names;
$size = @names;

print "Given names are : @copyn";
print "Number of names are : $sizen";

Given names are : John Paul Lisa Kumar
Number of names are : 3

#!/usr/bin/perl

$age = 25;             # An integer assignment
$name = "John Paul";   # A string 
$salary = 1445.50;     # A floating point

print "Age = $agen";
print "Name = $namen";
print "Salary = $salaryn";

Age = 25
Name = John Paul
Salary = 1445.5

#!/usr/bin/perl

$integer = 200;
$negative = -300;
$floating = 200.340;
$bigfloat = -1.2E-23;

# 377 octal, same as 255 decimal
$octal = 0377;

# FF hex, also 255 decimal
$hexa = 0xff;

print "integer = $integern";
print "negative = $negativen";
print "floating = $floatingn";
print "bigfloat = $bigfloatn";
print "octal = $octaln";
print "hexa = $hexan";

integer = 200
negative = -300
floating = 200.34
bigfloat = -1.2e-23
octal = 255
hexa = 255

#!/usr/bin/perl

$var = "This is string scalar!";
$quote = 'I m inside single quote - $var';
$double = "This is inside single quote - $var";

$escape = "This example of escape -tHello, World!";

print "var = $varn";
print "quote = $quoten";
print "double = $doublen";
print "escape = $escapen";

var = This is string scalar!
quote = I m inside single quote - $var
double = This is inside single quote - This is string scalar!
escape = This example of escape -       Hello, World

#!/usr/bin/perl

$str = "hello" . "world";       # Concatenates strings.
$num = 5 + 10;                  # adds two numbers.
$mul = 4 * 5;                   # multiplies two numbers.
$mix = $str . $num;             # concatenates string and number.

print "str = $strn";
print "num = $numn";
print "mix = $mixn";

str = helloworld
num = 15
mul = 20
mix = helloworld15

#!/usr/bin/perl

$string = 'This is
a multiline
string';

print "$stringn";

This is
a multiline
string

#!/usr/bin/perl

print <<EOF;
This is
a multiline
string
EOF

This is
a multiline
string

#!/usr/bin/perl

$smile  = v9786;
$foo    = v102.111.111;
$martin = v77.97.114.116.105.110; 

print "smile = $smilen";
print "foo = $foon";
print "martin = $martinn";

smile = ☺
foo = foo
martin = Martin
Wide character in print at main.pl line 7.

#!/usr/bin/perl

print "File name ". __FILE__ . "n";
print "Line Number " . __LINE__ ."n";
print "Package " . __PACKAGE__ ."n";

# they can not be interpolated
print "__FILE__ __LINE__ __PACKAGE__n";

File name hello.pl
Line Number 4
Package main
__FILE__ __LINE__ __PACKAGE__

#!/usr/bin/perl

@ages = (25, 30, 40);             
@names = ("John Paul", "Lisa", "Kumar");

print "$ages[0] = $ages[0]n";
print "$ages[1] = $ages[1]n";
print "$ages[2] = $ages[2]n";
print "$names[0] = $names[0]n";
print "$names[1] = $names[1]n";
print "$names[2] = $names[2]n";

$ages[0] = 25
$ages[1] = 30
$ages[2] = 40
$names[0] = John Paul
$names[1] = Lisa
$names[2] = Kumar

@array = (1, 2, 'Hello');
@array = qw/This is an array/;

@days = qw/Monday
Tuesday
...
Sunday/;

$array[0] = 'Monday';
...
$array[6] = 'Sunday';

#!/usr/bin/perl

@days = qw/Mon Tue Wed Thu Fri Sat Sun/;

print "$days[0]n";
print "$days[1]n";
print "$days[2]n";
print "$days[6]n";
print "$days[-1]n";
print "$days[-7]n";

Mon
Tue
Wed
Sun
Sun
Mon

print $days[-1]; # outputs Sun
print $days[-7]; # outputs Mon

#!/usr/bin/perl

@var_10 = (1..10);
@var_20 = (10..20);
@var_abc = (a..z);

print "@var_10n";   # Prints number from 1 to 10
print "@var_20n";   # Prints number from 10 to 20
print "@var_abcn";  # Prints number from a to z

1 2 3 4 5 6 7 8 9 10
10 11 12 13 14 15 16 17 18 19 20
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

@array = (1,2,3);
print "Size: ",scalar @array,"n";

#!/usr/bin/perl

@array = (1,2,3);
$array[50] = 4;

$size = @array;
$max_index = $#array;

print "Size:  $sizen";
print "Max Index: $max_indexn";

Size: 51
Max Index: 50

#!/usr/bin/perl

# create a simple array
@coins = ("Quarter","Dime","Nickel");
print "1. @coins  = @coinsn";

# add one element at the end of the array
push(@coins, "Penny");
print "2. @coins  = @coinsn";

# add one element at the beginning of the array
unshift(@coins, "Dollar");
print "3. @coins  = @coinsn";

# remove one element from the last of the array.
pop(@coins);
print "4. @coins  = @coinsn";

# remove one element from the beginning of the array.
shift(@coins);
print "5. @coins  = @coinsn";

1. @coins = Quarter Dime Nickel
2. @coins = Quarter Dime Nickel Penny
3. @coins = Dollar Quarter Dime Nickel Penny
4. @coins = Dollar Quarter Dime Nickel
5. @coins = Quarter Dime Nickel

#!/usr/bin/perl

@days = qw/Mon Tue Wed Thu Fri Sat Sun/;

@weekdays = @days[3,4,5];

print "@weekdaysn";

Thu Fri Sat

#!/usr/bin/perl

@days = qw/Mon Tue Wed Thu Fri Sat Sun/;

@weekdays = @days[3..5];

print "@weekdaysn";

Thu Fri Sat

splice @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]

#!/usr/bin/perl

@nums = (1..20);
print "Before - @numsn";

splice(@nums, 5, 5, 21..25); 
print "After - @numsn";

Before - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
After - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

split [ PATTERN [ , EXPR [ , LIMIT ] ] ]

#!/usr/bin/perl

# define Strings
$var_string = "Rain-Drops-On-Roses-And-Whiskers-On-Kittens";
$var_names = "Larry,David,Roger,Ken,Michael,Tom";

# transform above strings into arrays.
@string = split('-', $var_string);
@names  = split(',', $var_names);

print "$string[3]n";  # This will print Roses
print "$names[4]n";   # This will print Michael

Roses
Michael

join EXPR, LIST

#!/usr/bin/perl

# define Strings
$var_string = "Rain-Drops-On-Roses-And-Whiskers-On-Kittens";
$var_names = "Larry,David,Roger,Ken,Michael,Tom";

# transform above strings into arrays.
@string = split('-', $var_string);
@names  = split(',', $var_names);

$string1 = join( '-', @string );
$string2 = join( ',', @names );

print "$string1n";
print "$string2n";

Rain-Drops-On-Roses-And-Whiskers-On-Kittens
Larry,David,Roger,Ken,Michael,Tom

sort [ SUBROUTINE ] LIST

#!/usr/bin/perl

# define an array
@foods = qw(pizza steak chicken burgers);
print "Before: @foodsn";

# sort this array
@foods = sort(@foods);
print "After: @foodsn";

Before: pizza steak chicken burgers
After: burgers chicken pizza steak

#!/usr/bin/perl

# define an array
@foods = qw(pizza steak chicken burgers);
print "Foods: @foodsn";

# Let's reset first index of all the arrays.
$[ = 1;

print "Food at @foods[1]: $foods[1]n";
print "Food at @foods[2]: $foods[2]n";

Foods: pizza steak chicken burgers
Food at @foods[1]: pizza
Food at @foods[2]: steak

#!/usr/bin/perl

@numbers = (1,3,(4,5,6));

print "numbers = @numbersn";

numbers = 1 3 4 5 6

#!/usr/bin/perl

@odd = (1,3,5);
@even = (2, 4, 6);

@numbers = (@odd, @even);

print "numbers = @numbersn";

numbers = 1 3 5 2 4 6

#!/usr/bin/perl

$var = (5,4,3,2,1)[4];

print "value of var = $varn"

value of var = 1

#!/usr/bin/perl

@list = (5,4,3,2,1)[1..3];

print "Value of list = @listn";

Value of list = 4 3 2

#!/usr/bin/perl

%data = ('John Paul', 45, 'Lisa', 30, 'Kumar', 40);

print "$data{'John Paul'} = $data{'John Paul'}n";
print "$data{'Lisa'} = $data{'Lisa'}n";
print "$data{'Kumar'} = $data{'Kumar'}n";

$data{'John Paul'} = 45
$data{'Lisa'} = 30
$data{'Kumar'} = 40

$data{'John Paul'} = 45;
$data{'Lisa'} = 30;
$data{'Kumar'} = 40;

%data = ('John Paul', 45, 'Lisa', 30, 'Kumar', 40);

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);

%data = (-JohnPaul => 45, -Lisa => 30, -Kumar => 40);

$val = %data{-JohnPaul}
$val = %data{-Lisa}

#!/usr/bin/perl

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);

print "$data{'John Paul'}n";
print "$data{'Lisa'}n";
print "$data{'Kumar'}n";

45
30
40

#!/uer/bin/perl


%data = (-JohnPaul => 45, -Lisa => 30, -Kumar => 40);

@array = @data{-JohnPaul, -Lisa};

print "Array : @arrayn";

Array : 45 30

keys %HASH

#!/usr/bin/perl 

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);

@names = keys %data;

print "$names[0]n";
print "$names[1]n";
print "$names[2]n";

Lisa
John Paul
Kumar

values %HASH

#!/usr/bin/perl 

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);

@ages = values %data;

print "$ages[0]n";
print "$ages[1]n";
print "$ages[2]n";

30
45
40

#!/usr/bin/perl

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);

if( exists($data{'Lisa'} ) ) {
   print "Lisa is $data{'Lisa'} years oldn";
} else {
   print "I don't know age of Lisan";
}

Lisa is 30 years old

#!/usr/bin/perl

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);

@keys = keys %data;
$size = @keys;
print "1 - Hash size:  is $sizen";

@values = values %data;
$size = @values;
print "2 - Hash size:  is $sizen";

1 - Hash size: is 3
2 - Hash size: is 3

#!/usr/bin/perl

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);
@keys = keys %data;
$size = @keys;
print "1 - Hash size:  is $sizen";

# adding an element to the hash;
$data{'Ali'} = 55;
@keys = keys %data;
$size = @keys;
print "2 - Hash size:  is $sizen";

# delete the same element from the hash;
delete $data{'Ali'};
@keys = keys %data;
$size = @keys;
print "3 - Hash size:  is $sizen";

1 - Hash size: is 3
2 - Hash size: is 4
3 - Hash size: is 3

Exp1 ? Exp2 : Exp3;

#!/usr/local/bin/perl
 
$name = "Ali";
$age = 10;

$status = ($age > 60 )? "A senior citizen" : "Not a senior citizen";

print "$name is  - $statusn";

Ali is - Not a senior citizen

#!/usr/local/bin/perl
 
for( ; ; ) {
   printf "This loop will run forever.n";
}

left	terms and list operators (leftward)
left	->
nonassoc	++ --
right	**
right	! ~  and unary + and -
left	=~ !~
left	* / % x
left	+ - .
left	<< >>
nonassoc	named unary operators
nonassoc	< > <= >= lt gt le ge
nonassoc	== != <=> eq ne cmp ~~
left	&
left	| ^
left	&&
left	|| //
nonassoc	..  ...
right	?:
right	= += -= *= etc.
left	, =>
nonassoc	list operators (rightward)
right	not
left	and
left	or xor

sec,     # seconds of minutes from 0 to 61
min,     # minutes of hour from 0 to 59
hour,    # hours of day from 0 to 24
mday,    # day of month from 1 to 31
mon,     # month of year from 0 to 11
year,    # year since 1900
wday,    # days since sunday
yday,    # days since January 1st
isdst    # hours of daylight savings time

#!/usr/local/bin/perl
 
@months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
@days = qw(Sun Mon Tue Wed Thu Fri Sat Sun);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
print "$mday $months[$mon] $days[$wday]n";

16 Feb Sat

#!/usr/local/bin/perl
 
$datestring = localtime();
print "Local date and time $datestringn";

Local date and time Sat Feb 16 06:50:45 2013

#!/usr/local/bin/perl

$datestring = gmtime();
print "GMT date and time $datestringn";

GMT date and time Sat Feb 16 13:50:45 2013

#!/usr/local/bin/perl
 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

printf("Time Format - HH:MM:SSn");
printf("%02d:%02d:%02d", $hour, $min, $sec);

Time Format - HH:MM:SS
06:58:52

#!/usr/local/bin/perl
 
$epoc = time();

print "Number of seconds since Jan 1, 1970 - $epocn";

Number of seconds since Jan 1, 1970 - 1361022130

#!/usr/local/bin/perl

$datestring = localtime();
print "Current date and time $datestringn";

$epoc = time();
$epoc = $epoc - 24 * 60 * 60;   # one day before of current date.

$datestring = localtime($epoc);
print "Yesterday's date and time $datestringn";

Current date and time Tue Jun  5 05:54:43 2018
Yesterday's date and time Mon Jun  4 05:54:43 2018

#!/usr/local/bin/perl
use POSIX qw(strftime);

$datestring = strftime "%a %b %e %H:%M:%S %Y", localtime;
printf("date and time - $datestringn");

# or for GMT formatted appropriately for your locale:
$datestring = strftime "%a %b %e %H:%M:%S %Y", gmtime;
printf("date and time - $datestringn");

date and time - Sat Feb 16 07:10:23 2013
date and time - Sat Feb 16 14:10:23 2013

sub subroutine_name {
   body of the subroutine
}

subroutine_name( list of arguments );

&subroutine_name( list of arguments );

#!/usr/bin/perl

# Function definition
sub Hello {
   print "Hello, World!n";
}

# Function call
Hello();

Hello, World!

#!/usr/bin/perl

# Function definition
sub Average {
   # get total number of arguments passed.
   $n = scalar(@_);
   $sum = 0;

   foreach $item (@_) {
      $sum += $item;
   }
   $average = $sum / $n;

   print "Average for the given numbers : $averagen";
}

# Function call
Average(10, 20, 30);

Average for the given numbers : 20

#!/usr/bin/perl

# Function definition
sub PrintList {
   my @list = @_;
   print "Given list is @listn";
}
$a = 10;
@b = (1, 2, 3, 4);

# Function call with list parameter
PrintList($a, @b);

Given list is 10 1 2 3 4

#!/usr/bin/perl

# Function definition
sub PrintHash {
   my (%hash) = @_;

   foreach my $key ( keys %hash ) {
      my $value = $hash{$key};
      print "$key : $valuen";
   }
}
%hash = ('name' => 'Tom', 'age' => 19);

# Function call with hash parameter
PrintHash(%hash);

name : Tom
age : 19

#!/usr/bin/perl

# Function definition
sub Average {
   # get total number of arguments passed.
   $n = scalar(@_);
   $sum = 0;

   foreach $item (@_) {
      $sum += $item;
   }
   $average = $sum / $n;

   return $average;
}

# Function call
$num = Average(10, 20, 30);
print "Average for the given numbers : $numn";

Average for the given numbers : 20

sub somefunc {
   my $variable; # $variable is invisible outside somefunc()
   my ($another, @an_array, %a_hash); # declaring many variables at once
}

#!/usr/bin/perl

# Global variable
$string = "Hello, World!";

# Function definition
sub PrintHello {
   # Private variable for PrintHello function
   my $string;
   $string = "Hello, Perl!";
   print "Inside the function $stringn";
}
# Function call
PrintHello();
print "Outside the function $stringn";

Inside the function Hello, Perl!
Outside the function Hello, World!

#!/usr/bin/perl

# Global variable
$string = "Hello, World!";

sub PrintHello {
   # Private variable for PrintHello function
   local $string;
   $string = "Hello, Perl!";
   PrintMe();
   print "Inside the function PrintHello $stringn";
}
sub PrintMe {
   print "Inside the function PrintMe $stringn";
}

# Function call
PrintHello();
print "Outside the function $stringn";

Inside the function PrintMe Hello, Perl!
Inside the function PrintHello Hello, Perl!
Outside the function Hello, World!

#!/usr/bin/perl

use feature 'state';

sub PrintCount {
   state $count = 0; # initial value

   print "Value of counter is $countn";
   $count++;
}

for (1..5) {
   PrintCount();
}

Value of counter is 0
Value of counter is 1
Value of counter is 2
Value of counter is 3
Value of counter is 4

#!/usr/bin/perl

{
   my $count = 0; # initial value

   sub PrintCount {
      print "Value of counter is $countn";
      $count++;
   }
}

for (1..5) {
   PrintCount();
}

my $datestring = localtime( time );

($sec,$min,$hour,$mday,$mon, $year,$wday,$yday,$isdst) = localtime(time);

$scalarref = $foo;
$arrayref  = @ARGV;
$hashref   = %ENV;
$coderef   = &handler;
$globref   = *foo;

 $arrayref = [1, 2, ['a', 'b', 'c']];

$hashref = {
   'Adam'  => 'Eve',
   'Clyde' => 'Bonnie',
};

$coderef = sub { print "Boink!n" };

#!/usr/bin/perl

$var = 10;

# Now $r has reference to $var scalar.
$r = $var;

# Print value available at the location stored in $r.
print "Value of $var is : ", $$r, "n";

@var = (1, 2, 3);
# Now $r has reference to @var array.
$r = @var;
# Print values available at the location stored in $r.
print "Value of @var is : ",  @$r, "n";

%var = ('key1' => 10, 'key2' => 20);
# Now $r has reference to %var hash.
$r = %var;
# Print values available at the location stored in $r.
print "Value of %var is : ", %$r, "n";

Value of 10 is : 10
Value of 1 2 3 is : 123
Value of %var is : key220key110

SCALAR
ARRAY
HASH
CODE
GLOB
REF

#!/usr/bin/perl

$var = 10;
$r = $var;
print "Reference type in r : ", ref($r), "n";

@var = (1, 2, 3);
$r = @var;
print "Reference type in r : ", ref($r), "n";

%var = ('key1' => 10, 'key2' => 20);
$r = %var;
print "Reference type in r : ", ref($r), "n";

Reference type in r : SCALAR
Reference type in r : ARRAY
Reference type in r : HASH

#!/usr/bin/perl

 my $foo = 100;
 $foo = $foo;
 
 print "Value of foo is : ", $$foo, "n";

Value of foo is : REF(0x9aae38)

#!/usr/bin/perl

# Function definition
sub PrintHash {
   my (%hash) = @_;
   
   foreach $item (%hash) {
      print "Item : $itemn";
   }
}
%hash = ('name' => 'Tom', 'age' => 19);

# Create a reference to above function.
$cref = &PrintHash;

# Function call using reference.
&$cref(%hash);

Item : name
Item : Tom
Item : age
Item : 19

format FormatName =
fieldline
value_one, value_two, value_three
fieldline
value_one, value_two
.

@<<<<

@>>>> right-justified
@|||| centered
@####.## numeric field holder
@* multiline field holder

format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<< 
$name $age
@#####.##
$salary
===================================
.

write EMPLOYEE;