[#] Podstawy pisania skryptów w języku Perl

( Ostatnio zmieniony pon., 02/06/2008 - 12:51 )
 

Argumenty przekazywane do skryptu są w postaci specjalnych zmiennych: $ARGV[0], $ARGV[1], $ARGV[2], itd… Liczba argumentów umieszczona jest w zmiennej $#ARGV, natomiast cały łańcuch argumentów przechowywany jest w zmiennej @ARGV. Nazwa programu natomiast, dostępna jest pod zmienną $0.

Przetestujmy:

Stwórzmy plik o nazwie test.pl i nadajmy mu prawa wykonania. Niech jego zawartość będzie:

#!/usr/bin/perl
print "Moja nazwa to: $0 \n";
print "Pierwszy argument: $ARGV[0] \n";
print "Drugi argument: $ARGV[1] \n";
print "Trzeci argument: $ARGV[2] \n";
$num = $#ARGV + 1;
print "Ile w sumie mam argumentów? $num \n";
print "Cały łańcuch argumentów to: @ARGV \n";

Teraz jeśli wykonamy w konsoli powyższy skrypt:

./test.pl jeden mały teścik

powinniśmy zobaczyć w wyniku takie coś:

Moja nazwa to: ./test.pl
Pierwszy argument: jeden
Drugi argument: mały
Trzeci argument: teścik
Ile w sumie mam argumentów? 3
Cały łańcuch argumentów to: jeden mały teścik

Pamiętaj, że tablica jest indeksowana od 0 więc aby zobaczyć liczbę argumentów musimy dodać 1 do zmiennej $#ARGV. I jeszcze jedno: Zmienna @ARGV nie zaczyna się od znaku $, ponieważ jest to zmienna tablicowa.

Używanie i wyświetlanie zmiennych

Poniższy przykład wyświetli: Dzień dobry $user

$user = $ENV{USER};
print 'Dzień dobry $user';

Poniższy przykład wyświetli: Dzień dobry tomek

$user = $ENV{USER};
print "Dzień dobry $user";

Poniższy przykład wyświetli: Cena w Ameryce to .00

$costmsg = "Cena w Ameryce to $5.00";
print "$costmsg";

Poniższy przykład wyświetli: Cena w Ameryce to $5.00

$costmsg = "Price is \$5.00";
print "$costmsg";

Poniższy przykład wyświetli: Bieżący katalog to /home/tomek

$currdir = 'pwd'
print "Bieżący katalog to $currdir";
2.75
Twoja ocena: Brak Średnio: 2.8 (4 głosy)