Cum citim argumentele

[Agkelos]

In Perl argumentele date din linia de comanda se pastreaza intr-un array numit @ARGV. Numarul total de argumente este $#ARGV+1. Daca pare ciudat pentru programatorii in C sau alte limbaje, numarul total de argumente este $#ARGV+1 pentru ca @ARGV[0] este primul argument, nu numele aplicatiei.

Cand verificam daca s-a dat un argument, trebuie ca $#ARGV+1 sa fie 1 sau mai mare. Argumentele le citim de forma: $ARGV[index]. Un exemplu, mai jos:

Cod:

#!/usr/bin/perl

$args = $#ARGV+1;

if( $args < 1 ){
        print "Trebuie dat un string ca argument\n";
        exit;
}

print "Ai dat ca argument $ARGV[0]\n";

[SkullAds]