Przenosiny bloga na Joggera. Uwaga!

Nowy adres bloga - http://coldpeer.jogger.pl

Jakieś dwa tygodnie temu założyłem ten blog. Brakowało mi tam kilku, ważnych opcji. Dostałem je - a nawet o wiele więcej, w także darmowym, popularnym wśród polskich bloggerowców, Joggerze. Jako, że ten blog dopiero się rozkręca(ł), sądzę, że nie ryzykowałem zbyt dużo.

Wszystkie wpisy i komentarze zostały już przeniesione na nowy adres. Następne zmiany, co do hostingu, nie są przewidziane, więc nie denerwujcie się ;-)

Czytelników, subskrybujących wpisy w kanale RSS, czy też posiadających blog w zakładkach ;), proszę o aktualizację URL-i.

Przepraszam za ewentualne kłopoty, pozdrawiam i zapraszam do odwiedzania bloga pod nowym adresem!
Coldpeer.

Latający pingwin Tux

Filmik udowadnia, że jednak pingwiny potrafią latać. Bardzo ciekawe i pomysłowe wykonanie, pokazujące Tuksa (maskotkę Linuksa) unoszącego się nad chmurami :) Zresztą zobaczcie sami:

Jeszcze link na Youtube: http://youtube.com/watch?v=fhaEmWWWGeo

y

x

Wymiary obrazka w Delphi

Jakiś czas temu potrzebowałem pobrać wymiary obrazków w Delphi. Sprawa banalna, ale może komuś ułatwi to sprawę. Można otworzyć obrazek za pomocą klasy TImage i odczytać potrzebne dane. Poniżej prezentuję funkcje. function GetImageSize(const Path : string) : string; var Image : TImage; begin Result := '0x0'; if ExtractFileExt(Path) <> '' then try Image := TImage.Create(nil); Image.Picture.LoadFromFile(Path); Result := IntToStr(Image.Picture.Width) + 'x' + IntToStr(Image.Picture.Height); finally Image.Free; end; end; Powyższa funkcja zwraca wartość w postaci SzerokośćxWysokość. Przedstawiam funkcję, która zwraca tylko wybrane przez nas dane: function GetImageSize(const Path : string; Height : boolean = False) : integer; var Image : TImage; begin Result := 0; if ExtractFileExt(Path) <> '' then try Image := TImage.Create(nil); Image.Picture.LoadFromFile(Path); if not Height then Result := Image.Picture.Width else Result := Image.Picture.Height; finally Image.Free; end; end; Wywołanie wygląda następująco (dla pliku C:\img.jpg): szerokosc := GetImageSize('C:\img.jpg'); wysokosc := GetImageSize('C:\img.jpg', True); Standardowo klasa TImage obsługuje takie formaty jak JPG/JPEG czy BMP. Aby obsłużyć formaty GIF czy PNG, należy zainteresować się dodatkowymi modułami jak TGifImage, czy TPngImage - dostępnymi za darmo w internecie.

Aktualna piosenka w RMF FM

Lubię i często słucham - znanego chyba każdemu - radia RMF FM, głównie pracując przy komputerze. Ostatnio byłem zajęty pisaniem różnych funkcji do projektu ggb - bota, komunikującego się poprzez sieć Gadu-Gadu i udostępniającemu użytkownikowi przydatne informacje. Postanowiłem napisać funkcję w Pythonie (w tym języku pisany jest bot), pobierającą poprzednią, aktualną, następną i jeszcze następną piosenkę z owej stacji radiowej. Jak dla mnie przydatna sprawa. Poniżej przedstawiam kod w Pythonie i PHP.

Na stronie RMF FM jest flashowe logo, a w nim wyświetlane aktualne piosenki, grane w radiu. Skądś te dane logo musi pobierać. Sprawa sprowadza się do zdekompilowania SWF-a i odczytania adresu URL pliku, jakim jest http://static.rmf.pl/rmf_fm/info_exp.txt. Po obrobieniu zawartości pliku funkcją zamieniającą %20 na spacje, %3C na < itd. dostajemy już bardziej przyjazny ciąg. W PHP mamy ładną funkcję urldecode: <?=urldecode(file_get_contents('http://static.rmf.pl/rmf_fm/info_exp.txt'))?> Teraz wystarczy, najłatwiej za pomocą wyrażeń regularnych, wyszukać odpowiednie informacje. Kod w Pythonie wygląda następująco: # -*- coding: utf-8 -*- import urllib2, re def rmf(): try: s = urllib2.urlopen('http://static.rmf.pl/rmf_fm/info_exp.txt') s = urllib2.unquote(s.read().lower()).replace('<u>', '').replace('</u>', '') reg = 'poprzednio - (.*?)</a>(.*?)teraz - (.*?)</a>(.*?)' reg += 'za chwile - (.*?)</a>(.*?)nastepnie - (.*?)</a>' if s.find('teraz'): m = re.findall(reg, s)[0] return 'Poprzednio: ' + m[0] + '\nTeraz: ' + m[2] + '\nZa chwilę: ' + m[4] + '\nNastępnie: ' + m[6] else: return 'Obecnie nie są grane żadne utwory.'; except urllib2.HTTPError, e: return 'Wystąpił błąd: ' + e print rmf() Wynik wygląda w chwili obecnej tak:

