Monday, May 9, 2011

GOGO sms үйчилгээний алдаа юм байхдаа


Нэгжгүй болсон үед үнэгүй интернетээс sms илгээх боломжийг олгодог үйчилгээ их хэрэгтэй шүү. Би ч www.gogo.mn ийн sms мессэж илгээх үйлчилгээг нэгжгүй болсон үедээ их ашигладаг та ч бас тэгдэг байх. Харин өчигдөрхөн нэг шинээр хэрэглэгчийн эрх нээлгэсэн чинь миний sms inbox дотор бусдын мессэж байх нь тэр дээ. Алдаатай л юм байлгүй дээ. мэдэх юм алга заза юу тай ч мессэж ээ бичээтье , нууцлалтай мессэж бол бичээд хэрэггүй л юм байна анхаарна биз ээ


Read more...

Perl-Нөхцөл шалгах үйлдэл

perl дээр 5 төрлийн нөхцөл шалгах үйлдэл байдаг.
1.if (EXPR)
2.if (EXPR) BLOCK
3.if (EXPR) BLOCK else BLOCK
4.if (EXPR) BLOCK elsif (EXPR) BLOCK ...
5.if (EXPR) BLOCK elsif (EXPR) BLOCK ... else BLOCK
1. if (EXPR)- энгийн нөхцөл шалгах үйлдэл. ямар нэгэн block байхгүй

print "Happy Birthday!\n" if ($date == $today); # нөхцөл үнэн бол хэвлэх

2. if (EXPR) BLOCK
if ($date == $today)
{
print "Happy Birthday!\n";
}


3.if ($date == $today)
{
print "Happy Birthday!\n";
}
else
{
print "Happy Unbirthday!\n";
}
4.
if ($date == $today)
{
print "Happy Birthday!\n";
}
elsif ($date == $christmas)
{
print "Happy Christmas!\n";
}

5.
if ($date == $today)
{
print "Happy Birthday!\n";
}
elsif ($date == $christmas)
{
print "Happy Christmas!\n";
}else
{
print "Happy Unbirthday!\n";
}


unless нь if ийн эсрэг нөхцөл шалгадаг.

print "Happy Unbirthday!\n" unless ($date == $today);

код нь дараах нөхцөл шалгах үйлдэлтэй адил юм.

print "Happy Unbirthday!\n" if ($date != $today);

unless нь нөхцөл худлаа байгаа бол block үйлдэл биелэгддэг. Харин if үнэн байгаа бол биелэгддэг.
мөн нөхцөлт үйлдэл байдаг
(expression) ? (statement if true) : (statement if false) syntax аар бичэгдэнэ.

($date == $today) ? print "Happy B.Day!\n" : print "Happy Day!\n"


Read more...

Perl ийн хувьсагчийн төрөл

Perl хувьсагчын 3 төрөл байдаг.
* Scalar
* Array
* Hash
Scalar хувьсагчын төрөл
Scalar хувьсагчын төрөл нь энгийн утгыг хадгалдаг

my $animal = "camel";
my $answer = 42;

scalar хувьсагч нь string, float point numbers, integer хадгалж чадна. Perl шаардлага бол эдгээрийн хооронд автоматаар хөрвүүлэлт хийдэг.


print $animal;
print "The animal is $animal\n";
print "The square of $answer is ", $answer * $answer, "\n";

анзаарвал $ тэмдгийг scalar хувьсагчын өмнө хэрэглэнэ

жишээ нь:

#!/usr/bin/perl

$number = "5";
$exponent = "2 ** 8";
$string = "Hello, PERL!";
$float = 12.39;

# We can also assign a scalar an empty (undefined) value:
$nothing = undef;
# Printing all the above values
print "$number\n";
print "$exponent\n";
print "$string\n";
print "$float\n";
print "There is nothing: $nothing\n";


5
2 ** 8
Hello, PERL!
12.39
There is nothing:

Array хувьсагчын төрөл

my @animals = ("camel", "llama", "owl");
my @numbers = (23, 42, 69);
my @mixed = ("camel", 42, 1.23);

эдгээр утгуудыг хадгалж болно.

массив хувьсагчаас элементийг нь авахдаа


print $animals[0]; # prints "camel"
print $animals[1]; # prints "llama"
гэж авна массивын нэг элемент нь scalar хувьсагч бөгөөд өмнө нь $ тэмдэг тавьж байна.
хэрэв та массивын хамгийн сүүлийн элементийг авахыг хүсвэл $#array гэж хандаж болно . print $mixed[$#mixed]; # last element, prints 1.23
print @animals гэвэл массивын элементийн тоог хэвлэнэ.
массиваас олон утгыг авах хэд хэдэн арга байдаг.


