Аргументи командного рядка надсилаються програмі на Perl так само, як і в будь-якій іншій мові. Масив @ARGV містить аргумент командного рядка. Немає необхідності використовувати змінні, навіть якщо ви використовуєте 'use strict'. За замовчуванням ця змінна існує завжди, і значення з командного рядка автоматично розміщуються всередині цієї змінної. Щоб отримати доступ до аргументів командного рядка вашого сценарію, вам потрібно просто прочитати масив @ARGV.

Perl дозволяє використовувати масив @ARGV як імена файлів за допомогою . $ARGV містить назву поточного файлу під час читання з .

Елементи масиву @ARGV

Масив @ARGV працює так само, як і звичайний масив. Його першим аргументом буде $ARGV[0], другим $ARGV[1] і так далі.

Приклад аргументу командного рядка Perl

Давайте розглянемо простий приклад друку аргументів командного рядка. У цьому прикладі ми надрукуємо вітальне повідомлення з іменем користувача як аргументом із командного рядка. Нам потрібні два аргументи командного рядка як ім’я та прізвище користувача.

Крок 1 Створіть сценарій Welcome.pl у вашій системі.

 #!/usr/bin/perl -w # (1) check for the number of command-line arguments entered $number_args = $#ARGV + 1; if ($number_args != 2) { print 'Wrong entry. Please enter your full name.
'; exit; } # (2) if two command line arguments received, $firstName=$ARGV[0]; $lastName=$ARGV[1]; print 'Welcome $firstName $lastName at JavaTpoint.
'; 

У наведеному вище сценарії спочатку перевіряється, чи надано два аргументи командного рядка. Якщо ні, це видасть помилку неправильного введення. І якщо так, він обробить ці аргументи як $ARGV[0] і $ARGV[1] відповідно.

Крок 2 Запустіть сценарій у консолі як perl welcome.pl Крістіан Грей

Примітка: перш ніж надавати цю команду, переконайтеся, що ви перебуваєте в каталозі, що містить ваш сценарій welcome.pl

Це результат, який ви отримаєте на своїй консолі.

Крок 2 Запустіть сценарій у консолі як perl welcome.pl Крістіан

Тут ми передаємо лише один аргумент із командного рядка.

У вихідних даних ви можете побачити повідомлення про неправильне введення для передачі одного аргументу.

Приклад аргументів командного рядка Perl із використанням циклу

Тепер ми запустимо цикл для друку аргументів командного рядка. У цьому прикладі ви можете ввести скільки завгодно аргументів.

Крок 1 Створіть сценарій loop.pl у вашій системі.

 #!/usr/bin/perl $get_args = $#ARGV + 1; print 'Total command line arguments received: $get_args
'; foreach $argument (0 .. $#ARGV) { print '$ARGV[$argument]
'; } 

Крок 2 Запустіть сценарій у консолі як perl loop.pl a b c d e f g h

Подивіться на результат вище, він також відображає загальну кількість аргументів, переданих у командному рядку. Тут ми передали 8 аргументів.

Perl Getopt::Long

Прості параметри командного рядка виконуються за допомогою параметра ?s. Складні параметри командного рядка виконуються за допомогою Getopt::Std і Getopt::Long.

Getopt означає GetOptions . Він обробляє вміст @ARGV на основі наданої нами конфігурації. Він повертає значення true або false на основі обробки.

приклад:

У цьому прикладі ми добре отримуємо вік користувача з командного рядка.

 use strict; use warnings; use 5.010; use Getopt::Long qw(GetOptions); my $x; GetOptions('from=s' => $x) or die 'Usage: $0 --from NAME
'; say'According to your age which is $x:'; if ($x >=18) { say 'You are eligible to vote'; } 

Ми оголосили змінну $x який буде зберігати значення, вставлене в --від зі стандартної консолі. The від=s оголошує викликаний параметр командного рядка --від із рядком після нього. Далі він відображається на змінній $x. Зворотний слеш () означає, що ми передаємо посилання на змінну.

Цей сценарій переключиться на в лише тоді, коли ми будемо запускати цей сценарій, передаючи щось, що виглядає як ім’я параметра та починається з a (-) але не оголошено в цьому сценарії.

Зараз ми запустимо цю програму.

Вихід:

Подивіться на результат: після введення віку на консолі ми отримали наведений вище результат.