coldpeer@box:~$ python rmf.py
Poprzednio: elektryczne gitary - kiler
Teraz: michael buble - everything
Za chwilę: hinder - lips of an angel
Następnie: amel bent: eye of the tiger

Jeśli obecnie są nadawane np. Wiadomości - w każdym razie nie muzyka, albo wystąpił jakiś inny błąd w odczycie pliku, zostanie wyświetlony komunikat.

To jeszcze coś dla lubiących PHP: <?php function rmf() { try { $s = urldecode(file_get_contents('http://static.rmf.pl/rmf_fm/info_exp.txt')); $s = str_replace(array('<u>', '</u>'), array('', ''), strtolower($s)); $re = '|poprzednio - (.*?)</a>(.*?)teraz - (.*?)</a>(.*?)'; $re .= 'za chwile - (.*?)</a>(.*?)nastepnie - (.*?)</a>|'; return preg_match($re, $s, $m) ? ( 'Poprzednio: ' . $m[1] . '<br />Teraz: ' . $m[3] . '<br />Za chwilę: ' . $m[5] . '<br />Następnie: ' . $m[7] ) : 'Obecnie nie są grane żadne utwory.'; } catch(Exception $e) { return 'Wystąpił błąd: ' . $e->getMessage(); } } echo rmf(); ?> Have fun!

Czy wyraz jest palindromem?

Palindrom (tudzież anagram odwrotny) jest to wyraz, liczba, który odczytany zarówno normalnie (od przodu), jak i wspak (od tyłu) daje taki sam ciąg, np. palindromem jest wyraz "kajak", czy liczba 656. Ponadto ciąg składający się z mniej niż dwóch znaków jest palindromem (np. litera K).

Pokażę za chwilę, jak napisać prosty algorytm, który będzie sprawdzał, czy dany wyraz bądź liczba jest palindromem.

Algorytm

1. boolean is_palindrome(string S)
2. begin
3.  integer I ← (ilość znaków z S) div 2 // przyjmujemy S[0] = pierwsza litera S
4.  while I > 0 do
5.  begin
6.    I ← I - 1
7.    if S[I] != S[ilość znaków z S - I - 1] then return false
8.  end
9.  return true
10.end

3. Deklaracja zmiennej I i przypisanie do niej połowy długości ciągu (zaniedbując część ułamkową), przekazanego w parametrze funkcji.
7. Jeśli I-ty znak ciągu S jest różny od znaku na pozycji: ilość znaków z S - I - 1, zwróć false - ciąg nie jest palindromem.
9. Podczas działania pętli, nie została zwrócona wartość false, więc ciąg jest palindromem.

Implementacje

C/C++: bool is_palindrome(char* s) { int n = strlen(s); int i = n / 2; while( i-- ) if( s[i] != s[n - i - 1] ) return false; return true; } Pascal: function IsPalindrome(S: String): Boolean; var I : Integer; begin I := Length(S) div 2; IsPalindrome := True; while (I > 0) and (IsPalindrome) do begin Dec(I); IsPalindrome := S[I+1] = S[Length(S) - I]; end; end; Python: def is_palindrome(s): i = len(s)/2 while i: i -= 1 if s[i] != s[-i-1]: return False return True Ruby: def is_palindrome(s) i = s.size/2; while i > 0 i -= 1 if s[i] != s[s.size-i-1] then return false end end return true end PHP: function is_palindrome($s) { $i = (int)(strlen($s)/2); while($i--) if($s[$i] != $s[strlen($s)-$i-1]) return false; return true; } JavaScript: function is_palindrome(s) { var i = (int)(s.length/2); while(i--) if(s[i] != s[s.length-i-1]) return false; return true; }

Start!

I ruszył mój blog... Zamierzam w nim pisać głównie o świecie komputerów, w szczególności programowanie (C++, Python, PHP), webmastering, *nix, etc. Oprócz przemyśleń, czasem newsów, będą się tutaj pojawiać różne moje teksty, porady, ciekawostki :) Oczywiście, jak będzie, czas pokaże.

Serdecznie zapraszam i pozdrawiam,
Coldpeer