..:: П о м о щ ь   -   С т а т ь и ::..

Учебное пособие по CGI-программированию от Леши

Прекрасный язык Perl

Вы наверное обратили свое внимание что CGI скрипты пишутся обычно на языке Perl (Practical Extraction and Report Language)- очень удобном языке,впитавшем из других все лучшие черты.Может у вас возникнуть сомнение :Ну вот!Изучать новый язык программирования!? Спешу вас успокоить,изучение Perl не будет в тягость (я сужу по своему опыту!). Вы даже сами не заметите как выучите его.Если вы хоть когда-нибудь программировали скажем на C и использовали утилиту grep для поиска регулярных выражений в тексте,то вам будет еще легче. Для Perl родной платформой является Unix поэтому пользователям PC он мало известен. Мое целенаправленое доведение Perl до широкой публики началось с того что я скачал Perl под Windows (фирмы ActiveWare) К нему прилагается отличная гипертекстовая HTML- документация, даже быстрого просмотра которой хватит , чтобы начать хорошо и широко использовать его. Хоть он значительно уступает и по скорости и по эффективности своему Unix'ному аналогу, все равно самый лучший способ изучить язык это программировать на нем. Если вы как я дома используете большую часть времени не Windows а Unix то с изучением Perl у вас вообще не должно быть особых сложностей. Я же от себя могу сказать, что даже после небольшого опыта изучения его, он стал моим любимым языком программирования....

