GSM Perl

[Hardiel]

Toć mi sie nudziło ;-)
Taki malutki programik a czasem przydatny

###########################################################
#!/usr/bin/perl                                           #
#By Hardiel                                               #
#Program sprawdza z jakiej sieci jest dany numer          #
#Skrypt odpalamy z argumentem np. C:/GSM.pl 601           #
#Pozdro for Gaahl                                         #
###########################################################
print "Script GSM by Hardiel\r\n";
if ($ARGV[0]==601) {print "Siec: Plus\r\n";}
if ($ARGV[0]==603) {print "Siec: Plus\r\n";}
if ($ARGV[0]==605) {print "Siec: Plus\r\n";}
if ($ARGV[0]==607) {print "Siec: Plus\r\n";}
if ($ARGV[0]==609) {print "Siec: Plus\r\n";}
if ($ARGV[0]==691) {print "Siec: Plus\r\n";}
if ($ARGV[0]==693) {print "Siec: Plus\r\n";}
if ($ARGV[0]==695) {print "Siec: Plus\r\n";}
if ($ARGV[0]==697) {print "Siec: Plus\r\n";}
if ($ARGV[0]==661) {print "Siec: Plus\r\n";}
if ($ARGV[0]==663) {print "Siec: Plus\r\n";}
if ($ARGV[0]==665) {print "Siec: Plus\r\n";}
if ($ARGV[0]==667) {print "Siec: Plus\r\n";}
if ($ARGV[0]==669) {print "Siec: Plus\r\n";}
if ($ARGV[0]==885) {print "Siec: Plus Sami Swoi\r\n";}
if ($ARGV[0]==887) {print "Siec: Plus Sami Swoi\r\n";}
if ($ARGV[0]==781) {print "Siec: Plus UMTS\r\n";}
if ($ARGV[0]==782) {print "Siec: Plus UMTS\r\n";}
if ($ARGV[0]==783) {print "Siec: Plus UMTS\r\n";}
if ($ARGV[0]==785) {print "Siec: Plus UMTS\r\n";}
if ($ARGV[0]==721) {print "Siec: Plus\r\n";}
if ($ARGV[0]==722) {print "Siec: Plus\r\n";}
if ($ARGV[0]==723) {print "Siec: Plus\r\n";}
if ($ARGV[0]==725) {print "Siec: Plus\r\n";}
if ($ARGV[0]==726) {print "Siec: Plus\r\n";}
if ($ARGV[0]==600) {print "Siec: Era\r\n";}
if ($ARGV[0]==602) {print "Siec: Era\r\n";}
if ($ARGV[0]==604) {print "Siec: Era\r\n";}
if ($ARGV[0]==606) {print "Siec: Era\r\n";}
if ($ARGV[0]==608) {print "Siec: Era\r\n";}
if ($ARGV[0]==692) {print "Siec: Era\r\n";}
if ($ARGV[0]==694) {print "Siec: Era\r\n";}
if ($ARGV[0]==696) {print "Siec: Era\r\n";}
if ($ARGV[0]==698) {print "Siec: Era\r\n";}
if ($ARGV[0]==660) {print "Siec: Era\r\n";}
if ($ARGV[0]==662) {print "Siec: Era\r\n";}
if ($ARGV[0]==664) {print "Siec: Era\r\n";}
if ($ARGV[0]==666) {print "Siec: Era\r\n";}
if ($ARGV[0]==668) {print "Siec: Era\r\n";}
if ($ARGV[0]==880) {print "Siec: Era Heyah\r\n";}
if ($ARGV[0]==881) {print "Siec: Era Heyah\r\n";}
if ($ARGV[0]==882) {print "Siec: Era Heyah\r\n";}
if ($ARGV[0]==883) {print "Siec: Era Heyah\r\n";}
if ($ARGV[0]==884) {print "Siec: Era Heyah\r\n";}
if ($ARGV[0]==886) {print "Siec: Era Heyah\r\n";}
if ($ARGV[0]==888) {print "Siec: Era Heyah\r\n";}
if ($ARGV[0]==889) {print "Siec: Era heyah\r\n";}
if ($ARGV[0]==784) {print "Siec: Era UMTS\r\n";}
if ($ARGV[0]==787) {print "Siec: Era UMTS\r\n";}
if ($ARGV[0]==788) {print "Siec: Era UMTS\r\n";}
if ($ARGV[0]==500) {print "Siec: Orange\r\n";}
if ($ARGV[0]==501) {print "Siec: Orange\r\n";}
if ($ARGV[0]==502) {print "Siec: Orange\r\n";}
if ($ARGV[0]==503) {print "Siec: Orange\r\n";}
if ($ARGV[0]==504) {print "Siec: Orange\r\n";}
if ($ARGV[0]==505) {print "Siec: Orange\r\n";}
if ($ARGV[0]==506) {print "Siec: Orange\r\n";}
if ($ARGV[0]==507) {print "Siec: Orange\r\n";}
if ($ARGV[0]==508) {print "Siec: Orange\r\n";}
if ($ARGV[0]==509) {print "Siec: Orange\r\n";}
if ($ARGV[0]==510) {print "Siec: Orange\r\n";}
if ($ARGV[0]==511) {print "Siec: Orange\r\n";}
if ($ARGV[0]==512) {print "Siec: Orange\r\n";}
if ($ARGV[0]==513) {print "Siec: Orange\r\n";}
if ($ARGV[0]==514) {print "Siec: Orange\r\n";}
if ($ARGV[0]==515) {print "Siec: Orange\r\n";}
if ($ARGV[0]==516) {print "Siec: Orange\r\n";}
if ($ARGV[0]==517) {print "Siec: Orange\r\n";}
if ($ARGV[0]==518) {print "Siec: Orange\r\n";}
if ($ARGV[0]==519) {print "Siec: Orange\r\n";}
if ($ARGV[0]==690) {print "Siec: Orange NMT\r\n";}
if ($ARGV[0]==780) {print "Siec: Orange\r\n";}
if ($ARGV[0]==786) {print "Siec: Orange\r\n";}
if ($ARGV[0]==789) {print "Siec: Orange\r\n";}
if ($ARGV[0]==795) {print "Siec: Orange\r\n";}
if ($ARGV[0]==797) {print "Siec: Orange\r\n";}
if ($ARGV[0]==798) {print "Siec: Orange\r\n";}
if ($ARGV[0]==799) {print "Siec: Orange\r\n";}
if ($ARGV[0]==790) {print "Siec: Play\r\n";}
if ($ARGV[0]==791) {print "Siec: Play\r\n";}
if ($ARGV[0]==792) {print "Siec: Play\r\n";}
if ($ARGV[0]==793) {print "Siec: Play\r\n";}
if ($ARGV[0]==794) {print "Siec: Play\r\n";}
if ($ARGV[0]==796) {print "Siec: Play\r\n";}
if (int($ARGV[0])<100) {print "Niepoprawny Argument\r\n";}
if (int($ARGV[0])>999) {print "Niepoprawny Argument\r\n";}

