Perl
Z wiki linux-user
m (→Pobieranie danych ze standardowego wejścia) |
m |
||
| Linia 190: | Linia 190: | ||
W celu testowym możemy zobaczyć co się stanie jeśli odpalimy ten sam program wymazując tylko linijkę chomp($user); | W celu testowym możemy zobaczyć co się stanie jeśli odpalimy ten sam program wymazując tylko linijkę chomp($user); | ||
| + | |||
| + | ==== Operator "diamentowy" ==== | ||
| + | Pobieranie danych z operatora "diamentowego" ''<>'' (znak mniejszości i większości) umożliwia stworzenie programu, który podczas uruchamiania pobierze dodatkowe argumenty ze standardowego wejścia znaczy klawiatury np | ||
| + | ./program test1 test2 | ||
| + | ''test1'' oraz ''test2'' to istniejące pliki. Przykład poniżej powinien rozjaśnić całą zabawę z operatorem diamentowym w perlu. | ||
| + | #! /usr/bin/perl | ||
| + | while (defined($line = <>)) { | ||
| + | chomp($line); | ||
| + | print "Wczytałem wiersz $line \n"; | ||
| + | } | ||
| + | należy pamiętać aby operator ''<>'' użyć w programie tylko jeden raz w innym przypadku pojawią się błędy. | ||
=== Pętla while === | === Pętla while === | ||
| Linia 458: | Linia 469: | ||
Jak można łatwo zauważyć w tym krótkim programiku występują dwie stałe o nazwie $what, które działają koło siebie bez żadnych błędów. Tak czy inaczej pisząc w ten sposób program stał się mało czytelny. | Jak można łatwo zauważyć w tym krótkim programiku występują dwie stałe o nazwie $what, które działają koło siebie bez żadnych błędów. Tak czy inaczej pisząc w ten sposób program stał się mało czytelny. | ||
| + | |||
| + | === Tablica asocjacyjna === | ||
| + | Tablica asocjacyjna jest strukturą danych, która może przechowywać dowolne wartości i zwracać je na żądanie programisty. Indeksowanie wartości odbywa się za pomocą nazw (kluczy) a nie jak to miało miejsce w zwykłych tablicach za pomocą indeksów. Mały przykład użycia | ||
| + | #! /usr/bin/perl | ||
| + | $nazwa1{"kowalski"} = "Jan"; | ||
| + | nazwa1{"nowak"} = "Adam"; | ||
| + | foreach $ludzie (qw< nowak kowalski >) { | ||
| + | print "Słyszałem o rodzinie $ludzie $nazwa1{$ludzie}. \n"; | ||
| + | } | ||
| + | |||
| + | |||
'''HOWTO W TRAKCIE PISANIA''' | '''HOWTO W TRAKCIE PISANIA''' | ||
<br /><google1 style="4"></google1> | <br /><google1 style="4"></google1> | ||