@animals[0,1]; # ("camel", "llama");
@animals[0..2]; # ("camel", "llama", "owl");
@animals[1..$#animals]; # бүх элементийг өгнө


массив дээр хэдэн бэлэн функцуудыг ашиглаж болно.
жишээ нь: sort, reverse гэх мэт

my @sorted = sort @animals; #animals массивийг эрэмбэлээд sorted массивт хадгалж байна.
my @backwards = reverse @numbers; #animals массивийг урвуулж backwards массивт хадгалж байна.


Массиваас элемент устгах нэмэх
push(): массивийн төгсгөлд элемент нэмэх
unshift(): массивийн эхэнд элемент нэмэх
pop(): төгсгөлөөс устгах
shift() : эхнээс нь устгах


#!/usr/bin/perl

# Массив тодорхойлох
@coins = ("Quarter","Dime","Nickel");
print "First Statement : @coins";
print "\n";

# массивийн төгсгөлд элемент нэмэх
push(@coins, "Penny");
print "Second Statement : @coins";
print "\n";
# массивийн эхэнд элемент нэмэх
unshift(@coins, "Dollar");
print "Third Statement : @coins";
print "\n";

# төгсгөлөөс устгах
pop(@coins);
print "Fourth Statement : @coins";
print "\n";
# эхнээс нь устгах
shift(@coins);
print "Fifth Statement : @coins";
print "@coins";

Дараах үр дүн гарна
First Statement : Quarter Dime Nickel
Second Statement : Quarter Dime Nickel Penny
Third Statement : Dollar Quarter Dime Nickel Penny
Fourth Statement : Dollar Quarter Dime Nickel
Fifth Statement : Quarter Dime Nickel

Hash хувьсагчын төрөл
hash хувьсагчийн төрөл нь түлхүүр болон утга гэсэн хослолтой байна. Тодорхой түлхүүрт харгалзах утгыг хадгалдаг.
key нь массивийн индекстэй төстэй гэж болно. Түлхүүр нь string, integer утга агуулж болно.

my %fruit_color = ("apple", "red", "banana", "yellow"); гэж тодорхойлохоос гадна
my %fruit_color = (
apple => "red",
banana => "yellow",
);

гэж бичиж болно.

hash ийн элементийг авахдаа
$fruit_color{"apple"}; # gives "red"
гэж авна.

keys(), values() perl ийн built-in function ашиглаад Түлхүүр болон утгуудыг нь массит хадгалж болно
my @fruits = keys %fruit_colors;
my @colors = values %fruit_colors;

perl дээр хувьсагчын нэр case sensetive $foo $FOO ялгаатай юм.

Хувьсагчийн амьдарлын хугацаа
өмнөх жишээнүүд дээр дараах syntax байнга гарсан
my $var = "value";
энд уул нь my шаардлаггүй л дээ

Read more...

Perl програмчлалын хэлний тухай танилцуулга

Perl бол програмчлалын хэл. Larry Wall зохиосон. ялангуяа энгийн текст хэлбэрээр бичэгддэг юм. Perl: Practical Extraction and Report Language. Хэрвээ та C бол Unix shell талаар үндсэн мэдлэгтэй бол Perl маш хялбар сурах юм.
Анх PERL зохиогдохдоо энгийн текстийг боловсруулалт хийх зорилготой хөгжүүлсэн хэл. Одоогоор System Administration, Web Developement, Network Programming
GUI developement өөр олон цар хүрээтэйгээр хэрэглэгдэж байна.

Perl гэж юу вэ?
-Үйлдлийн систем хамааралгүй ажилладаг
-Practical Extraction and Report Language
-Хувийн болон нийтийн төсөл даалгаварыг гүйцэтгэхэд хэрэглэгддэг
-Open source програм хангамж
-Larry Wall зохиосон
-Perl 1.0 1987 Онд гарсан


Дэмждэг үйлдлийн системүүд
* Unix systems
* Macintosh - (OS 7-9 and X) see The MacPerl Pages.
* Windows - see ActiveState Tools Corp.
* VMS
* бусад


Perl онцлог
-C, awk, sed, sh, and BASIC хэлнүүдийн бүх давуу талуудыг авч үүссэн
-Perl html, xml болон бусад markup хэлүүдтай хамт ажилдаг
-Unicode дэмждэг
-Процедур болон объект хандалт хоёрыг дэмждэг
текст боловсруулах болон хурдан хөгжүүлэх чадвартай шилдэг вэб програмчлалын хэлний нэг.
.....

Perl Syntax
нэг болон олон statement ээс бүрдсэн script болон програмчлалын хэл
statement нь маш энгийн текс хэлбэрээр бичэгддэг. ямар ч main() функц хэрэггүй. statement бүр ; тэмдэгээр төгсдөг


print "Hello, world";

#Энэ тэмдэгээр тайлбарыг эхлүүлдэг.
#зарим хэлүүд дээр байдаг олон мөр тайлбар гэж байдаггүй

print "Hello, world";
print 'Hello, world'; давхар кавичк болон дан кавичк адил байдаг. Тоо хэвлэх гэж байгаа бол ямар нэгэн кавичк хэрэггүй.
print("Hello, world\n"); \n мэдээж мөр буулгана.


perl файл .pl өргөтгөлтэй хадгалагдах ёстой.

Эхний Perl програм :

#!/usr/bin/perl
# Энэхүү програм нь дэлгэцэнд Hello, World үгийг хэвлэнэ
print "Hello, world";


Perl програмыг ажиллуулах.
Unix дээр ажилуулахдаа хандах эрх бас зааж өгдөг байсан байхаа
CHMOD 0755 гээл

windows дээр бол файл байгаа command prompt ооро очоод
perl filename.pl гэж ажиллуулна

Read more...

"Hello World" java програм

програмист хүн бүрийн хамгийн эхний програм бол "Hello World" бичдэг батлагдаагүй хуультай юм. Энэ ч утгаар би эхний кодыг Java дээр "Hello World" програмын кодыг бичиж тавих болов.


public class HelloWorld{

public static void main(String[] args){
System.out.println("This is my first java program");
}
}


Read more...