Программирование на Perl

[scromniaga]

Скажите пожалуйста, как на Perl программировать и что для этого нужно?
Книгу купил, код написал, а посмотреть чо получеилось не могу.

#!/usr/bin/perl
# file: lgetl.pl
# Figure 1.1: Read the first line of a local file

use IO::File;

my $file = shift;
my $fh = IO::File->new($file);
my $line = <$fh>;
print $line;

Смысл здесь понятен. Он считывает первую строку этого файла.
Что нужно, чтобы запустить скрипт?

Также в этой теме будут обсуждаться ВАШИ вопросы и советы по Perl.

[ana]

Цитата: Сообщение от scromniaga Скажите пожалуйста, как на Perl программировать и что для этого нужно?

Мой совет поставь себе DzSoft Perl Editor
http://www.dzsoft.com/perl-editor.html

он сам запускает и отлаживает программы.
Все свои Perl программы я написал на нём.

Taм же он тебе покажет ошибки...

[proparket]

Я вот Дизи софтом не пользовался, но может подскажет кто.
Я делал простую форму заказа тура со страницы сайта (его еще нет). С формой получилось все ОК, а вот скрипт перла, который правильно отправляет данные из форм на email владельца хромает на все четыре. Нет все из форм он отправляет и прописывает и дату и IP клиента (или спаммера), а вот письмо присылается с кракозябрами в месте "ОТ КОГО" у которых на конце добавлено еще и /@jino.ru/ (последнее это мой хостер). Заметно, что собрана из кусков да и еще и с ошибками.
Может кто более умный посмотрел бы сей опус. А?
================================================== ========

#!/usr/bin/perl

$mailprog = '/usr/lib/sendmail';
$thank_url = 'http://хххххххххххх.ru/thankyou.htm';
$archivefile = 'contact.txt';
$toname = 'Для хххххххх заказ';
$tomail = 'ххххххх@rambler.ru';
$subject = 'Клиент пришел с сайта ххххххххх';

@months = ("Января","Февраля","Марта","Апреля","Мая","Июн я",
"Июля","Августа","Сентября","Октября","Ноября","Де кабря");
$at = "в";

$timeoffset = +4;
$timezone = '(время московское)';

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;

$FORM{$name} = $value;
}

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isd st) = gmtime(time+$timeoffset*3600);
$time = sprintf("%02d:%02d",$hour,$min);
$year += 1900;
$date = "$mday $months[$mon] $year $at $time $timezone";


open(HANDLE,"|$mailprog -t") || die "Не возможно открыть $mailprog!\n";
&send_message;
close(HANDLE);

open(HANDLE, ">>$archivefile") || die "Не возможно открыть архив для записи: $!";
&send_message;
print HANDLE "\n=======================================\n\n ";
close(HANDLE);

print "Location: $thank_url\n\n";;

sub send_message {
print HANDLE "To: $toname <$tomail>\n";
print HANDLE "From: $FORM{'name'}\n";
print HANDLE "Тема письма: $subject\n";
print HANDLE "$date\n";
print HANDLE "Это сообщение пришло со страницы $ENV{'HTTP_REFERER'}.\n";
print HANDLE "IP адрес пользователя: $ENV{'REMOTE_ADDR'}\n\n";
print HANDLE "Этот клиент хочет: $FORM{'tur'}\n";
print HANDLE "В какой стране: $FORM{'strana'}\n";
print HANDLE "Мои координаты: $FORM{'contact'}\n";
print HANDLE "\n ==========Дополнительные пожелания==========\n";
print HANDLE "$FORM{'name'}\n";
print HANDLE "$FORM{'message'}";
print HANDLE "\n ================Конец заказа================\n";
}

[linuxoidden]

Как можно сделать на серваке так чтобы не исполнялись сценарии Perl которые запускают самого себя?

[mictian]

Цитата: Сообщение от linuxoidden Как можно сделать на серваке так чтобы не исполнялись сценарии Perl которые запускают самого себя?

Если имеется в виду доступ к командному интерпретатору из исполняемого сценария, то следует почитать по поводу "меченных данных"

[koroboomer]

Цитата: Сообщение от ana Мой совет поставь себе DzSoft Perl Editor http://www.dzsoft.com/perl-editor.html он сам запускает и отлаживает программы. Все свои Perl программы я написал на нём. Taм же он тебе покажет ошибки...

Другой отличный редактор для Perl - это Komodo IDE

[Multick]

Перл это вообше страшнявещь, я пользовался DzSoft Perl Editor по моему самый оптимальный вариант

[WebZ]

2ой строкой пропиши:
use CGI::Carp qw(fatalsToBrowser);
и перл укажет на ошибки

[Mirover]

Цитата: Сообщение от ana Мой совет поставь себе DzSoft Perl Editor http://www.dzsoft.com/perl-editor.html он сам запускает и отлаживает программы.

О отличная прога ! Хорошо что я на этот форум набрел ))

А кейгана нету случаем? Или pro версии?

Добавлено через 9 минут

Цитата: Сообщение от koroboomer Другой отличный редактор для Perl - это Komodo IDE

Ага, причем я хотел сперва спросить где мона скачать, но немного поискав нашел сам)
http://download.bestequipment.ru/download.php?id=20241

Тока все равно мучает вопрос, кейген не знаете случаем, где достать мона? Так, чтобы 20$ не платить

[chorny]

Ещё можно Eclipse использовать вместе с E-P-I-C. Но установить не очень легко.

[Antony69]

Perl нужно изучать по Lame Book, тогда все будет понятно. Да и в Perl великолепный хэлп.

[greenposter]

Хочу дать свой совет новичкам.
Протестируйте выполнение скриптов на сервере.
Создайте простейший файл test.pl и сохраните его в папке cgi
#!/usr/bin/perl
print "Content-type: text/html\n\n",'<h4>Hello, Word!!!</h4>'; exit;
на папку поставьте права 777
в строке браузера www.сайт/test.pl
Папка CGI и расширение .pl могут по разному называться.
Язык перл удобен тем, что написано много модулей.

[xeoniv]

Пользуюсь ubuntu 7.10 Все сценарии пишу на Перле. Работает

[mirak]

VIM и только он.. никаких IDE

[svar0g]

как сделать что бы апач обрабатывал перл скрипты?