Perl
Z wiki linux-user
(→Zmienna leksykalna my) |
m (→Zmienna leksykalna my) |
||
| Linia 437: | Linia 437: | ||
#! /usr/bin/perl | #! /usr/bin/perl | ||
print "Podaj jakieś imie:"; | print "Podaj jakieś imie:"; | ||
| − | $ | + | $what = <STDIN>; |
| − | chomp($ | + | chomp($what); |
my @names = qw/ kasia slawek ania piter natalia adam jacek kuba /; | my @names = qw/ kasia slawek ania piter natalia adam jacek kuba /; | ||
| − | my $result = &which_elements_is($ | + | my $result = &which_elements_is($what, @names); |
sub which_elements_is { | sub which_elements_is { | ||
my ($what, @array) = @_; | my ($what, @array) = @_; | ||
| Linia 451: | Linia 451: | ||
} | } | ||
if ($result == 1) { | if ($result == 1) { | ||
| − | print "Imię $ | + | print "Imię $what zostało odnalezione w bazie\n"; |
} else { | } else { | ||
| − | print "Imię $ | + | print "Imię $what NIE zostało odnalezione w bazie \n"; |
} | } | ||
