Вывод в формате Perl

Автор：Eve Cole Время обновления：2025-01-03 12:00:02

Perl — очень мощный язык обработки текстовых данных.

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

Синтаксис определения форматирования Perl следующий:

 формат ФорматИмя =строка полязначение_один, значение_два, значение_тристрока полязначение_один, значение_два.

Анализ параметров:

FormatName : форматированное имя.

fieldline : строка формата, используемая для определения формата строки вывода, с такими символами, как @,^,,|.

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

. : символ завершения.

Ниже приведен простой пример форматирования:

Пример

#!/usr/bin/perl $text = " формат Google Codercto Taobao " ; STDOUT = first : ^<<<<< # Выровнено по левому краю, длина символов равна 6 $текст секунда : ^<<<<< # Выровнено по левому краю, длина символов равна 6 $текст третье : ^<<<< # Выравнивание по левому краю, длина символов 5, taobao, последняя буква "о" обрезается $ text.write

Выходной результат выполнения приведенного выше примера:

 первый: googleвторой: coderctoтретий: taoba

Синтаксис строки формата (графической строки)

Строки формата начинаются с @ или ^, и в этих строках не выполняется замена переменных.

Поля @ (не путать с символом массива @) — это обычные поля.

Длина <, >,| после @,^ определяет длину поля. Если переменная превышает определенную длину, она будет усечена.

<, >,| также обозначают выравнивание по левому краю, выравнивание по правому краю и выравнивание по центру соответственно.

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

Формат диапазона значений

Формат диапазона значений показан в следующей таблице:

Формат	Значение диапазона значений
@<<<	вывод с выравниванием по левому краю
@>>>	Выровненный по правому краю вывод
@\|\|\|	Выход с выравниванием по центру
@##.##	число фиксированной точности
@*	многострочный текст

Первый символ каждого поля значения является символом-заполнителем строки. При использовании символа @ форматирование текста не выполняется.

В приведенной выше таблице, за исключением многострочного поля значения @*, ширина поля равна указанному количеству символов, включая символ @, например:

 @###.##

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

Примеры следующие:

Пример

#!/usr/bin/perl формат СОТРУДНИК ==================================@<<<<<<<<<<<< <<<<<<<<<< @<< $name , $age @ #####.## $salary ===============================. select ( STDOUT ) ;$~ = СОТРУДНИК @n ; = ( " Али " , " Кодеркто " , " Джаффер " ) ; @a = ( 20 , 30 , 40 ) @s = ( 2000.00 , 2500.00 , 4000.000 ) $ i ; = 0 ; ( @n ) { $name = $_ ; $ age = $ a [ $i ] ; $salary = $s [ $ i ++ ] }

Выходной результат приведенного выше примера:

 ==================================Али 20 2000.00============ =============================================== ========Кодеркто 30 2500.00=============================================== = ====================Джаффер 40 4000.00======================= = =========

переменная формата

$~ ($FORMAT_NAME): имя формата $^ ($FORMAT_TOP_NAME): имя текущего формата заголовка хранится в

$% ($FORMAT_PAGE_NUMBER): номер текущей выходной страницы.

$= ($FORMAT_LINES_PER_PAGE) : Количество строк на каждой странице.

$| ($FORMAT_AUTOFLUSH): нужно ли автоматически обновлять хранилище выходного буфера

$^L ($FORMAT_FORMFEED): строка, которую необходимо вывести перед сохранением заголовка каждой страницы (кроме первой страницы).

Ниже приведен пример простого форматирования с использованием $~:

Пример

#!/usr/bin/perl $~ = " MYFORMAT " # Укажите формат, используемый в файловой переменной по умолчанию write ; # Вывод формата, указанного $~ формат MYFORMAT = # Определить формат MYFORMAT =============================== Текст #Учебное пособие по программированию ================================ .

Выходной результат выполнения приведенного выше примера:

 ================================ Текст # Учебное пособие по программированию ============ = ============================================== = === Текст # Учебное пособие по кодированию =================================

Если $~ не указан, будет выведен формат с именем STDOUT:

Пример

