Для меня это был высшитй пилотаж.И я прыгал от радости когда сообщение, котрое я ввел в форму отобразилось внизу под ней. Я не мог найти себе места от радости. Пусть отобразилось криво, мне не дизайн на тот момент важен был, результат выполнения программы. Конечно сейчас я напишу гостевую книгу с закрытми глазами. Я не много выучил еще давно PHP & MySQL. Очень просто писать простенькие базы данных. Я давно забросил это дело после тгого как переехал жить в Израиль. Новые заботы, новая жизнь с нуля, новые проблемы и новые приключения. Когда на теперешней работе шеф попросил написать на PHP базу данны IMEI кодов Нокий, я конечно не мог вспомнить просто HTML. Смотрю на свой старый код и думаю, неужели это я такое сложное смог написать…
Но когда написал выучил много нового с PHP, того чего боялся учить.Я раньше очень боялся кода, боялся что не получится, боялся и ленился открыть документацию и прочитать, все врея обращался к друзьям. Боялся английского языка, но теперь я вырос и понял что без английского никуда, и иформации на английском в гугле больше чем на русском и там она более точная.
С тех пор я пользуюсь гуглом и самостоятелньой работой. Честно сказать, я этому научился только когда перехал в Израиль. Боязнь остатьсгде-то позади в стране где есть Hi-tech, не знаю… меня побудило заняться собой и теперь я с гордостью могу показать свой старый первый код на Perl. Мне не стыдно за те годы, я даже сйчас смотрю на это слегка с юмором. Смотрю и улыбаюсь. было время….
1-я программка:
#!/usr/bin/perl
sleep 2;
print "Welcome to Linux!\n\n";
$|=1;
print "Loading";
for (1..10)
{
print "."; sleep 1;
}
print "Done\n\n";
print "Check system for Windows:";
for (1..10)
{
print "."; sleep 1;
}
print "Windows found!!!\n";
print "Delete Windows system from this computer?: (Y=1/N=2)";
$y=<STDIN>;
if ($y == "1")
{
print "Windows has been deleted!!!\n";
}
else
{
print "Loser!\n";
}
print "Mounting file system root:";
for (1..5)
{
print "."; sleep 1;
}
print "[OK]\n";
print "Loading sound:";
for (1..5)
{
print "."; sleep 1;
}
print "[OK]\n\n\n";
$pass=123;
print "Please insert password:\n";
while ($pass ne $pass2)
{
print "Password inrorrect\n";
$pass2=<>;
}
print "Yes";
#!/usr/bin/perl
sleep 2;
print "Welcome to Linux!\n\n";$|=1;print "Loading";
for (1..10){print "."; sleep 1;}
print "Done\n\n";
print "Check system for Windows:";
for (1..10){print "."; sleep 1;}
print "Windows found!!!\n";
print "Delete Windows system from this computer?: (Y=1/N=2)";
$y=<STDIN>;
if ($y == "1"){print "Windows has been deleted!!! \n";}
else{print "Loser!\n";}
print "Mounting file system root:";
for (1..5){print "."; sleep 1;}
print "[OK]\n";
print "Loading sound:";
for (1..5){print "."; sleep 1;}print "[OK]\n\n\n";
$pass=123;
print "Please insert password:\n";
while ($pass ne $pass2){print "Password inrorrect\n";
$pass2=<>; }
3-я программка:
#!/perl/bin/perl -w
###################################
#programm "Name" #
#Programmer: Antony Stremovsky #
#This progarmm is licensed! #
# #
#All rights reserved! #
# #
# Zaporozhye 2001 #
###################################
$secret = "Zlobny";
print "What is your name?\n";
$name = <STDIN>;
chomp ($name);
if ($name eq "Antony")
{
print "Hello,Antony! How do you do?\n";
}
else
{
print "Hello, $name\n";
print "Please insert password!\n";
$sec = <>;
chomp ($sec);
while ($sec ne $secret)
{
print "ERROR! please insert password!\n";
$sec = <STDIN>;
chomp ($sec);
}
}
if ($sec eq $secret)
{print "Good!";}
Вот тако вот