mem #25

perl -i.bak -ple "s/\r|\n//g;binmode ARGVOUT" file.txt

mem #24

Область видимости переменных. Для управления видимостью используются слова my, our, local. Ограничивается видимость блоком {}, файлом или пакетом. Простой пример:

#!/usr/bin/perl
use strict;
my $q=0;
our $a=1;
our $z=555;
{
my $q="null";
local $a="five";
print '$q = ',$q,"\t\$a = ",$a,"\t\$z = ",$z,"\n--\n";
}
print '$q = ',$q,"\t\$a = ",$a,"\t\$z = ",$z,"\n--\n";

Прочитай скрипт, запусти, помедитируй. Всё ли понятно?

mem #23

Ворч, это для тебя, как для начинающего. Ну и для меня, склероз свой порастрясти...

Приём данных из формы, очень простой скрипт:

#!/usr/bin/perl

use CGI;
use strict;

my $q = new CGI;
my $q->import_names('R'); # импорт данных в пространство имён R

open my $f, ">q.txt"; # открываем файл для записи.
# и пишем данные полученные из формы, 
# обращение к содержимому поля происходит так: $NameSpase::fieldname.
print $f $R::mytextarea1, $R::mytextarea2;

mem #22

Задача недели - найти способ соединяться с MS Exchange, читать и записывать в его базу контакты.

...#...

Поздравляю всех с днём программиста!

CMS разрабатывается вяло. Пока сделано - управление новостями, частично фотогалереями и начата работа над форумами.

mem #21