Все в нем сделано для удобства программиста (в отличии например от Java ;( )
Начнем с переменных,они в Perl бывают 3х типов скаларные,списковые(массивы) и хэши(ассоциативные массивы). Для указания компилятору(да и для немалого удобства программиста) перед именем скалярной переменной стоит знак '$' перед массивом '@',перед хешем '%'. т.е. например $scalar_var,@array_var,%hash_var Скалярные переменные могут быть как числовые так и строковые,но это не надо указывать Perl сам по контексту в зависимости от операций может привести одно к другому.
Например: "123"+"4" будет 127 (или "127") так как операция '+' действует над числами а вот если применить операцию конкатенации строк '.' то строковое "test" . 1 будет "test1"
Ну а вот операции над скалярными переменными:

Операцыи	Описание	Пример
+ - * / %	Арифметические	print 2*7+4/(8%3); print int(127/15); #целая часть
**	Возведение в степень	print 2**16;
++ --	Инкремент-декремент	$i++;
& | ^ ~ << >>	Побитовые	$x=3;$y=4; print $x|$y; print $x&$y;
== != < > <= >= <=>	Числовые операции сравнения	if($x==9){print "Ok!";}
eq ne lt gt le ge cmp	стрковые операции сравнения	if($game eq 'doom'){print "You are doomer!\n";}
|| && !	Логические	if(($x==9)||($game eq 'doom')){print "hello you!\n";}
?:	Условный оператор	$x=($game eq 'quake'?9:8);
,	Последовательное вычисление	$x=10,$y=20;
.	Конкатенация	$x='http://'.'www.uic.nnov.ru';
x	Повторение	$x='1234'x5; #$x='12341234123412341234'
=~	Сопоставление с образцом	if($url=~/http/){print "HTTP";}
!~	То же но с отрицанием	if($url!~/http/){print "No HTTP";}
= += -= *= /= %= **= |= &= ^= ~= <<= >>= .= x=	Присваивание	$x+=$y;

Пусь это будет вам справочником ,да кстати насчет строк,вы заметили,что они могут быть в двойных и одинарных кавычках, разница между ними состоит в том ,что в одинарных не осуществляется подстановка переменных, а в двойных осущестляется, Например:

$x='qwerty';
print 'my var is $x'; #выведет my var is $x
print "my var is $x"; #выведет my var is qwerty

@List1=(1,2,5,70);
@List2=(12,23,@List1); #12,23,1,2,5,70
@Rgb=($r,$g,$b);

@List=(1,2,3..8,15);
($x,$y,$z)=@List;        #$x=1,$y=2,$z=3
($x,$y,$z,@list2)=@List; #$x=1,$y=2,$z=3,@list2=(4,5,6,7,8,15);
($r,$g,$b)=@Rgb;

@list=(1..10);
@list[2,3,5,9]=(100,200,300,400); #@list=(1,100,200,4,300,6,7,8,400,10)
@list[1,10]=@list[10,1];#меняет местами элементы

$my_hash{1}="doom";
$my_hash{'quake'}="www.idsoftware.com";
$my_hash{1+2}=100;

%hash=(1,20,2,100);#аналогично $hash{1}=20;$hash{2}=100;

delete $hash{1};

%hash=(1,20,2,100,3,'doom');
@k=keys %hash;  #@k=(1,2,3);
@v=values %hash;#@v=(20,100,'doom');

if(условие)оператор;
оператор if условие;

unless(($method eq 'GET')||($method eq 'POST')){print "Unsupported method";}
print "Ok" unless $x < $y;

for($i=0;$i<10;$i++){
 print $i;
 }

foreach $переменная (@массив){
 блок операторов;
 }
или
foreach (@массив){
 операторы;
 }

следующий пример
@Data=<STDIN>;
foreach(@Data){
 chomp;
 print if /^From:/;
 }
аналогичен такому:
@Data=<STDIN>;
foreach $_ (@Data){
 chomp($_);
 print $_ if $_ =~ /^From:/;

if(/abc/){
 print '$_ содержит abc\n';
 }

print "Are you sure?:";
$answer=<STDIN>;
if($answer=~/Y/i){
 #че-нибудь сделаем...
 }

 $x="This is test";
 $x=~s/ /_/g;
 print $x; #This_is_test

 open(OLD,"oldfile.txt") || die "Cannot open oldfile.txt $!\n";
 open(NEW,">newfile.txt") || die "Cannot open newfile.txt $!\n";
 foreach(){
  s/(\d+)(\s+год)/($1+1).$2/gie;
  s/(\d+)(\s+лет)/($1+1).$2/gie;
  print NEW $_;
  }
 close(NEW);
 close(OLD);

sub urldecode{
 local($val)=@_;
 $val=~s/\+/ /g;
 $val=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;
 return $val;
 }

open(ФАЙЛОВАЯ_ПЕРЕМЕННАЯ,"имя файла");  #открыть файл для чтения
open(ФАЙЛОВАЯ_ПЕРЕМЕННАЯ,">имя файла"); #для записи
open(ФАЙЛОВАЯ_ПЕРЕМЕННАЯ,">>имя файла");#для записи в конец
open(ФАЙЛОВАЯ_ПЕРЕМЕННАЯ,"+<имя файла");#для чтения и записи
open(ФАЙЛОВАЯ_ПЕРЕМЕННАЯ,"|комманда");  #направить информацию на вход программы
open(ФАЙЛОВАЯ_ПЕРЕМЕННАЯ,"комманда|");  #считать информацию с выхода программы
open(ФАЙЛОВАЯ_ПЕРЕМЕННАЯ,"|комманда|"); #и то и другое вместе

open(MAIL,"|mail paaa@uic.nnov.ru");#Пошлем информацию по почте
print MAIL "Hello\n";
print MAIL "...\n";
print MAIL "...\n";
close(MAIL);

print "Введите имя файла:";
$fname=<STDIN>;
chomp($fname);
open(F,$fname)|| die "Cannot open $fname $!\n";
.....

print "Что искать:";
$search=<STDIN>;
chomp($search);
@L=<F>;
foreach(@L){
 print if /$search/;
 }
а можно и так:
print "Что искать:";
$search=<STDIN>;
chomp($search);
foreach(<F>){
 print if /$search/;
 }

#Разбить строку слов,разделенных пробелами в список вы можете
@WordList=split(/ /,$String);
#После обработки снова обьединить
$String=join(' ',@WordList);

printf "x=%d",$x;
printf ("x=%d",$x);#аналогично

#!/usr/bin/perl
#txt2html
die "Usage: txt2html Infile OutFile\n" unless(@ARGV);
open(IN,"$ARGV[0]")|| die "Cannot open $ARGV[0] $! \n";
open(OUT,">$ARGV[1]")|| die "Cannot open $ARGV[1] $! \n";
while(<IN>){
 s/&/&amp;/g;
 s/</&lt;/g;
 s/>/&gt;/g;
 s/(http:\/\/\S+)/<A href="$1">$1<\/A>/g;
 print OUT $_;
 }
close(IN);
close(OUT);

[ Предыдущая | Содержание | Следующая ]