Как установить perl на windows 10

Prerequisite: Introduction to Perl

Before, we start with the process of Installing Perl on our System, whether it be Windows, Linux or Macintosh. We must have first-hand knowledge of What the Perl Language is and what it actually does?. Perl is a general purpose, high level interpreted and dynamic programming language. Perl was originally developed for the text processing like extracting the required information from a specified text file and for converting the text file into a different form. Perl supports both the procedural and Object-Oriented programming. Perl is a lot similar to C syntactically and is easy for the users who have knowledge of C, C++.

Perl programs can be written on any plain text editor like notepad, notepad++, or anything of that sort. One can also use an online IDE for writing Perl codes or can even install one on their system to make it more feasible to write these codes. Using an IDE makes it easier to write Perl codes because IDEs provides a lot of features like intuitive code editor, debugger, compiler, etc.
To begin with, writing Perl Codes and performing various intriguing and useful operations, one must have Perl installed on their System. This can be done by following the step by step instructions provided below:

Checking for a preinstalled Perl version:

Before we begin with the installation of Perl, it is good to check if it might be already installed on your System, because many software applications nowadays require Perl to perform their operations, hence a version of Perl might be included in the software’s installation package and hence there is no need to redownload and install the Perl when it already exists. Many Linux systems have Perl preinstalled, also Macintosh provides a preinstalled Perl with their Systems.
To check if your device is preinstalled with Perl or not, just go to the Command line(For Windows, search for cmd in the Run dialog( + R), for Linux open the terminal using Ctrl+Alt+T, for MacOS use Control+Option+Shift+T)
Now run the following command:

perl -v

If Perl is already installed, it will generate a message with all the details of the Perl’s version available, otherwise if Perl is not installed then an error will arise stating Bad command or file name

Downloading and Installing Perl:

Downloading Perl:
Before starting with the installation process, you need to download it. For that, all versions of Perl for Windows, Linux, and MacOS are available on perl.org

Download the Perl and follow the further instructions for installation of Perl.

Beginning with the Installation:

After completing the Installation process, any IDE or text editor can be used to write Perl Codes and Run them on the IDE or the Command prompt with the use of command:

perl file.pl

Here’s a sample Program to begin with the use of Perl Programming: Hello World Program in Perl

Prerequisite: Introduction to Perl

Before, we start with the process of Installing Perl on our System, whether it be Windows, Linux or Macintosh. We must have first-hand knowledge of What the Perl Language is and what it actually does?. Perl is a general purpose, high level interpreted and dynamic programming language. Perl was originally developed for the text processing like extracting the required information from a specified text file and for converting the text file into a different form. Perl supports both the procedural and Object-Oriented programming. Perl is a lot similar to C syntactically and is easy for the users who have knowledge of C, C++.

Perl programs can be written on any plain text editor like notepad, notepad++, or anything of that sort. One can also use an online IDE for writing Perl codes or can even install one on their system to make it more feasible to write these codes. Using an IDE makes it easier to write Perl codes because IDEs provides a lot of features like intuitive code editor, debugger, compiler, etc.
To begin with, writing Perl Codes and performing various intriguing and useful operations, one must have Perl installed on their System. This can be done by following the step by step instructions provided below:

Checking for a preinstalled Perl version:

Before we begin with the installation of Perl, it is good to check if it might be already installed on your System, because many software applications nowadays require Perl to perform their operations, hence a version of Perl might be included in the software’s installation package and hence there is no need to redownload and install the Perl when it already exists. Many Linux systems have Perl preinstalled, also Macintosh provides a preinstalled Perl with their Systems.
To check if your device is preinstalled with Perl or not, just go to the Command line(For Windows, search for cmd in the Run dialog( + R), for Linux open the terminal using Ctrl+Alt+T, for MacOS use Control+Option+Shift+T)
Now run the following command:

perl -v

If Perl is already installed, it will generate a message with all the details of the Perl’s version available, otherwise if Perl is not installed then an error will arise stating Bad command or file name

Downloading and Installing Perl:

Downloading Perl:
Before starting with the installation process, you need to download it. For that, all versions of Perl for Windows, Linux, and MacOS are available on perl.org

Download the Perl and follow the further instructions for installation of Perl.

Beginning with the Installation:

After completing the Installation process, any IDE or text editor can be used to write Perl Codes and Run them on the IDE or the Command prompt with the use of command:

perl file.pl

Here’s a sample Program to begin with the use of Perl Programming: Hello World Program in Perl

Perl programs can be written on any plain text editor like notepad, notepad++, or anything of that sort. One can also use an online IDE for writing Perl codes or can even install one on their system to make it more feasible to write these codes. Using an IDE makes it easier to write Perl codes because IDEs provides a lot of features like intuitive code editor, debugger, compiler, etc.
To begin with, writing Perl Codes and performing various intriguing and useful operations, one must have Perl installed on their System. This can be done by following the step by step instructions provided below:

Checking for a preinstalled Perl version:

Before we begin with the installation of Perl, it is good to check if it might be already installed on your system, because many software applications nowadays require Perl to perform their operations, hence a version of Perl might be included in the software’s installation package and hence there is no need to redownload and install the Perl when it already exists.
To check if your device is preinstalled with Perl or not, just go to the Command line(For Windows, search for cmd in the Run dialog( + R).
Now run the following command:

perl -v

If Perl is already installed, it will generate a message with all the details of the Perl’s version available, otherwise if Perl is not installed then an error will arise stating Bad command or file name

Downloading and Installing Perl:

Downloading Perl:
Before starting with the installation process, you need to download it. For that, all versions of Perl for Windows are available on perl.org

Download the Perl and follow the further instructions for installation of Perl.

Beginning with the Installation:

After completing the installation process, any IDE or text editor can be used to write Perl Codes and Run them on the IDE or the Command prompt with the use of command:

perl file_name.pl

Here’s a sample Program to begin with the use of Perl Programming:
Let’s consider a simple Hello World Program.

Output:

Unix

Running Linux, Solaris, AIX, HPUX, or any other UNIX-like system?

Mac OS X

Windows

Windows does not have Perl installed by default.

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.

./firstprog		

Установите модули cpan минус

Модули — это набор кодов, которые используются для выполнения задач, выполняющих общие операции в нескольких программах. Если вы используете модули Perl, вам не нужно переписывать коды для выполнения той же операции. Perl может использовать такие внешние библиотеки кодов. Одна из лучших библиотек — это CPAN. Он означает «Комплексная сеть архивов Perl» и содержит огромное количество модулей Perl для использования. Это сообщество или сеть большого количества разработчиков, которые предоставляют такие модули. Установив поддержку модулей CPAN в свой модуль perl, вы можете использовать модули CPAN и упростить свою работу. Большинство модулей Perl написаны на Perl, некоторые используют XS (они написаны на C), поэтому требуется компилятор C (такую ​​настройку легко получить — не паникуйте.Модули могут зависеть от других модулей (почти всегда от CPAN) и не могут быть установлены без них (или без конкретной версии). Стоит внимательно прочитать документацию по опциям ниже. Многие модули в CPAN теперь требуют последней версии Perl (версия 5.8 или выше). Установите скрипт cpanminus для получения, распаковки, сборки и установки модулей из CPAN, чтобы упростить установку других модулей (вы будете благодарны нам позже). УстановитьPerl-модули App-cpanminus , в командной строке введите:

cpan App::cpanminus

cpan App :: cpanminus Убедитесь, что у вас есть интернет-соединение во время загрузки и установки модулей perl.

Теперь установите любой модуль:

cpan –i <Module_Name>.		

Давайте рассмотрим пример установки модуля File :: Data (это интерфейс для доступа к данным файла).

Переменная Perl

Теперь поговорим о переменных. Вы можете представить переменную как контейнер, который содержит одно или несколько значений. После определения имя переменной остается прежним, но значение или значения меняются снова и снова.

Существует 3 типа переменных:

Самые простые — это скаляры, и это наша тема сегодня

Скалярная переменная

Этот тип переменной содержит одно значение.

Его имя начинается со знака доллара и идентификатора Perl (это имя нашей переменной).

Соглашение об именовании

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

1. Все скалярные имена будут начинаться с символа $. Легко запомнить, что каждое имя стоит перед префиксом $. Думайте об этом как о скаляре.
2. Как и PHP. после первого символа $, который является специальным в Perl, допускаются буквенно-цифровые символы, то есть от a до z, от A до Z и от 0 до 9. Символ подчеркивания также допускается. Используйте подчеркивание, чтобы разделить имена переменных на два слова. `Но Первый символ не может быть числом««`
3. Даже если числа могут быть частью имени, они не могут прийти сразу после $. Это означает, что первый символ после $ будет либо алфавитом, либо подчеркиванием. Те, кто пришел из C / C ++ фона, должны сразу же увидеть сходство. Примеры

Пример Perl:

$var;
$Var32;
$vaRRR43;
$name_underscore_23;

Это, однако, не являются допустимыми именами скалярных переменных.

mohohoh                                              # $ character is missing 
$                                                    # must be at least one letter 
$47x                                           # second character must be a letter
$variable!                                 # you can't have a ! in a variable name

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

Два типа скалярных типов данных

1. чисел
2. Струны

Числа:

В этом типе скалярных данных мы можем указать:

• целые числа, просто это целые числа, как 2, 0, 534
• числа с плавающей точкой, это действительные числа, такие как 3,14, 6,74, 0,333

Примечание: в общем, интерпретатор Perl видит целые числа как числа с плавающей запятой. Например, если вы напишите 2 в своих программах, Perl увидит это как 2.0000

Целочисленные литералы:

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

Примеры Perl:

0;
-2542;
4865415484645          #this also can be written with underscores (for clarity) : 4_865_415_484_645

Как видите, ничего особенного. Но, поверьте мне, это самый распространенный тип скаляров. Они повсюду.

Литералы с плавающей точкой:

Он состоит из цифр, опционально минус, десятичной точки и экспоненты.

Примеры Perl:

3.14;
255.000;
3.6e20;                                  # it's 3.6 times 10 to the 20th
-3.6e20;                                 # same as above, but negative
-3.6e-20;                                #it's negative 3.6 times 10 to the -20th
-3.6E-20;                                #we also can use E – this means the same the lowercase version -3.6e-20

Восьмеричное, шестнадцатеричное и двоичное представление:

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

Примеры Perl:

255;                               # 255 in decimal notation
0377;                                   # 255 in octal notation
0xff;                                   # 255 in hexadecimal notation
0b11111111;                             # 255 in binary notation

Все эти значения для Perl означают одно и то же. Perl не хранит значения в том же формате. Он внутренне преобразует эти шестнадцатеричные, двоичные, восьмеричные в десятичные значения.

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

Давайте посмотрим на примеры:

$size=15;             # give $size value of 15
$y = -7.78;           # give $y value of -7.78

Более того, вы можете поместить в переменную не только число, но и выражение.

$z = 6 + 12               # give $z value of 18

Струны

Строки: Это также очень простой тип скаляров.

Максимальная длина строки в Perl зависит от объема памяти компьютера. Нет ограничений на размер строки, любое количество символов, символов или слов может составлять ваши строки. Самая короткая строка не имеет символов. Самый длинный может заполнить всю системную память. Программы на Perl могут быть написаны полностью в 7-битном наборе символов ASCII. Perl также позволяет вам добавлять любой 8-битный или 16-битный набор символов, иначе. не-ASCII символы в строковых литералах. Perl также добавил поддержку Unicode UTF-8.

Как и числа, есть два разных типа строк:

• Строковые литералы в одинарных кавычках
• Строковые литералы в двойных кавычках

Строковые литералы в одинарных кавычках

Одиночные кавычки используются для включения данных, которые вы хотите воспринимать буквально. Короткий пример и все должно быть понятно:

Примеры Perl:

#!/usr/bin/perl 
$num = 7;
$txt = 'it is $num';
print $txt;

ВЫВОД:

это $ нум

Здесь из-за одинарных кавычек значение $ num не взято, и к значению $ txt добавляются буквенные символы ‘$’, ‘n’, ‘u’ & ‘m’

Строковые литералы в двойных кавычках

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

Примеры Perl:

$num = 7; 
$txt = "it is $num"; 
print $txt;

ВЫВОД:

это 7

Здесь из-за двойных кавычек взято значение $ num, добавленное к значению $ txt

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

Таинственный n

Рассмотрим следующую программу

Примеры Perl:

print "hello n";

Вывод:

Привет

Perl отображает не просто «привет n», а только «привет». Почему? Потому что ‘ n’ является специальным знаком и означает, что вы хотите перейти на новую строку при отображении текста в вашей программе. напечатайте «привет n новая строка»; Следующий вопрос — есть ли другие особые признаки? Да! Но не волнуйся — только немногие. Проверьте таблицу ниже

Я знаю, что «не мало»… Но поверьте, вы должны знать только

Строка Переменная

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

Примеры Perl:

$string = 'tutorial';                                      # give $string the eight-character string 'tutorial'
print $string;
$string = $size + 3 ;                                           # give $string the current value of $size plus 3
print $string;
$string = $ string * 5;                                         # multiplied $string by 5
print $string;

Вывод:

tutorial315

Как видите, вы можете поместить числа и строки в одни и те же переменные. Там нет класса переменных.

Конкатенация строк (период):

Оператор конкатенации «.» объединяет две или более строки Помните! Если строка содержит кавычки, возврат каретки, обратную косую черту, все эти специальные символы необходимо экранировать обратной косой чертой.

Perl » переменная Примеры:

#!/usr/bin/perl
$a = "Tom is";
$b = "favorite cat";
$c = $a ." mother's ". $b;
print $c;

Вывод:

Том любимый кот мамы

Струны

«$ a», «$ b» объединяются и сохраняются в «$ c» с использованием «.» оператор.

В конце…

Преобразование между числами и строками:

Как вы знаете, Perl автоматически конвертирует числа в строку при необходимости. Откуда Perl знает, что нам нужно сейчас? Это просто — все зависит от оператора (мы поговорим об операторах позже, а теперь просто примите, что есть много операторов, разных для чисел и строк). Если оператор ожидает число, Perl будет использовать значение как число. , Если оператор ожидает строку, Perl будет использовать значение в качестве строки. Другими словами, вам не нужно беспокоиться об этом виде преобразования. Краткий пример и все должно быть понятно:

Примеры Perl:

$string = "43";
$number = 28;
$result = $string + $number;
print $result;

Вывод:

71

значение $ string преобразуется в целое число и добавляется к значению $ number.

Результат сложения 71 присваивается $ result.

Область действия переменной — Access Modifiers

Мы можем объявить скаляр в любом месте программы. Но вам нужно указать модификатор доступа

Есть 3 типа модификаторов

1. мой
2. местный
3. наш

My: Используя это, вы можете объявить любую переменную, которая является специфической в ​​пределах блока. то есть в фигурных скобках.

#!/usr/bin/perl 
my $var=5;
if(1)
{ 
my $var_2 =$var;
}
print $var_2;

Нет выхода

На выходе программы ничего не будет!

В приведенном выше примере вы увидите, что объявлены две переменные: одна находится внутри блока if ($ var_2), а другая — вне блока If ($ var). Переменная, объявленная вне блока, будет доступна для блока if, но переменная, объявленная внутри блока, не будет доступна для внешней программы.

Локальный: Используя это, мы можем фактически замаскировать одни и те же значения переменных на разные значения без фактического изменения исходного значения переменной. Предположим, у нас есть переменная $ a, для которой назначено значение 5, вы можете фактически изменить значение этой переменной с помощью повторное объявление той же переменной с использованием локального ключевого слова без изменения исходного значения переменной, равного 5. Давайте посмотрим, как это работает на примере.

#!/usr/bin/perl
$var = 5;
{
local $var = 3;
print "local,$var = $var n";
}
print "global,$var = $var n";

Вывод вышеупомянутой программы будет таким образом.

местный, $ var = 3

глобальный, $ var = 5

Таким образом, мы можем изменить значение переменной, не влияя на исходное значение.

Our: После того, как переменная объявлена ​​с модификатором доступа «our», она может использоваться во всем пакете. Предположим, у вас есть модуль Perl или пакет test.pm, переменная которого объявлена ​​с областью действия our. Эта переменная может быть доступна в любых скриптах, которые будут использовать этот пакет.

Если вы серьезно относитесь к программированию на Perl, вы должны начать свою программу с

#! / USR / местные / бен / Perl

использовать строгое;

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

Это хорошая практика программирования

#!/usr/local/bin/perl
use strict;
$var = 10;
print "$var";

Результат: ошибка

#!/usr/local/bin/perl
use strict;
my $var = 10;
print "$var";

Вывод:

10

Perl Array

Что такое Perl Array?

Массив — это специальный тип переменной, который хранит данные в форме списка; Доступ к каждому элементу можно получить с помощью номера индекса, который будет уникальным для каждого элемента. Вы можете хранить числа, строки, плавающие значения и т. Д. В вашем массиве. Это выглядит великолепно, так как же нам создать массив в Perl? В Perl вы можете определить массив, используя символ ‘@’, за которым следует имя, которое вы хотите дать. Давайте рассмотрим определение массива в Perl.

мой @array;

Вот как мы определяем массив в Perl; Вы можете подумать, как нам нужно хранить данные в нем. Существуют разные способы хранения данных в массиве. Это зависит от того, как вы собираетесь его использовать.

my @array=(a,b,c,d);
print @array;

Вывод:

ABCD

Это массив с 4 элементами.

Индекс массива начинается с 0 и заканчивается до его максимального объявленного размера, в этом случае максимальный размер индекса равен 3.

Вы также можете объявить массив вышеуказанным способом; единственное отличие состоит в том, что он сохраняет данные в массив, считая пробел в качестве разделителя. Здесь qw () означает слово кавычки. Значение этой функции заключается в создании списка слов. Вы можете использовать qw несколькими способами для объявления массива.

@array1=qw/a b c d/;
@array2= qw' p q r s'; 
@array3=qw { v x y z};
print @array1;
print @array2;
print @array3;

Вывод:

abcdpqrsvxyz

Предположим, вы хотите присвоить значение 5- ^му элементу массива, как мы собираемся это сделать.

$ array [4] = ‘e’;

Последовательный массив

Последовательные массивы — это те, где вы храните данные последовательно. Предположим, вы хотите хранить 1-10 цифр или алфавитов az в массиве. Вместо того, чтобы вводить все буквы, вы можете попробовать что-то вроде ниже —

@numbers= (1..10);
print @numbers;                   #Prints numbers from 1 to 10;

Вывод:

12345678910

Размер массива Perl

У нас есть массив, который уже доступен, и вы не знаете, каков размер этого массива, и как это можно найти.

@array= qw/a b c d e/;
print $size=scalar (@array);

Можем ли мы получить размер массива без использования функций? Да мы можем.

@array= qw/a b c d e/;
print $size=scalar (@array);
print "n";
print $size=$#array + 1;                           # $#array will print the Max Index of the array, which is 5 in this case

Вывод:

5

5

Динамический Массив

Вышеуказанный метод объявления массива называется статическим массивом , где вы знаете размер массива.

Что такое динамический массив?

Динамические массивы — это те, которые вы объявляете, не указывая для них никакого значения. Итак, когда именно мы сохраняем значения в этом массиве? Просто, мы храним их во время выполнения. Вот простая программа для этого.

Для этой задачи мы будем использовать некоторые встроенные функции Perl.

my $string="This is a kind of dynamic array";
my @array;
@array=split('a',$string);
foreach(@array)
{
print "$_ n”;
# This is a special variable which stores the current value.
}

Вывод:

Это

вид дина

микрофон

р-р

Y

Функция split разделяет содержимое строки на массив на основе предоставленного ей разделителя. Эта функция также удалит разделитель из строки, в данном случае это ‘a’;

Push, Pop, shift, unshift для массивов Perl:

Эти функции могут использоваться в Perl для добавления / удаления элементов массива.

• Perl Push: добавляет элемент массива в конец существующего массива.
• Perl Pop: удаляет последний элемент из массива.
• Perl Shift: удаляет первый элемент из массива.
• Perl Unshift: добавляет элемент в начале массива.

Давайте посмотрим на пример, где мы можем использовать следующие функции.

@days = ("Mon","Tue","Wed");
print "1st : @daysn";
push(@days, "Thu");                                             # adds one element at the end of an array
print "2nd when push : @daysn";
unshift(@days, "Fri");                                          # adds one element at the beginning of an array
print "3rd when unshift : @daysn";
pop(@days);
print "4th when pop : @daysn";                                 # remove one element from the last of an array.
shift(@days);                                                   # remove one element from the beginning of an array.
print "5th when shift : @daysn";

Вывод:

1-е: пн вт ср

2-й, когда толчок: пн вт ср чт

3-й в нерабочее время: пт пн вт ср чт

Четвертый, когда поп: пт пн вт ср

5-е, когда смена: пн вт ср

Perl Hashes

Зачем нам хэш?

Мы уже узнали о скалярах и массивах в предыдущих разделах.

Что именно скаляры делают? Он хранит только целые числа и строки.

Что именно делают массивы? Это коллекция скаляров, где вы получаете доступ к каждому элементу массива с помощью индексов. Но разве это хорошая идея использовать массив, когда у вас есть сотни и тысячи записей? Мы забудем, какой индекс имеет какое значение. Чтобы преодолеть эту ситуацию, у нас есть что-то вроде perl hash.

Что такое хеши?

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

Рассмотрим пример трех человек и их возраст представлен в массиве.

@array=('Sainath',23,'Krishna',24,'Shruthi',25);        #This is how an array looks.
print @array;

Вывод:

Sainath33Krishna24Shruthi25

Таким образом, трудно узнать индивидуальный возраст, так как нам нужно помнить оба указательных местоположения имени и возраста всех людей. Это может быть просто, когда у вас есть 3 имени, но когда у вас есть 1000 или больше? Ты знаешь ответ.

Это мы можем преодолеть с помощью хэша.

Пример хеширования:

print %hash=( 'Sainath' => 23, 'Krishna' => 24, 'Shruthi' => 25); # This is how we create a hash.
print %hash=('Sainath',23,'Krishna',24,'Shruthi',25);# This way of assigning is called list.

Вывод:

Sainath33Krishna24Shruthi25Sainath33Krishna24Shruthi25

Теперь мы объявили хеш, отлично !! Но как нам получить к нему доступ или распечатать? Каждый элемент в хэше должен быть доступен с соответствующим ключом, для которого будет назначено значение. Таким образом, существует одно-одно соответствие между каждым ключом и значением в хэше.

Чтобы напечатать возраст любого человека, вам просто нужно запомнить имя этого человека.

print $hash{'Krishna'};          # This how we should access a hash. Key enclosed within {}.

Возможно, вы задались вопросом, почему я использовал $ hash {KeyName}, помните, что хеш — это снова коллекция скаляров. Таким образом, мы можем использовать $, который представляет скаляр для доступа к каждому хеш-элементу.

Примечание: каждый ключ в хэше должен быть уникальным, иначе он переопределит ваше значение, которое было присвоено ранее.

Как мы можем присвоить хеш другому хешу? Простой, так же, как мы делаем для

Мы также можем напечатать весь хэш.

%hash=( 'Tom' => 23);
%newHash=%hash; # Assigning hash to a new hashprint %newHash; 
print %newHash;

Вывод:

Tom23

Добавить Perl Hashes

Как видите, у нас уже есть хеш% newHash, и теперь нам нужно добавить в него больше записей.

$newHash{'Jim'}=25;
$newHash{'John'}=26;
$newHash{'Harry'}=27;
print %newHash;

Вывод:

Jim25John26Harry27

Perl Delete key

Вы можете удалить запись из хэша. Вот как мы можем это сделать.

delete $newHash{'Jim'};#This will delete an entry from the hash.

Delete — это встроенная функция Perl. Здесь мы увидим пример присвоения хеша массиву.

@array=%newHash;
print "@array";

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

Мы можем назначить только ключи или значения хеша массиву.

@arraykeys= keys(%newHash);
@arrayvalues=values(%newHash);
print "@arraykeysn";
print "@arrayvaluesn";    # n to print new line.		

Чтобы удалить все записи в хэше, мы можем напрямую присвоить хешу значение null.

% newHash = (); # Это переопределит хеш без записей.

Perl Условные заявления

Мы можем использовать условные выражения в Perl. Итак, каковы условные заявления? Условные операторы — это те, в которых вы на самом деле проверяете соответствие некоторых обстоятельств вашему коду.

Вспомните пример: вы покупаете фрукты и вам не нравится, когда цена превышает 100 баксов. Итак, правило здесь составляет 100 баксов.

Perl поддерживает два типа условных операторов; они, если и если.

Perl If

Если блок кода будет выполнен, когда условие истинно.

my $a=5;
if($a==5)
{
   print "The value is $a";
}

Вывод:

5

Perl If Else

Это выглядит хорошо. Давайте подумаем о ситуации, когда $ a не равно 5.

my $a=10;
if($a==5)
{
    print "The values is $a ---PASS";
}
else
{
    print "The value is $a ---FAIL";
}

Вывод:

Значение 10 — FAIL

Таким образом, мы можем контролировать только одно условие одновременно. Это ограничение? Нет, вы также можете контролировать различные условия, используя if … elsif … else.

Perl Else If

my $a=5;
if($a==6)
{
    print "Executed If block -- The value is $a";
}
elsif($a==5)
{
    print "Executed elsif block --The value is $a";
}
else
{
    print "Executed else block – The value is $a";
}

Вывод:

Выполнен блок elsif — значение 5

В вышеприведенном случае блок elsif будет выполнен, так как $ a равно 5.

Могут быть ситуации, когда блоки кода if и elsif будут неуспешными. В этом случае блок кода else будет выполнен. Вы можете на самом деле исключить проверку кода else, если не хотите включать.

Вложенный Perl If

В этом случае вы можете использовать блок кода еще в одном блоке кода.

my $a=11; #Change values to 11,2,5 and observe output
if($a<10){
  print "Inside 1st if block";
        if($a<5){
                print "Inside 2nd if block --- The value is $a";
        }
        else{
                print " Inside 2nd else block --- The value is $a";
        }
	}
	else{
        	print "Inside 1st else block – The value is $a";
    }

Output:

Inside 1st else block – The value is 11

Execute the same code by change the value of $a; you can find out the rest.

Perl Unless

You have already got an idea what if does (If the condition is true it will execute the code block). Unless is opposite to if, unless code block will be executed if the condition is false.

my $a=5;
unless($a==5)
{
   print "Inside the unless block --- The value is $a";
}
else
{
   print "Inside else block--- The value is $a";
}

Output:

Inside 1st else block – The value is 5

Guess what will be the output. You are right!!!!!. The output will be the print statement of the else block. Because of the condition in unless code block is true, remember unless block will be executed only if the condition is false. Change the value of $a and execute the code you will see the difference.

Perl Using if

$a= " This is Perl";
if($a eq "SASSDSS"){
print "Inside If Block";
}
else
{
print "Inside else block"
}

Output:

Inside else block

Using unless

$a= " This is Perl";
unless($a eq "SASSDSS"){
print "Inside unless Block";
}
else
{
print "Inside else block"
}

Output:

Inside unless Block

Perl Loops — Control Structures

Perl supports control structures similar to other programming languages. Perl supports four types of control structures for, foreach, while and until. We use these statements to, repeatedly execute some code.

For loop Perl

Блок кода будет выполняться до тех пор, пока условие не будет выполнено. Давайте рассмотрим пример того, как Perl зацикливает массив.

my @array=(1..10);
for(my $count=0;$count<10;$count++)
{
    print "The array index $count value is $array[$count]";
    print "n";
}

Вывод:

Значение индекса массива 0 равно 1

Значение индекса массива 1 равно 2

Значение индекса массива 2 равно 3

Значение индекса массива 3 равно 4

Значение индекса 4 массива равно 5

Значение индекса 5 массива равно 6

Значение индекса 6 массива равно 7

Значение индекса массива 7 равно 8

Значение индекса массива 8 равно 9

Значение индекса массива 9 равно 10

Здесь в выражении for () содержится много операторов. Для каждого из них есть смысл.

для (инициализация; условие; увеличение)

Вот еще один способ использования для.

for(1..10)
{
    print "$_ n";
    print "n";
}

Вывод:

1n

2n

3n

4n

5n

6n

7п

8л

9п

10n

Perl Foreach

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

Давайте возьмем тот же пример с perl perach.

my @array=(1..10);
foreach my $value (@array)
{  
	print " The value is $valuen";
}

Вывод:

Значение 1

Значение 2

Значение 3

Значение 4

Значение 5

Значение 6

Значение 7

Значение 8

Значение 9

Значение 10

Foreach берет каждый элемент массива и присваивает это значение переменной $ var для каждой итерации. Мы также можем использовать $ _ для того же.

my @array=(1..10);
foreach(@array)
{
    print " The value is $_ n"; # This is same as the above code.
}

Вывод:

Значение 1

Значение 2

Значение 3

Значение 4

Значение 5

Значение 6

Значение 7

Значение 8

Значение 9

Значение 10

Это выглядит хорошо для доступа к массивам. Как насчет хэшей, как мы можем получить хеш-ключи и значения, используя foreach?

Мы можем использовать foreach для доступа к ключам и значениям хеша, зациклив его.

my %hash=( 'Tom' => 23, 'Jerry' => 24, 'Mickey' => 25);
foreach my $key (keys %hash)
{
print "$key n";
}

Вывод:

Микки

Том

Джерри

Возможно, вам интересно, почему мы использовали ключи в foreach (). Keys — это встроенная функция Perl, где мы можем быстро получить доступ к ключам хеша. Как насчет ценностей? Мы можем использовать функцию values ​​для доступа к значениям хеша.

my %hash=( 'Tom' => 23, 'Jerry' => 24, 'Mickey' => 25);
foreach my $value(values %hash) # This will push each value of the key to $value
{
	 print " the value is $value n";
}

Вывод:

значение 24

значение 23

значение 25

Perl Пока

Цикл Perl while — это управляющая структура, в которой блок кода будет выполняться до тех пор, пока условие не станет истинным.

Блок кода выйдет, только если условие ложно.

Давайте рассмотрим пример цикла Perl While.

Вот проблема, которая потребует ввода от пользователя и не завершится, пока число не будет указано как «7».

#!/usr/bin/perl
$guru99 = 0;
$luckynum = 7;
print "Guess a Number Between 1 and 10n";
$guru99 = <STDIN>;
while ($guru99 != $luckynum)
{
	print "Guess a Number Between 1 and 10 n ";
	$guru99 = <STDIN>;
}
print "You guessed the lucky number 7"

Вывод:

Угадай число от 1 до 10

9

Угадай число от 1 до 10

5

Угадай число от 1 до 10

7

Ты угадал счастливое число 7

В приведенном выше примере условие while не будет истинным, если мы введем ввод, отличный от ‘7’.

Если вы видите, как здесь работает while, блок кода будет выполняться, только если условие в какое-то время выполнено.

Perl do-while

Цикл do while будет выполнен хотя бы один раз, даже если условие в секции while ложно.

Давайте возьмем тот же пример, используя do while.

$guru99 = 10;
 do {
 print "$guru99 n";
 $guru99--;
 } 
 while ($guru99 >= 1);
 print "Now value is less than 1";

Вывод:

10

9

8

7

6

5

4

3

2

1

Теперь значение меньше 1

Perl пока

До блока кода похож на, если только в условном выражении. Здесь блок кода будет выполняться только в том случае, если условие, пока блок не будет ложным.

Давайте возьмем тот же пример, который мы использовали в случае какое-то время.

Вот проблема, которая потребует ввода от пользователя и не завершится, пока имя не будет указано как «sai».

print "Enter any name n";
 my $name=<STDIN>;
 chomp($name);
 until($name ne 'sai')
 {
    print "Enter any name n";
    $name=<STDIN>;
    chomp($name);
 }

Вывод:

Введите любое имя Сай

Perl до-до:

Do, пока можно использовать только тогда, когда нам нужно условие, чтобы быть ложным, и оно должно быть выполнено, по крайней мере, один раз.

print "Enter any name n";
 my $name=<STDIN>;
 chomp($name);
 do
 {
     print "Enter any name n";
     $name=<STDIN>;
    chomp($name);
 }until($name ne 'sai');

Вывод:

Введите любое имя Говард

Введите любое имя Шелдон

Введите любое имя Сай

Выполните примеры кодов while, do-while, then и do-till, чтобы увидеть разницу.

Perl Operator

Что такое оператор?

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

Арифметические операторы:

Арифметические операторы — это операторы, которые могут использоваться для выполнения некоторых основных математических операций. Эти арифметические операторы являются бинарными операторами, где нам нужно два аргумента для выполнения базовой операции. Мы также можем использовать унарные операторы для других основных операций; Вы можете увидеть разницу в примерах ниже.

Пример выполнения всех вышеперечисленных операций.

my $x=10;
my $y=2;
my $z;
$z=$x+$y;
print ("Add of $x and $y is $z n");
$z=$x-$y;
print ("Sub of $x and $y is $z n");
$z=$x*$y;
print ("Mul of $x and $y is $z n");
$z=$x/$y;
print ("Div of $x and $y is $z n");
$z=$x**$y;
print ("Exp of $x and $y is $z n");
$z=$x%$y;
print ("Mod of $x and $y is $z n");

Вывод:

Добавить 10 и 2 12

Саб 10 и 2 8

Мул 10 и 2 20

Div 10 и 2 5

Эксп 10 и 2 это 100

Мод 10 и 2 0

Операторы присваивания:

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

Пример выполнения всех вышеперечисленных операций.

my $x=10;
$x+=5;
print("Add = $xn");
$x-=5;
print("Sub= $xn");
$x*=5;
print("Mul = $xn");
$x/=5;
print("Div = $xn");

Вывод:

Добавить = 15

Sub = 10

Мул = 50

Div = 10

Логические и реляционные операторы:

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

Давайте возьмем пример, где мы можем объяснить все сценарии.

my $x=5;
my $y=5;
if($x == $y){
print ("True -- equal $x and $y n");
}
else{
print ("False -- not equal $x and $yn");
}
$x=6;
$y=7;
if($x != $y){
print ("True -- not equal $x and $yn");
}
else{
print ("False -- equal $x and $yn");
}
if($y > $x){
print ("True -- $y greater than $xn");
}
else{
print ("False -- $y greater than $xn");
}
if($x < $y){
print ("True -- $x less than $yn");
}
else{
print ("False -- $x less than $yn");
}
if($x <= $y){
print ("True -- $x less than $yn");
}
else{
print ("False -- $x less than $yn");
}
if($y >= $x){
print ("True -- $y greater than $xn");
}
else{
print ("False -- $y greater than $xn");
}

Вывод:

True — равно 5 и 5

Правда — не равно 6 и 7

True — 7 больше 6

Правда — 6 меньше 7

Правда — 6 меньше 7

True — 7 больше 6

Вы можете увидеть примеры логических операторов в следующих разделах.

Perl Специальные Переменные

Что такое специальные переменные Perl?

Специальные переменные в Perl — это те, которые имеют предопределенное значение. Эти переменные обозначены реальными именами или символами пунктуации. У нас есть специальная переменная для всех переменных, поддерживаемых Perl, таких как скалярные специальные переменные, специальные переменные массива, специальные переменные хеша. Большинство специальных переменных, которые мы используем, являются скалярами.

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

Скалярные специальные переменные

Специальные переменные массива:

Хеш-переменные:

Примеры Perl:

my $str= "Hello World";
$str =~ /llo/;
print "$&n";    # this will hold string of the last successful pattern match
print "$'n";        #this will hold remaining string after patter match is done.
print "$`n";        #this will hold the string before the patter match.
$= "--";            #output record separator (Check output of print on output screen)
my $a =5;
my $b =6;
print "$a";
print "$b";
$="n";
my @array = qw(a b c d);
print "";
$"="-";              # output record separator arrays (Check output of print on output screen)
print "@array";

Вывод

LLO

Мир

Он

5—6—

ABCD

Perl регулярное выражение

Что такое регулярное выражение?

Регулярное выражение Perl достаточно сильное для сопоставления строковых шаблонов внутри операторов или группы операторов. Регулярные выражения в основном используются при разборе текста, сопоставлении с образцом и многом другом в зависимости от требований. У нас есть определенные операторы, которые специально используются для привязки шаблона регулярного выражения = ~ и! ~. Это операторы тестирования и присваивания.

Операторы регулярных выражений

• Perl Match — m //
• Perl Substitute — s ///
• Perl Transliterate — tr ///

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

Выше приведен набор символов, которые можно использовать во время сопоставления с образцом.

Давайте посмотрим несколько примеров.

Рассмотрим ситуацию, когда пользователь вводит некоторые данные во время выполнения скрипта, и мы хотим проверить, вводил ли пользователь какое-либо имя в качестве ввода или нет. Мы должны написать синтаксис регулярного выражения, чтобы извлечь ваше имя и напечатать его.

my $userinput="Guru99 Rocks";
if($userinput=~m/.*(Guru99).*/)
{
	print "Found Pattern";
}
else
{
	print "unable to find the pattern";
}

Вывод:

Найденный образец

Здесь мы записали регулярное выражение как /.*(Guru99).*/.* соответствует всем символам в строке. A ‘.’ в perl регулярное выражение соответствует любому символу, включая пробел.

Давайте посмотрим, как именно мы можем построить регулярное выражение.

Рассмотрим пример строки из нескольких слов, цифр и специальных символов, таких как «Привет всем, это мой номер: + 91-99298373639»;

Регулярное выражение: / ^ w + s w + s w + s w + s w + s w + : + d + — d + / i

Пространство слова Пространство слова Пространство слова Пространство слова Пространство слова Специальный символ: специальный символ пробела + специальный символ цифр — цифры.

Perl Match Операторы

Операторы соответствия используются для сопоставления строки в некотором операторе или в переменной.

my $var="Hello this is perl";
if($var=~m/perl/)
{
	print "true"; 
} 
else
{
	print "False"; 
}

Вывод:

правда

Этот небольшой код выведет «true», так как сопоставление с шаблоном perl идентифицирует строку в переменной. По сути, Perl ищет текст, предоставленный в // по всей строке, даже если он найдет в одном месте, он вернет ‘true’. Шаблон может быть где угодно в переменной. Мы можем попробовать заменить = ~ на! ~, Чтобы увидеть разницу между этими двумя операторами.

Оператор замещения Perl

Этот оператор можно использовать для поиска и замены любого символа на ноль или какой-либо другой символ.

my $a="Hello how are you";
$a=~s/hello/cello/gi;
print $a;

Вывод:

виолончель как дела

Примечание: мы можем фактически использовать любую строку сопоставления с образцом, как мы делали ранее в этом операторе подстановки. Здесь мы использовали ‘gi’, g-глобально, i-ignore case.

Оператор перевода Perl

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

my $a="Hello how are you";
$a=~tr/hello/cello/;
print $a;

Вывод:

Привет корова ты

Perl File I / O

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

По сути, файловые операции, выполняемые с Perl, выполняются с использованием FILEHANDLE. Мы должны определить этот FILEHANDLE во время открытия файла для чтения или записи.

В этом уроке вы узнаете

Perl Открыть файл

Мы можем открыть файл с помощью функции open (), доступной в Perl.

open(FILEHANDLE, "filename or complete path of the file");

Теперь мы открыли файл, теперь возникает вопрос. Это для чтения или письма?

Perl Read file и Perl Write file

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

Read – open(my $fh,"<filename or complete path of the file"); 
Write – open(my $fh,">filename or complete path of the file");
Append – open(my $fh,">>filename or complete path of the file");

Несколько примеров для чтения файла:

Представьте, что у нас есть файл perl с именем file.txt и в нем всего несколько строк текста. Нам нужно открыть этот файл и распечатать то же самое.

open(FH,"<file.txt"); 
while(<FH>)    # Looping the file contents using the FH as a filehandle. 
{
	print "$_";
}
close FH;

или

open(FH,"<file.txt"); 
my @content=<FH>; # specifying the input of the array is FH.
foreach(@content)
{
	print "$_";
}
close FH;

Это напечатает содержимое файла на экране вывода.

Теперь мы напишем программу для создания и записи данных в файл Perl.

open(FH,">test.txt");
my $var=<>;
print FH $var;
close FH;

Это запишет ввод, предоставленный во время выполнения, и создаст файл test.txt, который будет иметь ввод.

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

open(FH,">>test.txt");
my $var=<>;
print FH $var;
close FH;

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

Мы увидим еще несколько примеров и других функций, которые помогут лучше понять файлы.

Perl Tell

Этот метод будет возвращать текущую позицию FILEHANDLER в байтах, если он указан, иначе он будет рассматривать последнюю строку как позицию.

open(FH, "test.pl");
while(<FH>)
{
	$a=tell FH;
	print "$a";
}

Perl Seek

Функция поиска похожа на системный вызов fseek. Этот метод используется для позиционирования указателя файла в определенном месте путем указания байтов, за которыми следует либо начало указателя файла, либо конец указателя файла.

seek FH, bytes, WHENCE;

WHENCE — позиция указателя файла для запуска. Ноль будет устанавливать его с начала файла.

Пример. Пусть input.txt содержит данные типа «Привет, это мой мир».

open FH, '+<','input.txt';
seek FH, 5, 0;    # This will start reading data after 5 bytes.
$/ = undef;
$out = <FH>;
print $out;
close FH;

Вывод: это мой мир

Perl Unlink

Unlink используется для удаления файла.

unlink("filename or complete file path");

Обработка каталогов:

Мы также можем обрабатывать каталоги, через которые мы можем обрабатывать несколько файлов.

давайте посмотрим, как открыть каталог. Мы можем использовать методы opendir и readdir.

opendir(DIR,"C:\Program Files\"); #DIR is the directory handler.

while(readdir(DIR)) # loop through the output of readdir to print the directory contents.
{
   print "$_n";
}
closedir(DIR); #used to close the directory handler.

или

opendir(DIR,"C:\Program Files\");
@content=readdir(DIR);
foreach(@content)
{
	print "$_n";
}
closedir(DIR);

Это напечатает все доступные файлы в этом каталоге.

Тесты Perl-файлов и их значение

Perl подпрограмма

Что такое подпрограмма?

Подпрограммы аналогичны функциям в других языках программирования. Мы уже использовали некоторые встроенные функции, такие как print, chomp, chop и т. Д. Мы можем написать свои собственные подпрограммы на Perl. Эти подпрограммы могут быть записаны в любом месте программы; Желательно размещать подпрограммы либо в начале, либо в конце кода.

Пример подпрограмм

sub subroutine_name 
{
	Statements…;    # this is how typical subroutines look like.
}

Теперь, когда мы знаем, как написать подпрограмму, как мы получаем к ней доступ?

Нам нужно получить доступ к подпрограмме или вызвать ее, используя имя подпрограммы с префиксом «&».

sub display
{
	print "this is a subroutine";
}
display();    # This is how we call a subroutine

Передача параметров Perl и аргументов Perl

Подпрограммы или функции perl написаны для размещения в них повторно используемого кода. Большая часть кода многократного использования требует передачи параметров в подпрограмму. Здесь мы узнаем, как мы можем передавать аргументы в подпрограмму.

sub display
{		
	my $var=@_; # @_ is a special variable which stores the list of arguments passed.		
	print "$var is the value passed";		
}		
display(2,3,4);    #this is how we need to pass the arguments.

Вывод:

3 переданное значение

@_ — это специальная переменная массива, в которой хранятся аргументы, переданные подпрограммам.

Perl Shift

Мы также можем использовать ключевое слово ‘shift’, которое сдвигает один параметр за раз в переменную или $ _ [0], $ _ [1]…, которая является отдельным элементом массива @_

sub display
{		
my $var=shift;		
print "$var is passed";		
}		
display("hello");

Вывод:

привет пройден

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

Основная функция подпрограмм состоит в том, чтобы выполнить некоторую задачу и вернуть результат повторно используемого кода.

Мы можем вернуть значение из подпрограммы, используя ключевое слово return.

sub add
{
my $a=shift;
my $b=shift;
return($a+$b);
}
my $result=add(5,6);
print $result;

Вывод:

11

$ result будет содержать значение добавленных $ a и $ b.

Мы также можем передавать хэши и массивы непосредственно в подпрограмму.

sub hash
{
my %hash=@_;
print %hash;
}
%value= ( 1=>'a', 2=>'b');
&hash(%value);

Вывод:

1A2B

Мы также можем вернуть хеш или массив.

sub hashArray
{
my %hash=@_;
print "Inside Sub-routine";
print %hash;
return(%hash);
}
%hash=(1=>'a', 2=>'b');
my(@ret)=hashArray(%hash);
print "After Sub-routine call";
print @ret;

Вывод:

Внутри подпрограммы2b1aПосле подпрограммы call2b1a

Perl Format

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

printf "%05dn", 30;

Это будет включать ведущие нули перед числом 30, что делает общее количество цифр до 5. То же самое можно использовать для sprintf.

sprintf "%05dn", 30; # This will print the same as printf.

Используя printf и sprintf, мы можем получить большинство форматов Perl. В случае отчетов это будет трудно реализовать.

Пример отчета:

format FORMATNAME=FORMATLIST.

($name,$addr,$age,$phone)=("krishna","chennai","24","929309242"); 
write;
($name,$addr,$age,$phone)=("shruthi","chennai","24","929309232"); 
write; 
format STDOUT_TOP= 
=============================================================== 
NAME ADDRESS AGE PHONE 
===============================================================
 . 
format STDOUT= 
@<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<< @<<< @<<<<<<<<<< 
$name, $addr, $age, $phone 
.

open(REPORT,">test.txt"); 
($name,$addr,$age,$phone)=("krishna","chennai","24","929309232"); 
write REPORT; 
($name,$addr,$age,$phone)=("shruthi","chennai","24","929309232"); 
write REPORT; 
format REPORT_TOP= 
=============================================================== 
NAME ADDRESS AGE PHONE 
===============================================================
 . 
format REPORT= 
@<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<< @<<< @<<<<<<<<<< 
$name, $addr, $age, $phone

#!/usr/bin/perl –w

#######################################################################
Program to read the file content
# Date: 22-2-2013
# Author : Guru99
########################################################################
#!/usr/bin/perl 
use strict;
use warnings; 
my $line;
open FR, "file.txt" || die("Cannot open the file $!");
while ($line=<FR>) 
{   
	print $line;
} # Looping file handler to print data

open(FH,"<test.txt");

open(FH,"<test.txt") or die("File not exists $!"); # This will perl exit the program if the file not exists. 
open(FH,"<test.txt") or warn ("File not exists $!"); # This will print a warning message on STDERR

$a=5; 
$b=0; 
eval 
{ 
 '$result=$a/$b'; 
} 
if($@)
{
 print "$@";    # All the error codes returned by evals will get stored in $@. 
}

sub test 
{ 
die "Dieing in sub test n"; 
} 
eval 
{ 
test(); 
}; 
print "Caught : $@n";

try 
{ 
die "Die now"; 
} 
catch 
{ 
warn "caught error: $_"; # not $@ 
};

my $y;
try 
{ 
 die 'foo' 
}
finally 
{ 
    $y = 'bar' 
};

try 
{ 
    die 'Die now' 
} 
catch 
{ 
    warn "Returned from die: $_" 
} 
finally 
{ 
    $y = 'gone' 
};

try 
{ 
# statement 
} 
finally 
{ 
# statement 
};

try 
{ 
# statement 
} 
finally 
{ 
# statement 
} 
catch 
{ 
# statement 
};

$socket = IO::Socket::INET->new(PeerPort => 45787, 
PeerAddr => inet_ntoa(INADDR_BROADCAST), 
Proto => udp,LocalAddr => 
'localhost',Broadcast => 1 )
or 
die "Can't create socket and bind it : $@n";

use IO::Socket; 
use strict; 
use warnings; 
my $socket = new IO::Socket::INET ( 
LocalHost => 'localhost', 
LocalPort => '45655', 
Proto => 'tcp', 
Listen => 1, 
Reuse => 1, 
); 
die "Could not create socket: $!n" unless $socket; 
print "Waiting for the client to send datan"; 
my $new_socket = $socket->accept(); 
while(<$new_socket>) { 
print $_; 
} 
close($socket);

use strict; 
use warnings; 
use IO::Socket; 
my $socket = new IO::Socket::INET ( 
PeerAddr => 'localhost', 
PeerPort => '45655', 
Proto => 'tcp', 
); 
die "Could not create socket: $!n" unless $socket; 
print $socket "Hello this is socket connection!n"; 
close($socket);

#!/usr/bin/perl 
package Arithmetic; 
sub add 
{ 
my $a=$_[0]; 
my $b=$_[1]; 
return ($a+$b);
} 
sub subtract 
{ 
my $a=$_[0]; 
my $b=$_[1]; 
return ($a-$b); 
} 
1;

#!/usr/bin/perl
require
Arithmetic;
print Arithmetic::add(5,6);
print Arithmetic:: subtract (5,6);

#!/usr/bin/perl 
package Arithmetic; 
require Exporter; 
@ISA= qw(Exporter); # This is basically for implementing inheritance. 
@EXPORT = qw(add); 
@EXPORT_OK = qw(subtract); 
sub add 
{ 
my $a=$_[0]; 
my $b=$_[1]; 
return ($a+$b); 
} 
sub subtract 
{ 
my $a=$_[0]; 
my $b=$_[1]; 
return ($a-$b);
 } 
1;

#!/usr/bin/perl 
use 
Arithmetic qw(subtract); 
print add(5,6); 
print subtract (5,6);

#!/usr/bin/perl 
package Arithmetic; 
sub new 
{ 
my $class=shift;
my $self={}; 
bless $self, $class; 
return $self; 
} 
sub add 
{ 
my $self= shift; 
my $a=$_[0]; 
my $b=$_[1]; 
return ($a+$b); 
}
sub subtract 
{ 
my $self= shift; 
my $a=$_[0]; 
my $b=$_[1]; 
return ($a-$b); 
} 
1;

#!/usr/bin/perl
use Arithmetic;
my $obj= Arithmetic->new(); 
my $result= $obj->add(5,6); 
print "$result";
$result = $obj->subtract(6,5);
print "$result";

my $obj = lib::Math::Arithmetic->new();

perl –e "print @INC"

push(@INC, "PATH TO YOUR MODULE");

lib Arithmetic; # List here is your Perl Module location

use Net::SSH2;
use Net::Ping;
use strict;
use warnings;
my $ping = Net::Ping->new();    # Creating object for Net::Ping
my $SSHObj = Net::SSH2->new();  #Creating object for Net::SSH2
open( FH, "Input.txt" );        # Opening file and placing content to FH
my @hosts = <FH>;
my $ip;
my @ips;
foreach (@hosts)
{
    if ( $_ =~ /(.*)s+(w+)s+(.*)/ )    #Regex to get each info from file
    {
        $ip = $1;
        my $user = $2;
        my $password = $3;
        $SSHObj->connect($ip);
        print "Connecting to host -- $ip --Uname:$user --Password:$passwordn";
        my $status = $SSHObj->auth_password( $user, $password );
        print "$statusn";
        die("unable to establish connection to -- $ip") unless ($status);
        my $shell = $SSHObj->channel();
        print "$_n" while <$shell>;
        $shell->blocking(1);
        $shell->pty('tty');
        $shell->shell();
        sleep(5);
        #Executing the list of command on particular host. Can be any command
        print $shell "ls n";
        print "$_n" while <$shell>;
        print $shell "ps n";
        print "$_n" while <$shell>;
        print $shell "dir n";
        print "$_n" while <$shell>;
        print $shell "init 6n";    #rebooting the system
        push( @ips, $ip );
    }
}
sleep 600;
foreach (@ips)
{
    if ( $ping->ping($_) )
    {
        print "$_ is alive.n" if $ping->ping($_);
    }
    else
    {
        print "$_ is not still up --waiting for it to come upn";
    }
}