Czy ktoś podpowiedziałby, jak zamienić argumenty wprowadzane z linii poleceń, np.:
perl plik.pl -s "url"
na argumenty wprowadzone w kodzie skryptu?
Oto kod:
# zdefiniowanie argumentów, na żądanie
# pokazanie pomocy.
my %args; getopts("s:h", \%args);
die $help if exists $args{h};
# Tu do zmiennej $key przypiszemy url.
my $key = "http://www.gazeta.pl/";
my %ys = (
url => $key,
);
# jeśli użyto opcji -s, trzeba sprawdzić, czy przekazana wartość
# pasuje do jednego z powyższych kodów; jeśli nie, nie jest
# używane żadne -s, pokazujemy pomoc.
my @sites; # jaką wersję analizować.
if (exists $args{'s'}) {
@sites = split(/ /, lc($args{'s'}));
foreach my $site (@sites) {
die "NIEZNANY: $site\n\n$help" unless $ys{$site};
}
} else { die $help; }