Perl
Z wiki linux-user
(→Zmienna leksykalna my) |
|||
| Linia 433: | Linia 433: | ||
=== Zmienna leksykalna my === | === Zmienna leksykalna my === | ||
| − | + | Zmienne leksykalne '''my''' używamy wtedy gdy, chcemy powiedzieć kompilatorowi, że dana zmienna powinna być prywatna lub mieć ograniczony zasięg np jedynie do danego bloku. W tym momencie żadna inna zmienna o tej samej nazwie nie będzie mogła być zastąpiona inną wartością, która przechowywana jest w zmiennej o tej samej nazwie. Co lepsze taka zasada działa również na odwrót tzn, że żadna inna zmienna nie zmieni tak zadeklarowanej zmiennej w danym bloku. Przykładowy programik przedstawiam poniżej | |
| − | Zmienne leksykalne my używamy wtedy gdy, chcemy powiedzieć kompilatorowi, że dana zmienna powinna być prywatna lub mieć ograniczony zasięg np jedynie do danego bloku. W tym momencie żadna inna zmienna o tej samej nazwie nie będzie mogła być zastąpiona inną wartością, która przechowywana jest w zmiennej o tej samej nazwie. Co lepsze taka zasada działa również na odwrót tzn, że żadna inna zmienna nie zmieni tak zadeklarowanej zmiennej w danym bloku. | + | |
| + | #! /usr/bin/perl | ||
| + | print "Podaj jakieś imie:"; | ||
| + | $imie = <STDIN>; | ||
| + | chomp($imie); | ||
| + | my @names = qw/ kasia slawek ania piter natalia adam jacek kuba /; | ||
| + | my $result = &which_elements_is($imie, @names); | ||
| + | sub which_elements_is { | ||
| + | my ($what, @array) = @_; | ||
| + | foreach (0..$#array) { | ||
| + | if ($what eq $array[$_]) { | ||
| + | return $_; | ||
| + | } | ||
| + | } | ||
| + | -1; | ||
| + | } | ||
| + | if ($result == 1) { | ||
| + | print "Imię $imie zostało odnalezione w bazie\n"; | ||
| + | } else { | ||
| + | print "Imię $imie NIE zostało odnalezione w bazie \n"; | ||
| + | } | ||
| + | |||
'''HOWTO W TRAKCIE PISANIA''' | '''HOWTO W TRAKCIE PISANIA''' | ||
<br /><google1 style="4"></google1> | <br /><google1 style="4"></google1> | ||