#!/usr/bin/perl write ; # Если $~ не указан, будет выполняться поиск в формате STDOUT. формат STDOUT =~Текст, указанный с помощью символа ~, не будет выводиться---------------- Формат STDOUT ----------------.

Выходной результат выполнения приведенного выше примера:

 ----------------Формат STDOUT----------------

В следующем примере мы демонстрируем использование переменных $^ или $FORMAT_TOP_NAME путем добавления информации заголовка отчета:

Пример

#!/usr/bin/perl формат СОТРУДНИК ==================================@<<<<<<<<<<<< <<<<<<<<<< @<< $name , $age @ #####.## $salary ================================= формат . EMPLOYEE_TOP =================================== Имя Возраст ===================================================================================================== . EMPLOYEE_TOP ; @n = ( " Али " , " Кодеркто " , " Джаффер " ) ; @a = ( 20 , 30 , 40 ) ; @s = ( 2000.00 , 2500.00 , 4000.000 ) $ i = 0 ; ( @n ) { $name = $_ ; $ age = $ a [ $i ] ; $salary = $s [ $ i ++ ] }

Выходной результат приведенного выше примера:

 ================================== Имя Возраст============ = ============================================== = =======Али 20 2000.00 ===================================== === =============================Codercto 30 2500.00=============================================== = ====================Джаффер 40 4000.00======================= = =========

Мы также можем использовать $% или $FORMAT_PAGE_NUMBER для установки нумерации страниц отчета:

Пример

#!/usr/bin/perl формат СОТРУДНИК ==================================@<<<<<<<<<<<< <<<<<<<<<< @<< $name , $age @ #####.## $salary =================================== # Добавить пейджинг $%. формат EMPLOYEE_TOP =================================== Имя Возраст Страница @< $%================================ select ( STDOUT ) ;$~ = СОТРУДНИК ; $^ = EMPLOYEE_TOP ; @n = ( " Али " , " Кодеркто " , " Джаффер " ) ; @a = ( 20 , 30 , 40 ) ; @s = ( 2000.00 , 2500.00 , 4000.000 ) $ i = 0 ; ( @n ) { $name = $_ ; $ age = $ a [ $i ] ; $salary = $s [ $ i ++ ] }

Выходной результат приведенного выше примера:

 ================================= Имя Возраст Страница 1=========== = ============================================== = =========Али 20 2000.00 =================================== === ===============================Codercto 30 2500.00=============================================== = ====================Джаффер 40 4000.00======================= = =========

Вывод в другие файлы

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

 написать (МОЙ ФАЙЛ);

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

Но тогда вы не сможете использовать переменную $~ для изменения используемого формата печати. Системная переменная $~ влияет только на файловую переменную по умолчанию. Мы можем изменить файловую переменную по умолчанию, изменить $~, а затем вызвать write.

Пример

#!/usr/bin/perl если ( открыть ( МОЙ ФАЙЛ , " >tmp " ) ) { $~ = " МОЙФОРМАТ " ; запись MYFILE ; # Вывод, содержащий переменные файла. В этот момент будет напечатан формат с тем же именем, что и переменная, то есть MYFILE. Значения, указанные в $~, игнорируются. формат MYFILE = # То же имя, что и файловая переменная ================================ Ввод в файл=== === ========================== . МОЙ ФАЙЛ ;

После успешного выполнения мы можем просмотреть содержимое tmp-файла следующим образом:

 $ cat tmp ================================= Ввод в файл========== = ======================

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

Пример

#!/usr/bin/perl если ( открыть ( MYFILE , " >>tmp " ) ) { выбирать ( MYFILE ) ; # Выводим файловую переменную по умолчанию в MYFILE $~ = " OTHER write ; # Файловая переменная по умолчанию , выводимая в файл, указанный параметром select, должна использовать формат OTHER, указанный в $~ ; формат ДРУГОЕ ================================ Ввод в файл в заданном формате ======= = ======================= закрыть . МОЙ ФАЙЛ ;

После успешного выполнения мы можем просмотреть содержимое tmp-файла следующим образом:

 $ cat tmp ================================= Ввод в файл========== = ============================================== = ===== Ввод в файл в заданном формате ==================================