Компьютерный форум NoWa.cc Здесь может быть Ваша реклама
Правила Форума
редакция от 22.06.2020
Портал .::2BakSa.WS::.
Вернуться   Компьютерный форум NoWa.cc > В помощь вебмастеру > Веб - Программирование > Perl

Приобретайте Windows и Office на Зимней распродаже, цены стартуют от $7,4!
Холодная зима в самом разгаре и выходить на улицу достаточно сложно. А в сочетании с влиянием COVID-19, покупки через Интернет и работа из дома становятся предпочтительным выбором для всё большего числа людей. 
Почувствуете тепло Keysfan в холодные зимние месяцы. Если вы пропустили рождественские и новогодние распродажи, все самые популярные товары и по супернизким ценам вы найдёте в рамках этой замечательной Зимней распродажи. Цены на операционные системы и офисное программное обеспечение Microsoft снижены до самых низких приделов. Среди них классическая Windows 10 всего за $7.43. Если вы хотите лучше справляться с работой дома с помощью новейшей ОС и офисных программ, то Windows 11 + Office 2021 - отличный выбор. Для получения более подробной информации о скидках, пожалуйста, ознакомьтесь с информацией ниже.
keysfan.comУзнать подробнее
Все самые горячие предложения по самым низким ценам: Windows 11, Office 2021, Windows 10, Office 2019.
Ответ
 
Опции темы Поиск в этой теме Опции просмотра Language
Старый 07.03.2007, 23:40   #1
Неактивный пользователь
 
Регистрация: 11.02.2007
Сообщений: 31
Репутация: 15
По умолчанию Программирование на Perl

Скажите пожалуйста, как на 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.
scromniaga вне форума
 
Ответить с цитированием Вверх
Здесь может быть Ваша реклама


Реклама: односпальные кровати каталог и ценыстолы круглыеrak-tw.1200b-h siemensстол для гостиной раскладноймикроскоп стоматология купить


Старый 09.03.2007, 17:55   #2
ana
Координатор
 
Аватар для ana
 
Пол:Мужской
Регистрация: 20.10.2004
Адрес: Germany
Сообщений: 550
Репутация: 312
По умолчанию Re: Программирование на Perl

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

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

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

Taм же он тебе покажет ошибки...
__________________
Лучше сидеть в маленькой душной пивной , чем работать на большом светлом заводе...
ana вне форума
 
Ответить с цитированием Вверх
Старый 03.05.2007, 22:17   #3
proparket
Неактивный пользователь
 
Аватар для proparket
 
Пол:Мужской
Регистрация: 21.10.2005
Сообщений: 41
Репутация: 54
По умолчанию Re: Программирование на Perl

Я вот Дизи софтом не пользовался, но может подскажет кто.
Я делал простую форму заказа тура со страницы сайта (его еще нет). С формой получилось все ОК, а вот скрипт перла, который правильно отправляет данные из форм на 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";
}
__________________
Был, есть, и буду есть! Пить тоже буду.

Последний раз редактировалось proparket; 03.05.2007 в 22:53..
proparket вне форума
 
Ответить с цитированием Вверх
Старый 23.05.2007, 16:52   #4
linuxoidden
Неактивный пользователь
 
Регистрация: 22.05.2007
Сообщений: 5
Репутация: 2
По умолчанию Ответ: Программирование на Perl

Как можно сделать на серваке так чтобы не исполнялись сценарии Perl которые запускают самого себя?
linuxoidden вне форума
 
Ответить с цитированием Вверх
Старый 23.05.2007, 19:11   #5
mictian
Новичок
 
Пол:Мужской
Регистрация: 27.05.2006
Сообщений: 16
Репутация: 5
По умолчанию Ответ: Программирование на Perl

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

Если имеется в виду доступ к командному интерпретатору из исполняемого сценария, то следует почитать по поводу "меченных данных"
mictian вне форума
 
Ответить с цитированием Вверх
Старый 08.07.2007, 13:41   #6
koroboomer
Неактивный пользователь
 
Регистрация: 08.07.2007
Сообщений: 4
Репутация: 2
Thumbs up Ответ: Re: Программирование на Perl

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

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

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

Другой отличный редактор для Perl - это Komodo IDE
koroboomer вне форума
 
Ответить с цитированием Вверх
Старый 10.08.2007, 04:02   #7
Multick
Неактивный пользователь
 
Регистрация: 10.08.2007
Сообщений: 2
Репутация: 0
По умолчанию Ответ: Программирование на Perl

Перл это вообше страшнявещь, я пользовался DzSoft Perl Editor по моему самый оптимальный вариант
Multick вне форума
 
Ответить с цитированием Вверх
Старый 18.12.2007, 20:12   #8
WebZ
Неактивный пользователь
 
Регистрация: 29.07.2007
Сообщений: 1
Репутация: 0
По умолчанию Ответ: Программирование на Perl

2ой строкой пропиши:
use CGI::Carp qw(fatalsToBrowser);
и перл укажет на ошибки
WebZ вне форума
 
Ответить с цитированием Вверх
Старый 17.01.2008, 09:12   #9
Mirover
Неактивный пользователь
 
Регистрация: 16.01.2008
Сообщений: 3
Репутация: 1
По умолчанию Ответ: Re: Программирование на Perl

Цитата:
Сообщение от 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$ не платить

Последний раз редактировалось Mirover; 17.01.2008 в 09:21.. Причина: Добавлено сообщение
Mirover вне форума
 
Ответить с цитированием Вверх
Старый 15.02.2008, 02:49   #10
chorny
Неактивный пользователь
 
Пол:Мужской
Регистрация: 28.12.2007
Сообщений: 43
Репутация: 9
По умолчанию Ответ: Программирование на Perl

Ещё можно Eclipse использовать вместе с E-P-I-C. Но установить не очень легко.
chorny вне форума
 
Ответить с цитированием Вверх
Старый 07.03.2008, 21:43   #11
Antony69
Неактивный пользователь
 
Пол:Мужской
Регистрация: 28.03.2007
Сообщений: 4
Репутация: 0
По умолчанию Ответ: Программирование на Perl

Perl нужно изучать по Lame Book, тогда все будет понятно. Да и в Perl великолепный хэлп.
Antony69 вне форума
 
Ответить с цитированием Вверх
Старый 29.03.2008, 19:14   #12
greenposter
Неактивный пользователь
 
Регистрация: 28.03.2008
Сообщений: 4
Репутация: 0
По умолчанию Ответ: Программирование на Perl

Хочу дать свой совет новичкам.
Протестируйте выполнение скриптов на сервере.
Создайте простейший файл test.pl и сохраните его в папке cgi
#!/usr/bin/perl
print "Content-type: text/html\n\n",'<h4>Hello, Word!!!</h4>'; exit;
на папку поставьте права 777
в строке браузера www.сайт/test.pl
Папка CGI и расширение .pl могут по разному называться.
Язык перл удобен тем, что написано много модулей.
greenposter вне форума
 
Ответить с цитированием Вверх
Старый 14.05.2008, 22:41   #13
xeoniv
Неактивный пользователь
 
Пол:Мужской
Регистрация: 14.05.2008
Сообщений: 3
Репутация: 0
По умолчанию Ответ: Программирование на Perl

Пользуюсь ubuntu 7.10 Все сценарии пишу на Перле. Работает
xeoniv вне форума
 
Ответить с цитированием Вверх
Старый 16.08.2008, 15:26   #14
mirak
Неактивный пользователь
 
Регистрация: 16.08.2008
Сообщений: 1
Репутация: 0
По умолчанию Ответ: Программирование на Perl

VIM и только он.. никаких IDE
mirak вне форума
 
Ответить с цитированием Вверх
Старый 17.08.2008, 03:25   #15
svar0g
Неактивный пользователь
 
Пол:Мужской
Регистрация: 17.08.2008
Сообщений: 4
Репутация: 1
По умолчанию Ответ: Программирование на Perl

как сделать что бы апач обрабатывал перл скрипты?
svar0g вне форума
 
Ответить с цитированием Вверх
Ответ
Уважаемые пользователи nowa.cc и 2baksa.ws. У нас сложилось тяжелое финансовое положение. Мы работаем для вас вот уже более 15 лет и сейчас вынуждены просить о помощи. Окажите посильную поддержку проектам. Мы очень надеемся на вас. Реквизиты для переводов ниже.
Webmoney Webmoney WMZ: 826074280762 Webmoney WMR: 146037758184 Webmoney WMP: 209123518174 Webmoney WME: 804621616710
PayPal PayPal_Email E-mail для связи по вопросу помощи
Кошелек для вашей помощи YooMoney 410013204813773
YooMoney Спасибо за поддержку!

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Perl + TOR roddik Perl 3 11.09.2009 13:05
(PERL) fetch_array Serdg Perl 2 22.08.2009 21:48
About Perl Ivan_32 Программирование 2 04.07.2008 11:22
Tutorial php, xml, perl,cgi vom_bat Различные ссылки 0 16.01.2007 14:27

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 07:47. Часовой пояс GMT +3.


Copyright ©2004 - 2022 2BakSa.WS

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2022, vBulletin Solutions, Inc. Перевод: zCarot
Время генерации страницы 0.22544 секунды с 11 запросами