[Eragon Argetlam]

Fajne- wlasnie pisze cos takiego w pythonie Przyda sie tylko lepiej by bylo, zeby po odpaleniu pytal o numerr, a nie ARG bo to troche meczy - bynajmneij wedlug mnie zeby pamietac ze trza pisac

[Hardiel]

Można też i tak jak będę miał chwile to zrobię tak ;-)

Pozdrawiam
EDIT:
Zrobiłem

###########################################################
#!/usr/bin/perl                                           #
#By Hardiel                                               #
###########################################################
use warnings;
print "Wpisz numer\n";
$GSM = <STDIN>;
if ($GSM==601) {print "Siec: Plus\r\n";}
if ($GSM==603) {print "Siec: Plus\r\n";}
if ($GSM==605) {print "Siec: Plus\r\n";}
if ($GSM==607) {print "Siec: Plus\r\n";}
if ($GSM==609) {print "Siec: Plus\r\n";}
if ($GSM==691) {print "Siec: Plus\r\n";}
if ($GSM==693) {print "Siec: Plus\r\n";}
if ($GSM==695) {print "Siec: Plus\r\n";}
if ($GSM==697) {print "Siec: Plus\r\n";}
if ($GSM==661) {print "Siec: Plus\r\n";}
if ($GSM==663) {print "Siec: Plus\r\n";}
if ($GSM==665) {print "Siec: Plus\r\n";}
if ($GSM==667) {print "Siec: Plus\r\n";}
if ($GSM==669) {print "Siec: Plus\r\n";}
if ($GSM==885) {print "Siec: Plus Sami Swoi\r\n";}
if ($GSM==887) {print "Siec: Plus Sami Swoi\r\n";}
if ($GSM==781) {print "Siec: Plus UMTS\r\n";}
if ($GSM==782) {print "Siec: Plus UMTS\r\n";}
if ($GSM==783) {print "Siec: Plus UMTS\r\n";}
if ($GSM==785) {print "Siec: Plus UMTS\r\n";}
if ($GSM==721) {print "Siec: Plus\r\n";}
if ($GSM==722) {print "Siec: Plus\r\n";}
if ($GSM==723) {print "Siec: Plus\r\n";}
if ($GSM==725) {print "Siec: Plus\r\n";}
if ($GSM==726) {print "Siec: Plus\r\n";}
if ($GSM==600) {print "Siec: Era\r\n";}
if ($GSM==602) {print "Siec: Era\r\n";}
if ($GSM==604) {print "Siec: Era\r\n";}
if ($GSM==606) {print "Siec: Era\r\n";}
if ($GSM==608) {print "Siec: Era\r\n";}
if ($GSM==692) {print "Siec: Era\r\n";}
if ($GSM==694) {print "Siec: Era\r\n";}
if ($GSM==696) {print "Siec: Era\r\n";}
if ($GSM==698) {print "Siec: Era\r\n";}
if ($GSM==660) {print "Siec: Era\r\n";}
if ($GSM==662) {print "Siec: Era\r\n";}
if ($GSM==664) {print "Siec: Era\r\n";}
if ($GSM==666) {print "Siec: Era\r\n";}
if ($GSM==668) {print "Siec: Era\r\n";}
if ($GSM==880) {print "Siec: Era Heyah\r\n";}
if ($GSM==881) {print "Siec: Era Heyah\r\n";}
if ($GSM==882) {print "Siec: Era Heyah\r\n";}
if ($GSM==883) {print "Siec: Era Heyah\r\n";}
if ($GSM==884) {print "Siec: Era Heyah\r\n";}
if ($GSM==886) {print "Siec: Era Heyah\r\n";}
if ($GSM==888) {print "Siec: Era Heyah\r\n";}
if ($GSM==889) {print "Siec: Era heyah\r\n";}
if ($GSM==784) {print "Siec: Era UMTS\r\n";}
if ($GSM==787) {print "Siec: Era UMTS\r\n";}
if ($GSM==788) {print "Siec: Era UMTS\r\n";}
if ($GSM==500) {print "Siec: Orange\r\n";}
if ($GSM==501) {print "Siec: Orange\r\n";}
if ($GSM==502) {print "Siec: Orange\r\n";}
if ($GSM==503) {print "Siec: Orange\r\n";}
if ($GSM==504) {print "Siec: Orange\r\n";}
if ($GSM==505) {print "Siec: Orange\r\n";}
if ($GSM==506) {print "Siec: Orange\r\n";}
if ($GSM==507) {print "Siec: Orange\r\n";}
if ($GSM==508) {print "Siec: Orange\r\n";}
if ($GSM==509) {print "Siec: Orange\r\n";}
if ($GSM==510) {print "Siec: Orange\r\n";}
if ($GSM==511) {print "Siec: Orange\r\n";}
if ($GSM==512) {print "Siec: Orange\r\n";}
if ($GSM==513) {print "Siec: Orange\r\n";}
if ($GSM==514) {print "Siec: Orange\r\n";}
if ($GSM==515) {print "Siec: Orange\r\n";}
if ($GSM==516) {print "Siec: Orange\r\n";}
if ($GSM==517) {print "Siec: Orange\r\n";}
if ($GSM==518) {print "Siec: Orange\r\n";}
if ($GSM==519) {print "Siec: Orange\r\n";}
if ($GSM==690) {print "Siec: Orange NMT\r\n";}
if ($GSM==780) {print "Siec: Orange\r\n";}
if ($GSM==786) {print "Siec: Orange\r\n";}
if ($GSM==789) {print "Siec: Orange\r\n";}
if ($GSM==795) {print "Siec: Orange\r\n";}
if ($GSM==797) {print "Siec: Orange\r\n";}
if ($GSM==798) {print "Siec: Orange\r\n";}
if ($GSM==799) {print "Siec: Orange\r\n";}
if ($GSM==790) {print "Siec: Play\r\n";}
if ($GSM==791) {print "Siec: Play\r\n";}
if ($GSM==792) {print "Siec: Play\r\n";}
if ($GSM==793) {print "Siec: Play\r\n";}
if ($GSM==794) {print "Siec: Play\r\n";}
if ($GSM==796) {print "Siec: Play\r\n";}
if (int($GSM)<100) {print "Niepoprawny Argument\r\n";}
if (int($GSM)>999) {print "Niepoprawny Argument\r\n";}

Powiem szczerze jakoś mnie bardziej do argumentów ciągnie ;-)

[TQM]

Do tego wlasnie bedzie idealny hash... ktory malo kto rozumie jak wynikalo z postow w kursie perla...

print "Prefix numeru: ";
chomp (my $prefix = <STDIN>);
my %prefixy = (601 => "Plus GSM", 603 => "Plus GSM",
    605 => "Plus GSM", itd,
    );
exists ($prefixy{$prefix}) ? print "Operator: $prefixy{$prefix}\n" : print "Operator nieznany\n";

mozna tez jako hash tablic :-) oraz na kilka innych sposobow...

[mtbs]

pozwolilem sobie zrobic modyfikacje kodu i dodalem skrypt ktory pozwala sprawdzic prefix, tzn. nr kierunkowy z wiekszasci krajow.

###########################################################
#!/usr/bin/perl                                           #
#By Hardiel                                               #
#Program sprawdza z jakiej sieci jest dany numer          #
#Skrypt odpalamy z argumentem np. C:/GSM.pl 601           #
#Pozdro for Gaahl   					  #
#							  #
#Modyfied by mtbs!					  #
#Modyfikacja sprawdza z jakiego kraju jest kierunkowy.    #
#Skrypt posiada dodatkowy argument - np. C:/GSM.pl 601 +48#
#Pozdrawiam Hardiela :P					  #
#							  #
###########################################################

use strict;
use warnings;

print "-----\r\n";
print "Script GSM by Hardiel\r\n";
print "Script GSM-PREFIX by mtbs!\r\n";
print "-----\r\n";


if ($ARGV[0]==601) {print "Siec: Plus\r\n";}
if ($ARGV[0]==603) {print "Siec: Plus\r\n";}
if ($ARGV[0]==605) {print "Siec: Plus\r\n";}
if ($ARGV[0]==607) {print "Siec: Plus\r\n";}
if ($ARGV[0]==609) {print "Siec: Plus\r\n";}
if ($ARGV[0]==691) {print "Siec: Plus\r\n";}
if ($ARGV[0]==693) {print "Siec: Plus\r\n";}
if ($ARGV[0]==695) {print "Siec: Plus\r\n";}
if ($ARGV[0]==697) {print "Siec: Plus\r\n";}
if ($ARGV[0]==661) {print "Siec: Plus\r\n";}
if ($ARGV[0]==663) {print "Siec: Plus\r\n";}

{...} #ograniczylo mi znaki do 10000 ;(!

if ($ARGV[0]==516) {print "Siec: Orange\r\n";}
if ($ARGV[0]==517) {print "Siec: Orange\r\n";}
if ($ARGV[0]==518) {print "Siec: Orange\r\n";}
if ($ARGV[0]==519) {print "Siec: Orange\r\n";}
if ($ARGV[0]==690) {print "Siec: Orange NMT\r\n";}
if ($ARGV[0]==780) {print "Siec: Orange\r\n";}
if ($ARGV[0]==786) {print "Siec: Orange\r\n";}
if ($ARGV[0]==789) {print "Siec: Orange\r\n";}
if ($ARGV[0]==795) {print "Siec: Orange\r\n";}
if ($ARGV[0]==797) {print "Siec: Orange\r\n";}
if ($ARGV[0]==792) {print "Siec: Play\r\n";}
if ($ARGV[0]==793) {print "Siec: Play\r\n";}
if ($ARGV[0]==794) {print "Siec: Play\r\n";}
if ($ARGV[0]==796) {print "Siec: Play\r\n";}
if (int($ARGV[0])<100) {print "Niepoprawny Argument\r\n";}
if (int($ARGV[0])>999) {print "Niepoprawny Argument\r\n";}

if ($ARGV[1]==355) {print "Kraj: Albania\r\n";}
if ($ARGV[1]==93) {print "Kraj: Afganistan\r\n";}
if ($ARGV[1]==213) {print "Kraj: Algeria\r\n";}
if ($ARGV[1]==376) {print "Kraj: Andorra\r\n";}
if ($ARGV[1]==244) {print "Kraj: Angola\r\n";}
if ($ARGV[1]==1264) {print "Kraj: Anguilla\r\n";}
if ($ARGV[1]==1268) {print "Kraj: Antiqua i Barbuda\r\n";}
if ($ARGV[1]==599) {print "Kraj: Antyle Holenderskie\r\n";}
if ($ARGV[1]==966) {print "Kraj: Arabia saudyjska\r\n";}
if ($ARGV[1]==54) {print "Kraj: Argentyna\r\n";}
if ($ARGV[1]==374) {print "Kraj: Armenia\r\n";}
if ($ARGV[1]==297) {print "Kraj: Aruba\r\n";}
if ($ARGV[1]==61) {print "Kraj: Australia\r\n";}
if ($ARGV[1]==43) {print "Kraj: Austria\r\n";}
if ($ARGV[1]==994) {print "Kraj: Azerbejdzan\r\n";}
if ($ARGV[1]==1242) {print "Kraj: Bahamy\r\n";}
if ($ARGV[1]==973) {print "Kraj: Bahrain\r\n";}
if ($ARGV[1]==880) {print "Kraj: Bangladesz\r\n";}
if ($ARGV[1]==1246) {print "Kraj: Barbados\r\n";}
if ($ARGV[1]==32) {print "Kraj: Belgia\r\n";}
if ($ARGV[1]==501) {print "Kraj: Belize\r\n";}
if ($ARGV[1]==229) {print "Kraj: Benin\r\n";}
if ($ARGV[1]==1441) {print "Kraj: Bermudy\r\n";}
if ($ARGV[1]==375) {print "Kraj: Bialorus\r\n";}
if ($ARGV[1]==591) {print "Kraj: Boliwia\r\n";}
if ($ARGV[1]==387) {print "Kraj: Bosnia i Hercegowina\r\n";}
if ($ARGV[1]==267) {print "Kraj: Bostwana\r\n";}
if ($ARGV[1]==55) {print "Kraj: Brazylia\r\n";}
if ($ARGV[1]==673) {print "Kraj: Brunei\r\n";}
if ($ARGV[1]==359) {print "Kraj: Bulgaria\r\n";}
if ($ARGV[1]==226) {print "Kraj: Burkina Faso\r\n";}
if ($ARGV[1]==257) {print "Kraj: Burundi\r\n";}
if ($ARGV[1]==56) {print "Kraj: Chile\r\n";}
if ($ARGV[1]==86) {print "Kraj: Chiny\r\n";}
if ($ARGV[1]==385) {print "Kraj: Chorwacja\r\n";}
if ($ARGV[1]==357) {print "Kraj: Cypr\r\n";}
if ($ARGV[1]==235) {print "Kraj: Czad\r\n";}
if ($ARGV[1]==420) {print "Kraj: Czechy\r\n";}
if ($ARGV[1]==45) {print "Kraj: Dania\r\n";}
if ($ARGV[1]==1809) {print "Kraj: Dominikana\r\n";}
if ($ARGV[1]==1767) {print "Kraj: Dominika\r\n";}
if ($ARGV[1]==1284) {print "Kraj: Dziewicze Wyspy Brytyjskie\r\n";}
if ($ARGV[1]==253) {print "Kraj: Dzibuti\r\n";}
if ($ARGV[1]==20) {print "Kraj: Egipt\r\n";}
if ($ARGV[1]==593) {print "Kraj: Ekwador\r\n";}
if ($ARGV[1]==291) {print "Kraj: Erytrea\r\n";}
if ($ARGV[1]==372) {print "Kraj: Estonia\r\n";}
if ($ARGV[1]==251) {print "Kraj: Etiopia\r\n";}
if ($ARGV[1]==500) {print "Kraj: Falklandy\r\n";}
if ($ARGV[1]==679) {print "Kraj: Fidzi\r\n";}
if ($ARGV[1]==358) {print "Kraj: Finlandia\r\n";}
if ($ARGV[1]==33) {print "Kraj: Francja\r\n";}
if ($ARGV[1]==220) {print "Kraj: Gambia\r\n";}
if ($ARGV[1]==30) {print "Kraj: Grecja\r\n";}
if ($ARGV[1]==995) {print "Kraj: Gruzja\r\n";}
if ($ARGV[1]==592) {print "Kraj: Gujana\r\n";}
if ($ARGV[1]==594) {print "Kraj: Gujana Francuska\r\n";}
if ($ARGV[1]==590) {print "Kraj: Gwadelupa\r\n";}
if ($ARGV[1]==502) {print "Kraj: Gwatemala\r\n";}
if ($ARGV[1]==245) {print "Kraj: Gwinea Bissau\r\n";}
if ($ARGV[1]==224) {print "Kraj: Republika Gwineii\r\n";}
if ($ARGV[1]==240) {print "Kraj: Gwinea Rownikowa\r\n";}
if ($ARGV[1]==509) {print "Kraj: Haiti\r\n";}
if ($ARGV[1]==34) {print "Kraj: Hiszpania\r\n";}
if ($ARGV[1]==31) {print "Kraj: Holandia\r\n";}
if ($ARGV[1]==504) {print "Kraj: Honduras\r\n";}
if ($ARGV[1]==852) {print "Kraj: Honk-Kong\r\n";}
if ($ARGV[1]==91) {print "Kraj: India\r\n";}
if ($ARGV[1]==62) {print "Kraj: Indonezja\r\n";}
if ($ARGV[1]==964) {print "Kraj: Irak\r\n";}
if ($ARGV[1]==98) {print "Kraj: Iran\r\n";}
if ($ARGV[1]==353) {print "Kraj: Irlandia\r\n";}
if ($ARGV[1]==354) {print "Kraj: Islandia\r\n";}
if ($ARGV[1]==972) {print "Kraj: Izrael\r\n";}
if ($ARGV[1]==1876) {print "Kraj: Jamajka\r\n";}
if ($ARGV[1]==81) {print "Kraj: Japonia\r\n";}
if ($ARGV[1]==855) {print "Kraj: Kambodza\r\n";}
if ($ARGV[1]==1) {print "Kraj: Kanada\r\n";}
if ($ARGV[1]==34) {print "Kraj: Wyspy Kanaryjskie\r\n";}
if ($ARGV[1]==7) {print "Kraj: Kazachstan\r\n";}
if ($ARGV[1]==254) {print "Kraj: Kenia\r\n";}
if ($ARGV[1]==996) {print "Kraj: Kirgistan\r\n";}
if ($ARGV[1]==57) {print "Kraj: Kolumbia\r\n";}
if ($ARGV[1]==243) {print "Kraj: Kongo\r\n";}
if ($ARGV[1]==82) {print "Kraj: Korea Poludniowa\r\n";}
if ($ARGV[1]==850) {print "Kraj: Korea Polnocna - Republika ludowa\r\n";}
if ($ARGV[1]==506) {print "Kraj: Kostaryka\r\n";}
if ($ARGV[1]==53) {print "Kraj: Kuba\r\n";}
if ($ARGV[1]==965) {print "Kraj: Kuwejt\r\n";}
if ($ARGV[1]==961) {print "Kraj: Liban\r\n";}
if ($ARGV[1]==231) {print "Kraj: Liberia\r\n";}
if ($ARGV[1]==218) {print "Kraj: Libia\r\n";}
if ($ARGV[1]==423) {print "Kraj: Lichtenstein\r\n";}
if ($ARGV[1]==370) {print "Kraj: Litwa\r\n";}
if ($ARGV[1]==352) {print "Kraj: Luksemburg\r\n";}
if ($ARGV[1]==371) {print "Kraj: Lotwa\r\n";}
if ($ARGV[1]==389) {print "Kraj: Macedonia\r\n";}
if ($ARGV[1]==356) {print "Kraj: Malta\r\n";}
if ($ARGV[1]==212) {print "Kraj: Maroko\r\n";}
if ($ARGV[1]==52) {print "Kraj: Meksyk\r\n";}
if ($ARGV[1]==373) {print "Kraj: Moldawia\r\n";}
if ($ARGV[1]==976) {print "Kraj: Mongolia\r\n";}
if ($ARGV[1]==977) {print "Kraj: Nepal\r\n";}
if ($ARGV[1]==49) {print "Kraj: Niemcy\r\n";}
if ($ARGV[1]==234) {print "Kraj: Nigeria\r\n";}
if ($ARGV[1]==505) {print "Kraj: Nikaragua\r\n";}
if ($ARGV[1]==47) {print "Kraj: Norwegia\r\n";}
if ($ARGV[1]==64) {print "Kraj: Nowa Zelandia\r\n";}
if ($ARGV[1]==92) {print "Kraj: Pakistan\r\n";}
if ($ARGV[1]==680) {print "Kraj: Palau\r\n";}
if ($ARGV[1]==970) {print "Kraj: Palestyna\r\n";}
if ($ARGV[1]==507) {print "Kraj: Panama\r\n";}
if ($ARGV[1]==51) {print "Kraj: Peru\r\n";}
if ($ARGV[1]==595) {print "Kraj: Paragwaj\r\n";}
if ($ARGV[1]==351) {print "Kraj: Portugalia\r\n";}
if ($ARGV[1]==27) {print "Kraj: RPA\r\n";}
if ($ARGV[1]==7) {print "Kraj: Federacja Rosyjska\r\n";}
if ($ARGV[1]==40) {print "Kraj: Rumunia\r\n";}
if ($ARGV[1]==378) {print "Kraj: San Marino\r\n";}
if ($ARGV[1]==221) {print "Kraj: Senegal\r\n";}
if ($ARGV[1]==248) {print "Kraj: Seszele\r\n";}
if ($ARGV[1]==65) {print "Kraj: Singapur\r\n";}
if ($ARGV[1]==421) {print "Kraj: Slowacja\r\n";}
if ($ARGV[1]==386) {print "Kraj: Slowenia\r\n";}
if ($ARGV[1]==1) {print "Kraj: USA - Ameryka Pln.\r\n";}
if ($ARGV[1]==1907) {print "Kraj: USA - Alaska\r\n";}
if ($ARGV[1]==1808) {print "Kraj: USA - Hawaje\r\n";}
if ($ARGV[1]==1340) {print "Kraj: USA - Wy. Dziewicze\r\n";}
if ($ARGV[1]==249) {print "Kraj: Sudan\r\n";}
if ($ARGV[1]==963) {print "Kraj: Syria\r\n";}
if ($ARGV[1]==41) {print "Kraj: Szwajcaria\r\n";}
if ($ARGV[1]==46) {print "Kraj: Szwecja\r\n";}
if ($ARGV[1]==66) {print "Kraj: Tajlandia\r\n";}
if ($ARGV[1]==886) {print "Kraj: Tajwan\r\n";}
if ($ARGV[1]==255) {print "Kraj: Tanzania\r\n";}
if ($ARGV[1]==216) {print "Kraj: Tunezja\r\n";}
if ($ARGV[1]==90) {print "Kraj: Turcja\r\n";}
if ($ARGV[1]==380) {print "Kraj: Ukraina\r\n";}
if ($ARGV[1]==598) {print "Kraj: Urugwaj\r\n";}
if ($ARGV[1]==998) {print "Kraj: Uzbekistan\r\n";}
if ($ARGV[1]==39) {print "Kraj: Watykan\r\n";}
if ($ARGV[1]==58) {print "Kraj: Wenezuela\r\n";}
if ($ARGV[1]==36) {print "Kraj: Wegry\r\n";}
if ($ARGV[1]==44) {print "Kraj: Wielka Brytania\r\n";}
if ($ARGV[1]==84) {print "Kraj: Wietnam\r\n";}
if ($ARGV[1]==39) {print "Kraj: Wlochy\r\n";}
if ($ARGV[1]==260) {print "Kraj: Zambia\r\n";}
if ($ARGV[1]==263) {print "Kraj: Zimbabwe\r\n";}
if ($ARGV[1]==971) {print "Kraj: Zjednoczone Emiraty Arabskie\r\n";}
if ($ARGV[1]==48) {print "Kraj: Polska\r\n";}

@TQM - Tak... hash... nie umiem ale starajac sie zrozumiec powoli przyswajam...

enjoy,
mtbs!

[Hardiel]

heh fajne :P szczerze mowiac w krytycznych chwilach przydatne sa takie skrypty :P

Pozdro