Учебник по Perl: что такое Perl?

 which perl 

в командной строке.

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

  #! /usr/local/bin/perl 
  print "Hello World! \ n"; 

Теперь сохраните вашу программу с расширением .pl. Давайте назовем это hello.pl. Из командной строки введите:

 perl hello.pl 

Затем вы должны увидеть следующий вывод:

 Hello World! 

Вы только что написали свою первую программу на Perl. Поздравляем!

литералы

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

• чисел
• Струны

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

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

переменные

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

• Скаляры Скалярные переменные содержат только одно значение, которое может быть числовым или строковым литералом. Имена скалярных переменных всегда начинаются со знака $.
• Массивы Переменная массива может содержать список или массив значений. Значения могут быть числами или строками. Значение ключа или индекса присваивается автоматически, а значения сохраняются в указанном порядке. Имена переменных массива начинаются со знака @.
• Ассоциативные массивы Ассоциативные массивы или хэши, как их еще называют, похожи на массивы. Но главное отличие в том, что вы, программист, назначаете ключ и значение хешу, а массив автоматически назначает ключ. Хэши не сохраняют введенные элементы в том же порядке, в котором они были введены. Хеш-переменные всегда начинаются со знака%.

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

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

 $var="my Scalar Variable"; 
  print "Это $ var"; 

          

            
        

Вывод приведенного выше кода будет таким: This is my Scalar Variable

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

 @array=('one','two','three'); 

Вышеупомянутый массив присваивает три значения в массив. Значения разделены запятыми. Первый индекс массива всегда равен 0, если вы не измените его специальной переменной $[ . Как правило, это не очень хорошая практика, потому что вы можете запутать людей, читающих ваш код. Чтобы прочитать значение, вы должны обратиться к имени массива и нижнему индексу, который вы хотите. Например, если бы мы хотели значение «два», мы бы сказали:

 print $array[1]; 

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

Хеши могут быть инициализированы аналогично массивам.

 %hash=('key1','value1','key2','value2','key3','value3'); 

Основное отличие состоит в том, что вы должны размещать значения в порядке значений ключей. Таким образом, первое введенное вами значение будет первым ключом; второе, ассоциированное значение; третий, второй ключ; и в-четвертых, значение, связанное с этим ключом. Процесс извлечения значения из хеша похож на массив, за исключением того, что вместо использования [ ] (квадратные скобки) мы будем использовать { } (фигурные скобки), а вместо номера индекса мы будем использовать ключ. Если бы мы хотели получить ‘value2’, мы бы использовали следующее:

 print $hash{'key2'}; 

Помните, что переменные Perl чувствительны к регистру, поэтому $ me, $ Me, $ mE и $ ME — это четыре отдельные переменные. Аналогично, если у вас есть скалярная переменная с именем $ me, массив с именем @me и хеш с именем% me, они будут интерпретироваться как три отдельные переменные, а не как одна и та же.

 $string1 = $string2; 

 $string1 . $string2 

 $string1 x 2; 

 @array = (1..50); 

 ($one,$two) = @array[4,5]; #remember that arrays start at subscript 0. 

 sub function1 {   CODE HERE   } 

 &function1; 

 $answer = &add(1,2); 

 sub function1 {   ($val1, $val2) = @_;   } 

 sub function1 {   $val1=$_[0];   $val2=$_[1];   } 

 sub function1 {   local($myvar)   } 

 if (condition) {   STATEMENTS   } 

 if (condition) {   STATEMENTS   } else {   STATEMENTS   } 

 if (condition){   STATEMENTS   } elsif (condition){   STATEMENTS   } else {   STATEMENTS   } 

 while (condition) {   STATEMENTS   } 

 do {   STATEMENTS   } while (condition); 

 until (condition) {   STATEMENTS   } 

 do {   STATEMENTS   } until (condition); 

 for (INITIALIZATION; CONDITION; INCREMENT/DECREMENT) {   STATEMENTS   } 

 foreach LOOP_VAR (ARRAY) {   STATEMENTS   } 

 open(FILEHANDLE,"filename"); 

 open(FILEHANDLE,"filename"); 

 open(FILEHANDLE,"<filename"); 

 open(FILEHANDLE,">filename"); 

 open(FILEHANDLE,">>filename"); 

 open(FILEHANDLE,"test.txt");   while(<FILEHANDLE>){   print "line: $_\n";   } 

 @entire_file = <FILEHANDLE>; # this will read in the entire                             # file into the array 

 $one_line = <FILEHANDLE>; # this will read one line into                          # the scalar variable. 

 print FILEHANDLE "This line will go into our output file"; 

 open(FILEHANDLE,"filename"); 
  binmode (FILEHANDLE); 

 close(FILEHANDLE); 

 File Test    Meaning   -r        File or directory is readable   -w        File or directory is writable   -x        File or directory is executable   -o        File or directory is owned by user   -e        File or directory exists   -z        File or directory exist and has zero size   -f        Entry is a plain file   -d        Entry is a directory   -T        File is "Text"   -B        File is "Binary" 

 open(FILEHANDLE,"text.txt");   if(-e FILEHANDLE) {   print "File exists.";   } 

 $filename = "/users/abc123/text.txt";   if(-e $filename){   print "File exists.";   } 

 chdir("/home/abc123"); 

 @files_found = </home/abc123/*>; 

 @files_found = </home/abc123/*.pl>; 

 opendir(DIRHANDLE,"/home/abc123"); 

 $filename = readdir(DIRHANDLE); #returns one filename 
  @filenames = readdir (DIRHANDLE);  # возвращает список имен файлов 

 closedir(DIRHANDLE); 

 m/PATTERN/OPTIONS 

 m!PATTERN!OPTIONS 

 OPTION DESCRIPTION  g    Match all possible patterns  i    Ignore case  m    Test string as multiple lines  o    Only evaluate once  s    Treat string as single line  x    Ignore white space in pattern 

 s/PATTERN/REPLACEMENT/OPTIONS 

 s/abc/xyz/ 

 OPTION DESCRIPTION  g    Change all occurrences of the pattern  i    Ignore case in pattern  e    Evaluate replacement strings as expression  m    Treat string to be matched as multiple lines  o    Evaluate only once  s    Treat string to be matched as single line  x    Ignore white space in pattern 

 tr/STRING1/STRING2/OPTIONS 

 tr/abc/def/ 

 tr/AZ/az/; 

 OPTION DESCRIPTION  c    Translate all characters not specified  d    Delete all specified characters  s    Replace multiple identical output characters       with a single character 

 $string =~ m/hello/; 

 m/abc+/ 

 m/a[bc]d/ 

 m/ab*/ 

 m/^The/ 

 m/end$/ 

 Sequence  Description                     Range Equiv.  \d      Any digit                       [0-9]  \D      Not a digit                     [^0-9]  \w      Any word character              [_0-9a-zA-Z]  \W      Anything not a word character   [^_0-0a-zA-Z]  \s      White space                     [ \r\n\r\f]  \S      Anything other than white space [^ \r\t\n\f] 

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

  FormatName представляет название формата.  Полевая линия - это конкретный способ форматирования данных.  Строки значений представляют значения, которые будут введены в строку поля.  Вы заканчиваете формат с одним периодом.

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

 @<<<< 
  Этот держатель поля выровнен по левому краю с пробелом 5. Вы должны посчитать знак @ и знак <, чтобы узнать количество пробелов в поле.  Другие владельцы поля включают в себя: 
  @>>>> Справедливо 
 @||||  в центре 
  @####.## держатель числового поля 
  @* многострочный держатель полей 
  Примером формата будет: 
 format EMPLOYEE =  ===================================  @<<<<<<<<<<<<<<<<<<<<<< @<<  $name $age  @#####.##  $salary  ===================================  . 
  Могут использоваться только скалярные переменные, но не массивы или хэши.  Чтобы вызвать это объявление формата, мы использовали бы ключевое слово write: 
 write EMPLOYEE; #send to the output 
  Проблема заключается в том, что именем формата обычно является имя дескриптора открытого файла, и оператор write отправит выходные данные в этот дескриптор файла.  Поскольку мы хотим, чтобы данные отправлялись в STDOUT, мы должны связать EMPLOYEE с дескриптором файла STDOUT.  Сначала, однако, мы должны убедиться, что STDOUT - наш дескриптор выбранного файла, используя функцию select (): 
 select(STDOUT); 
  Затем мы бы связали EMPLOYEE с STDOUT, установив имя нового формата с помощью STDOUT, используя специальную переменную $ ~: 
 $~ = "EMPLOYEE"; 
  Когда мы сейчас сделаем write (), данные будут отправлены в STDOUT.  Помните: если вы не установили STDOUT в качестве дескриптора файла по умолчанию, вы можете вернуться к исходному дескриптору файла, присвоив возвращаемое значение select скалярному значению и используя select вместе с этой скалярной переменной после специальной переменной присвоено имя формата, которое будет связано с STDOUT.