Argumenty příkazového řádku jsou odesílány do programu v Perlu stejným způsobem jako v jakémkoli jiném jazyce. Pole @ARGV obsahuje argument příkazového řádku. Není potřeba používat proměnné, i když použijete 'use strict'. Ve výchozím nastavení tato proměnná vždy existuje a hodnoty z příkazového řádku jsou automaticky umístěny do této proměnné. Chcete-li získat přístup k argumentům příkazového řádku vašeho skriptu, stačí číst z pole @ARGV.
Perl umožňuje použít pole @ARGV jako názvy souborů pomocí . $ARGV obsahuje název aktuálního souboru při čtení z .
@ARGV prvky pole
Pole @ARGV funguje stejně jako normální pole. Jeho první argument bude $ARGV[0], druhý $ARGV[1] a tak dále.
Příklad argumentu příkazového řádku Perlu
Podívejme se na jednoduchý příklad tisku argumentů příkazového řádku. V tomto příkladu vytiskneme uvítací zprávu se jménem uživatele jako argumentem z příkazového řádku. Potřebujeme dva argumenty příkazového řádku jako jméno a příjmení uživatele.
Krok 1 Vytvořte skript vítejte.pl ve vašem systému.
#!/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.
'; Ve výše uvedeném skriptu nejprve zkontroluje, zda jsou zadány dva argumenty příkazového řádku nebo ne. Pokud ne, zobrazí se chybná chyba zadání. A pokud ano, zpracuje tyto argumenty jako $ARGV[0] a $ARGV[1].
Krok 2 Spusťte skript ve vaší konzoli jako perl welcome.pl Christian Grey
Poznámka: Před zadáním tohoto příkazu se ujistěte, že jste v adresáři obsahujícím váš skript welcome.pl
Toto je výstup, který získáte ve své konzoli.
Krok 2 Spusťte skript ve vaší konzoli jako perl welcome.pl Christian
Zde předáváme pouze jeden argument z příkazového řádku.
Ve výstupu můžete vidět chybnou vstupní zprávu pro předání jednoho argumentu.
Příklad argumentů příkazového řádku Perlu pomocí Loop
Nyní spustíme cyklus pro tisk argumentů příkazového řádku. V tomto příkladu můžete zadat tolik argumentů, kolik chcete.
Krok 1 Vytvořte skript loop.pl ve vašem systému.
#!/usr/bin/perl $get_args = $#ARGV + 1; print 'Total command line arguments received: $get_args
'; foreach $argument (0 .. $#ARGV) { print '$ARGV[$argument]
'; } Krok 2 Spusťte skript ve vaší konzoli jako perl loop.pl a b c d e f g h
Podívejte se na výstup výše, zobrazuje také celkový počet argumentů předávaných na příkazovém řádku. Zde jsme předali 8 argumentů.
Perl Getopt::Dlouhý
Jednoduché volby příkazového řádku se provádějí pomocí volby ?s. Složité možnosti příkazového řádku se provádějí pomocí Getopt::Std a Getopt::Long.
Getopt znamená GetOptions . Zpracovává obsah @ARGV na základě konfigurace, kterou mu zadáme. Vrací hodnotu true nebo false na základě zpracování.
Příklad:
V tomto příkladu dobře získáme věk uživatele z příkazového řádku.
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'; } Deklarovali jsme proměnnou x $ do kterého se uloží vložená hodnota --z ze standardní konzole. The od=s deklaruje volaný parametr příkazového řádku --z s provázkem za ním. Dále se mapuje na proměnnou $x. Zpětné lomítko () znamená, že předáváme odkaz na proměnnou.
Tento skript se přepne na a část pouze tehdy, když budeme tento skript spouštět předáním něčeho, co vypadá jako název parametru a začíná na a (-) ale není deklarován v tomto skriptu.
Nyní spustíme tento program.
Výstup:
Podívejte se na výstup, po zadání věku na konzoli jsme dostali výše uvedený výstup.