08 February 2008, 17:18 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
Asagidaki kod ile sitenizde hava durumunu gösterebilirsiniz.......
Asagidaki kod ile sitenizde hava durumunu gösterebilirsiniz....... Kod:
<br> #!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use English; use CGI; use integer; require LWP::UserAgent; use GD; $q = new CGI; $ua = new LWP::UserAgent; $city =$q->param(city); $city =~ s/ı/i/g; $city =~ s/İ/I/g; $city =~ s/ğ/g/g; $city =~ s/Ğ/G/g; $city =~ s/ş/s/g; $city =~ s/Ş/S/g; $formil = $city; $city =~ tr/[a-z]/[A-Z]/; $begin = "http://www.meteor.gov.tr/pages/"; $data = $begin . $city.'.htm'; $lookup = new HTTP::Request 'GET', "$data"; $response = $ua->request($lookup); @lines = split (/ /, $response->content); foreach $item (@lines) { chomp($item); $tpl =$tpl.$item; } $start = '<!--BURADA BAŞLA-->'; $end = '<TD><div>Rüzgar</TD>'; ($part1,$part2) = split(/<!--BURADA BAŞLA-->/,$tpl); ($part3,$part4) = split(/<TD><div>Rüzgar</TD>/,$part2); ($part5,$part6) = split(/<div>Hava Durumu</div>/,$part3); ($part7,$part8) = split(/<br>/,$part6); ($part9,$part10) = split(/</div>/,$part8); ($part11,$part12) = split(/<TD><div>Sıcaklık</div></TD>/,$part8); ($part13,$part14) = split(/<div>/,$part12); ($part15,$part16) = split(/</div>/,$part14); $part9 =~ s/ı/i/g; $part9 =~ s/ç/Ç/g; $part9 =~ s/ğ/g/g; $part9 =~ s/Ğ/G/g; $part9 =~ s/ş/s/g; $part9 =~ s/Ş/S/g; $part9 =~ tr/[a-z]/[A-Z]/; print "Content-type: image/png "; $im = new GD::Image(100,50); ($white,$black,$red,$blue,$yellow) = ( $im->colorAllocate(255, 255, 255), $im->colorAllocate(0, 0, 0), $im->colorAllocate(255, 0, 0), $im->colorAllocate(0,0,255), $im->colorAllocate(255,250,205) ); $im->fill(50,50,$yellow); $im->rectangle(1,1,99,49,$black); $im->string(gdSmallFont,5,3,$formil."'da Hava",$black); $im->string(gdSmallFont,5,17,$part9,$red); $im->string(gdSmallFont,5,32,"SICAKLIK ".$part15,$blue); binmode STDOUT; print $im->png; exit; |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Benzer Konular | ||||
Konu Başlıkları | Konuyu Başlatan | Papatyam Forum Ana Kategori Başlıkları |
Cevaplar | Son Mesajlar |
Öğrencinin aldığı nota göre durumunu mesajla bildiren program | tamerr89 | C++ | 0 | 29 March 2008 18:29 |
Asp. net ile hava durumu vb alma | tamerr89 | asp.net | 0 | 29 March 2008 13:00 |
Kalbinizin durumunu belinizden öğrenin | PESTEMAL | Sağlık ve Hastalıklar | 0 | 18 March 2008 13:07 |
3 gunluk hava durumu | tamerr89 | WML | 0 | 08 February 2008 14:52 |
BUGÜN HAVA GÜZEL | mavera | Şiir Bahçesi | 4 | 10 May 2007 15:49 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |