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";}