Perl – krótka rozprawka zamiast „Hello world”


 

perl_ikonaPisaliśmy o Ruby i PowerShellu, czas wspomnieć choćby słówko o bardzo popularnym języku jaki jest perl. Jak bardzo popularny jest perl niech świadczy fakt, że jest on bazą dla takich języków jak Python, PHP, czy wspomniany już wcześniej Ruby. Domyślnie istniejący (i dla nich stworzony) na wszystkich *nix-ach, ale coraz częściej występuje także w środowiskach stricte Windowsowych. Niestety system od giganta z Redmond wymaga zainstalowania interpretera perl, a znajdziecie go tutaj: http://www.perl.org/get.html#win32.
Na przykładzie zaprzyjaźnionego bloga PaDtv.pl chcielibyśmy zaprezentować szybki prosty i przyjemny skrypt w perl’u.
Co robi skrypt? Nic zaawansowanego ;) Ściąga ze strony projektu PaDtv wybraną ilość podcastów.

#!/usr/bin/perl -w
$x = 1;
$a = ‚itunes’;
while ($x < 15) {
$x .=$a;
system („wget http://www.padtv.pl/padcast/padcast$x.mp3”);
$x++;
}
$x = 15;
$end = $ARGV[0] + 1;
while ($x < 32) {
system („wget http://www.padtv.pl/padcast/padcast$x.mp3”);
$x++;
}
$x = 33;
while ($x < $end) {
system („wget http://www.padtv.pl/padcast/2013/padcast$x.mp3”);
$x++;
}

Powyższe kilka linijek zapisujemy jako padtv.pl i uruchamiamy w sposób następujący:

padtv.pl X

X to ilość podcastów, które chcemy ściągnąć (na dzień dzisiejszy ostatni ma numerek 33) :)
Myślę, że kod jest dość przejrzysty i nie wymaga zbędnego naszym zdaniem omówienia, aczkolwiek zapraszamy do wypróbowania i przetestowania oraz do posłuchania podcastów z dziedziny gier konsolowych i nie tylko :)
Potraktujmy to jako wstępniak do dalszych rozważań o tym arcyciekawym języku programowania/skryptowania. W następnych odsłonach zajmiemy się bardziej złożonymi i ciekawszymi problemami jakie można rozwiązać używając przedstawionego wyżej języka.
Jeśli macie jakieś uwagi lub pytania zapraszam do komentowania.


Podobne Tematy:

Tags: