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

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

print "$name is  - $status\n";

Это даст следующий результат —

Ali is - Not a senior citizen

Perl — Петли

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

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

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

Язык программирования Perl предоставляет следующие типы циклов для обработки требований циклов.

Повторяет оператор или группу операторов, пока данное условие выполняется. Он проверяет условие перед выполнением тела цикла.

Повторяет оператор или группу операторов, пока данное условие не станет истинным. Он проверяет условие перед выполнением тела цикла.

Выполняет последовательность операторов несколько раз и сокращает код, который управляет переменной цикла.

Цикл foreach выполняет итерацию по обычному значению списка и устанавливает переменную VAR для каждого элемента списка по очереди.

Как оператор while, за исключением того, что он проверяет условие в конце тела цикла

Вы можете использовать один или несколько циклов внутри любого другого цикла while, for или do.. while.

Заявления о контроле цикла

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

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

Заставляет петлю пропускать оставшуюся часть своего тела и немедленно проверять свое состояние перед повторением.

Завершает оператор цикла и передает выполнение в оператор, следующий сразу за циклом.

Продолжение BLOCK, оно всегда выполняется непосредственно перед тем, как условная оценка собирается снова быть оценена.

Команда redo перезапускает блок цикла без повторной оценки условия. Блок продолжения, если он есть, не выполняется.

Perl поддерживает команду goto в трех формах: метка goto, выражение goto и goto & name.

Бесконечный цикл

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

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

Вы можете завершить описанный выше бесконечный цикл, нажав клавиши Ctrl + C.

Когда условное выражение отсутствует, оно считается истинным. Вы можете иметь инициализационное и инкрементное выражение, но программист чаще использует конструкцию for (;;) для обозначения бесконечного цикла.

Perl — Операторы

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

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

• Арифметические Операторы
• Операторы равенства
• Логические Операторы
• Операторы присваивания
• Битовые операторы
• Логические Операторы
• Операторы, подобные цитате
• Разные операторы

Давайте посмотрим на всех операторов по одному.

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

Предположим, что переменная $ a содержит 10, а переменная $ b содержит 20, а затем следующие арифметические операторы Perl:

Показать пример

+ (Дополнение)

Добавляет значения по обе стороны от оператора

Пример — $ a + $ b даст 30

— (вычитание)

Вычитает правый операнд из левого операнда

Пример — $ a — $ b даст -10

* (Умножение)

Умножает значения по обе стороны от оператора

Пример — $ a * $ b даст 200

/ (Отдел)

Делит левый операнд на правый операнд

Пример — $ b / $ a даст 2

% (Модуль)

Делит левый операнд на правый и возвращает остаток

Пример — $ b% $ a даст 0

** (экспонента)

Выполняет экспоненциальный (силовой) расчет по операторам

Пример — $ a ** $ b даст 10 степени 20

Perl операторы равенства

Они также называются реляционными операторами. Предположим, что переменная $ a содержит 10, а переменная $ b содержит 20, поэтому давайте проверим следующие операторы числового равенства:

Показать пример

== (равно)

Проверяет, равны ли значения двух операндов или нет, если да, тогда условие становится истинным.

Пример — ($ a == $ b) не соответствует действительности.

!= (Не равно)

Проверяет, равны ли значения двух операндов или нет, если значения не равны, тогда условие становится истинным.

Пример — ($ a! = $ B) верно.

<=>

Проверяет, равны ли значения двух операндов или нет, и возвращает -1, 0 или 1 в зависимости от того, числовой аргумент левого аргумента меньше, равен или больше правого аргумента.

Пример — ($ a <=> $ b) возвращает -1.

> (больше чем)

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

Пример — ($ a> $ b) не соответствует действительности.

<(меньше чем)

Проверяет, меньше ли значение левого операнда, чем значение правого операнда, если да, тогда условие становится истинным.

Пример — ($ a <$ b) верно.

> = (больше или равно)

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

Пример — ($ a> = $ b) не соответствует действительности.

<= (меньше или равно)

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

Пример — ($ a <= $ b) верно.

Ниже приведен список операторов акций. Предположим, что переменная $ a содержит «abc», а переменная $ b содержит «xyz», поэтому давайте проверим следующие операторы равенства строк:

Показать пример

л

Возвращает истину, если левый аргумент по строкам меньше правого аргумента.

Пример — ($ a lt $ b) верно.

GT

Возвращает true, если левый аргумент по строкам больше правого аргумента.

Пример — ($ a gt $ b) неверно.

ле

Возвращает истину, если левый аргумент по строкам меньше или равен правому аргументу.

Пример — ($ a le $ b) верно.

GE

Возвращает истину, если левый аргумент по строкам больше или равен правому аргументу.

Пример — ($ a ge $ b) неверно.

уравнение

Возвращает истину, если левый аргумент по строкам равен правому аргументу.

Пример — ($ a eq $ b) неверно.

Небраска

Возвращает true, если левый аргумент по строкам не равен правому аргументу.

Пример — ($ a ne $ b) верно.

CMP

Возвращает -1, 0 или 1 в зависимости от того, является ли левый аргумент по строкам меньше, равен или больше правого аргумента.

Пример — ($ a cmp $ b) равно -1.

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

Предположим, что переменная $ a содержит 10, а переменная $ b содержит 20, тогда ниже приведены операторы присваивания, доступные в Perl, и их использование —

Показать пример

знак равно

Простой оператор присваивания, присваивает значения от правых операндов к левому операнду

Пример — $ c = $ a + $ b присвоит значение $ a + $ b в $ c

+ =

Добавить оператор присваивания И, он добавляет правый операнд к левому операнду и присваивает результат левому операнду

Пример — $ c + = $ a эквивалентно $ c = $ c + $ a

знак равно

Вычитание И оператор присваивания, вычитает правый операнд из левого операнда и присваивает результат левому операнду

Пример — $ c — = $ a эквивалентно $ c = $ c — $ a

знак равно

Оператор присваивания умножения И, умножает правый операнд на левый операнд и присваивает результат левому операнду

Пример — $ c * = $ a эквивалентно $ c = $ c * $ a

знак равно

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

Пример — $ c / = $ a эквивалентно $ c = $ c / $ a

знак равно

Модуль и оператор присваивания, принимает модуль с использованием двух операндов и присваивает результат левому операнду

Пример — $ c% = $ a эквивалентно $ c = $ c% a

знак равно

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

Пример — $ c ** = $ a эквивалентно $ c = $ c ** $ a

Битовые операторы Perl

Побитовый оператор работает с битами и выполняет побитовую операцию. Предположим, если $ a = 60; и $ b = 13; Теперь в двоичном формате они будут выглядеть следующим образом —

$ a = 0011 1100

$ b = 0000 1101

——————

$ a & $ b = 0000 1100

$ a | $ b = 0011 1101

$ a ^ $ b = 0011 0001

~ $ a = 1100 0011

Существуют следующие побитовые операторы, поддерживаемые языком Perl, допустим, если $ a = 60; и $ b = 13

Показать пример

&

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

Пример — ($ a & $ b) даст 12, что равно 0000 1100

|

Оператор двоичного ИЛИ копирует немного, если он существует в другом операнде.

Пример — ($ a | $ b) даст 61, что равно 0011 1101

^

Двоичный оператор XOR копирует бит, если он установлен в одном операнде, но не в обоих.

Пример — ($ a ^ $ b) даст 49, что равно 0011 0001

~

Оператор дополнения двоичных единиц является унарным и имеет эффект «переворачивания» битов.

Пример — (~ $ a) даст -61, что равно 1100 0011 в форме дополнения 2 из-за двоичного числа со знаком.

<<

Двоичный оператор левого сдвига. Значение левого операнда перемещается влево на количество битов, указанное правым операндом.

Пример — $ a << 2 даст 240, что равно 1111 0000

>>

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

Пример — $ a >> 2 даст 15, что равно 0000 1111

Perl Logical Operators

В языке Perl поддерживаются следующие логические операторы. Предположим, что переменная $ a имеет значение true, а переменная $ b содержит значение false тогда —

Показать пример

а также

Называется логический оператор И. Если оба операнда имеют значение true, тогда условие становится истинным.

Пример — ($ a и $ b) неверно.

&&

Оператор логического И в стиле С немного копирует результат, если он существует в обоих операндах.

Пример — ($ a && $ b) неверно.

или же

Вызывается логическим оператором ИЛИ. Если любой из двух операндов не равен нулю, тогда условие становится истинным.

Пример — ($ a или $ b) верно.

||

Оператор логического ИЛИ в стиле С немного копирует, если он существует в другом операнде.

Пример — ($ a || $ b) верно.

не

Вызывается логическим оператором НЕ. Используйте для изменения логического состояния своего операнда. Если условие истинно, то оператор Логический НЕ будет делать ложь.

Пример — нет ($ a и $ b) верно.

Операторы, подобные цитате

Существуют следующие операторы типа «цитата», поддерживаемые языком Perl. В следующей таблице {} представляет любую пару разделителей, которую вы выберете.

Показать пример

q {}

Заключает строку в одинарные кавычки

Пример — q {abcd} дает ‘abcd’

qq {}

Заключает строку в двойные кавычки

Пример — qq {abcd} дает «abcd»

qx {}

Содержит строку с инвертированными кавычками

Пример — qx {abcd} дает `abcd`

Разные операторы

Существуют следующие разные операторы, поддерживаемые языком Perl. Предположим, что переменная a содержит 10, а переменная b содержит 20, тогда —

Показать пример

,

Двоичный оператор точка (.) Объединяет две строки.

Пример — если $ a = «abc», $ b = «def», то $ a. $ B выдаст «abcdef»

Икс

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

Пример — (‘-‘ x 3) даст —.

..

Оператор диапазона .. возвращает список значений, начиная с левого значения до правого значения

Пример — (2..5) даст (2, 3, 4, 5)

++

Оператор автоинкремента увеличивает целочисленное значение на единицу

Пример — $ a ++ даст 11

—

Оператор автоматического декремента уменьшает целочисленное значение на единицу

Пример — $ a— даст 9

->

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

Пример — $ obj -> $ a является примером доступа к переменной $ a из объекта $ obj.

Приоритет Perl-операторов

В следующей таблице перечислены все операторы от наивысшего приоритета к низшему.

Показать пример

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

Perl — дата и время

Эта глава даст вам базовое понимание того, как обрабатывать и манипулировать датами и временем в Perl.

Текущая дата и время

Давайте начнем с функции localtime () , которая возвращает значения для текущей даты и времени, если не задано никаких аргументов. Ниже приведен список из 9 элементов, возвращаемый функцией localtime при использовании в контексте списка:

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

Попробуйте в следующем примере напечатать различные элементы, возвращаемые функцией localtime () —

Live Demo

#!/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 $datestring\n";

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

#!/usr/local/bin/perl

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

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:SS\n");
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 - $epoc\n";

Number of seconds since Jan 1, 1970 - 1361022130

#!/usr/local/bin/perl

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

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

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

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 - $datestring\n");

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

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 : $average\n";
}

# 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 @list\n";
}
$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 : $value\n";
   }
}
%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 : $num\n";

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 $string\n";
}
# Function call
PrintHello();
print "Outside the function $string\n";

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 $string\n";
}
sub PrintMe {
   print "Inside the function PrintMe $string\n";
}

# Function call
PrintHello();
print "Outside the function $string\n";

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 $count\n";
   $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 $count\n";
      $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 : $item\n";
   }
}
%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;

select(STDOUT);

$~ = "EMPLOYEE";

#!/usr/bin/perl

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

select(STDOUT);
$~ = EMPLOYEE;

@n = ("Ali", "Raza", "Jaffer");
@a  = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);

$i = 0;
foreach (@n) {
   $name = $_;
   $age = $a[$i];
   $salary = $s[$i++];
   write;
}

===================================
Ali                     20
  2000.00
===================================
===================================
Raza                    30
  2500.00
===================================
===================================
Jaffer                  40
  4000.00
===================================

#!/usr/bin/perl

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

format EMPLOYEE_TOP =
===================================
Name                    Age
===================================
.

select(STDOUT);
$~ = EMPLOYEE;
$^ = EMPLOYEE_TOP;

@n = ("Ali", "Raza", "Jaffer");
@a  = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);

$i = 0;
foreach (@n) {
   $name = $_;
   $age = $a[$i];
   $salary = $s[$i++];
   write;
}

===================================
Name                    Age
===================================
===================================
Ali                     20
  2000.00
===================================
===================================
Raza                    30
  2500.00
===================================
===================================
Jaffer                  40
  4000.00
===================================

format EMPLOYEE_TOP =
===================================
Name                    Age Page @<
                                 $%
===================================                               
.

===================================
Name                    Age Page 1
===================================
===================================
Ali                     20
  2000.00
===================================
===================================
Raza                    30
  2500.00
===================================
===================================
Jaffer                  40
  4000.00
===================================

format EMPLOYEE_BOTTOM =
End of Page @<
            $%
.

open FILEHANDLE, EXPR
open FILEHANDLE

sysopen FILEHANDLE, FILENAME, MODE, PERMS
sysopen FILEHANDLE, FILENAME, MODE

open(DATA, "<file.txt");

#!/usr/bin/perl

open(DATA, "<file.txt") or die "Couldn't open file file.txt, $!";

while(<DATA>) {
   print "$_";
}

open(DATA, ">file.txt") or die "Couldn't open file file.txt, $!";

open(DATA, "+<file.txt"); or die "Couldn't open file file.txt, $!";

open DATA, "+>file.txt" or die "Couldn't open file file.txt, $!";

open(DATA,">>file.txt") || die "Couldn't open file file.txt, $!";

open(DATA,"+>>file.txt") || die "Couldn't open file file.txt, $!";

sysopen(DATA, "file.txt", O_RDWR);