Aktywne Wpisy

konserwix +424
#pieklomezczyzn dzień dobry
źródło: 1000004053
Pobierz
Palinkka +56
Kawa, kawusia z rana… i kot :). Nie pasuje mu dzisiaj bo dostał rozwodnione jedzenie- jak codziennie. Jednak, dzisiaj ciut więcej wody było . A dlaczego rozwodnione? Zapewne zapytacie. A to dlatego, że on zwyczajnie nie pije. Poidełka za miliony monet nie działają. Jest jedna rzecz która działa i nie jest wodą z kibla. Uwaga oto przepis: duże naczynie z wodą, a w środku sałata wodna, ale to zawsze się kończy katastrofa.
źródło: IMG_9792
Pobierz

![Niemcy: 22-letni student zabity nożem przez afgańczyka [DE]](https://wykop.pl/cdn/c3397993/20c2b527f909b504902e511bb3368232f205d6167f254835aa6492af31a818a7,q80.jpg)


use Getopt::Std;
my %Options;
$ok = getopts('lamd', \%Options);
Co teraz, jak wypisać/używać wartości zapisanych w Options? Albo jak to przepisać na jakąś strukturę, której będę potrafił użyć? :P
foreach my $k (keys %$Options) {
print "$k: " . $Options->{$k} . "\n";
}
Nie działa, a ja nie mam pojęcia o perlu.
Aha, @maciejkiner, super, że
tekst między backtickamikasuje spacje i tabulatory, naprawdę poprawia to czytelność ( ͡° ͜ʖ ͡°)
Jakby ktoś na to jakimś cudem trafił - przekleiłem jakiś przykład użycia getopts i działa, wydaje się, że problem był w pętli gdzieś przy
keys %$Options, ale ja nie mam nerwów na szukanie błędu :P