Краткий экскурс в Perl-программирование

#!/usr/bin/perl

$a=10;   # Числовая переменная
$b="simvol";    # Символьная переменная

print 2*7+4/(8%3);
print int(127/15); #Целая часть

print 2**16;

$i++; # Увеличить переменную $i на 1

$x=3; $y=4; print $x|$y;
print $x&$y;

if ($x==9) { print "Ok!"; }

if ($test eq 'ok') { print "All right!"; }

if (($test eq 'ok') || ($x==9) { print "All right!"; }

$x=10,$y=20;

$url='http://'.'rambler.ru';

print '1234'x3; # Получится '123412341234'

if ($url=~/http/) { print "HTTP"; }

$x+=$y; # Прибавит к переменной $x переменную $y

$x='perem1';
print 'Var = $x'; или print "Var = \$x"; # Выведет 'Var = $x'
print "Var = $x"; # Выведет 'Var = perem1'

@array1=(1,2,3,4,5);
@array2=(30,40,@array1); # Добавление к @array2 всех элементов @array1
@array3=($perem1,$perem2,$perem3);

@array1=(1..20);
@array1[2,10,20]=(20,3,4); # Замена элементов под номерами 2 10 и 20 числами 20 3 и 4
@array1[20,1]=@array1[1,20] # Меняет элементы местами

push(@array1,$perem1); # Добавляет $perem1 в конец @array
unshift(@array,$perem1); # Добавляет $perem1 в начало @array
$perem1=pop(@array1); # Присваивает $perem1 последнему элементу массива @array
$perem1=shift(@array); # Тоже самое с первым элементом

$hash{1}="key1";
$hash{'myset'}="www.rambler.ru";
$hash{1+2}=50;

%hash(1,20,2,100); # Чётное кол-во элементов обязательно! 
# Запись аналогична $hash{1}=20; $hash{2}=100;

delete($hash{1});

%hash(1,20,2,100,3,'test');
@key=keys(%hash); # @key=(1,2,3);
@value=values(%hash) # @value=(20,100,'test');

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

unless(($method eq "GET")||($method eq "POST")) {
print "Unknown method";
}
print "Ok" unless $y > $x;

while(!eof(FILE)) {
# Операторы ...
}

until(eof(FILE)) {
# Операторы ...
}

for($i=0;$i<10;$i++) { # Выходим из цикла при $i<10
print $i; # Начальное значение $i=0
} # При каждой прокрутке цикла увеличиваем $i на 1

foreach $переменная (@массив) {
# Операторы...
}

foreach (@массив) {
# Операторы
}

@data=<STDIN>;
foreach(@data) {
chomp;
print if /^From:/;
}

@data=<STDIN>;
foreach $_ (@data) {
chomp ($_);
print $_ if $_=~/^From:/;
}

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

if(/(ftp|http):\/\/([^\/]+)(.*)/){
print "Протокол: $1\n";
print "Сервер: $2\n";
print "Документ: $3\n";
}

/[abc]d/; # Соответствует ad, bd и cd

/^[xyz]/; # Соответствует всему, что не содержит x, y или z

/(xyz)*//([abc].[^xy]qwerty)/;

/(ftp|http|mailto)/;

/*./; # Соответствует всему

/^http/;
/\.cgi$/;

$test1="this is test";
$test2="wise";
if($test1=~/\bis\b/) { print "1"; } # Соответствует
if($test2=~/\bis\b/) { print "0"; } # Не соответствует
/\Bis\B/ #соответтсвует 'wise' но не 'is'

if($test=~/test/i) { print "Not register"; } 
# Соответствует как test, так и TEST

$x="This is test";
$x=~s/ /_/g;
print $x; # Выведет "This_is_test"

Perl-программирование

open(myfile,"myfile"); # Открыть файл для чтения
open(myfile,">myfile); # Открыть файл для записи
open(myfile,">+myfile); # Открыть файл для чтения и записи
open(myfile,">>myfile); # открыть файл для дозаписи

$str=<переменная>; # Где переменная соответствует переменной, обьявленой в open() 

@str=<переменная>;

open(passwd,"/etc/passwd");
while ($read=<passwd>){
print "$read\n";
}
close(passwd);

if(-e "file") {print "Yes"; }

 if(-z "tmp") { unlink("tmp"); }

if(-d "myfile") { chdir("myfile"); }

unlink("file") if (-s "file" < 20);

Другие полезные функции

@massiv=split(/:/,$str); # Разбивает строку по ":"
print "$massiv[0]\n"; # Печатает первый элемент, стоящий перед ":" в строке
$str=join(/;/,@massiv); # Склеивает все элементы массива по ";"

substr($строка,начальный номер элемента,конечный номер элемента);
$str1=substr($str,0,7); # Присваивает $str1 первые 7 элементов $str;

$count=lenght($str); # Возвращает кол-во символов в $str
$arr=scalar(@array); # Возвращает кол-во элементов в массиве @array

Сайты