Общие вопросы

• Что такое Perl?
  
• Кто его придумал?
  
• Для чего его используют?
  
• Под какие платформы он существует?
  
• Сайт перла какой? Где взять последнюю версию?
  
• А компилятор где взять?
  
• Как сделать то-то? Может, уже есть готовая библиотека?
  
• Где взять скриптов готовых, побольше?
  
• А вот у меня вопрос...
  
• Какие существуют редакторы для написания программ, с подсветкой?
  

Книжки

• Какую книгу для начинающих посоветуете?
  
• А для продолжающих?
  
• А в электронном виде где книги взять?
  

perl+Windows

• Как прикрутить perl к винде, чтобы можно было скрипты выполнять локально?
  
• У меня перл от Activestate, как мне поставить такой-то модуль?
  
• А из браузера как смотреть на вывод скрипта? Почему-то показывается исходник.
  
• Как заставить работать связку perl + MySQL под виндой?
  

Regular expressions (регулярные выражения)

• А что это за закорючки такие в скрипте - s/^[^\w]{1,3}(\d+)/$1/
  
• Как ими пользоваться?
  
• Как не учитывать регистр в русском тексте? С английским регекспы с ключом i работают, а с русским - нет.
  
• Кто-нибудь может мне по-русски рассказать о операторах: ?:, ?!, ?= и т.д. и когда они используются?
  

Data Bases

• Как работать из perl с базами данных?
  

Примеры функций, разное

• Как округлить число?
  
• Как получить текущую дату и время?
  
• Функция time() возвращает время с точностью до секунды. Как работать с меньшими промежутками?
  
• Как по дате вычислить день недели?
  
• Как, зная дату и время, получить количество секунд, прошедших до этого времени с 1970 года (unix-time format)?
  
• Можно ли сделать GUI-интерфейс в перловой программе, или вывод в GUI-окно ее результатов?
  
• Как устроить загрузку файла с удаленного сервера? Проще говоря, скачать скриптом файл с http или ftp
  
• Как передать из одного скрипта данные другому скрипту методом GET, вроде бы понятно. А как передавать данные методом POST?
  
• Как создавать графические файлы на лету? Как наложить число на картинку(счетчик)?
  

E-mail

• Как послать e-mail из скрипта?
  
• Sendmail это хорошо, а как из под виндов?
  
• Как послать по e-mail письмо с аттачем?
  
• Можно ли проверить, существует ли определенный e-mail адрес?
  

WWW,CGI-специфика

• Я положил скрипт на сервер, ввожу его путь в браузер, но вместо того, чтобы выполнять скрипт, браузер выводит его исходный текст.
  
• При попытке запустить скрипт происходит 500 Internal Server Error! Что это за ошибка?
  
• Как узнать IP человека, вызвавшего скрипт?
  
• Как узнать, с какой страницы идет ссылка на скрипт?
  
• Как узнать IP прокси, если через нее запустили скрипт?
  
• А можно ли узнать IP юзера, запустившего скрипт через прокси?
  
• А какие еще значения есть у этого %ENV?
  
• Как запускать скрипт на сервере через определенные промежутки времени, или в определенное время суток, день недели, месяц?
  
• Как, зная ip, получить имя (DNS), за которым этот ip закреплен?
  
• Что такое method GET, и что такое method POST?
  
• Как обрабатывать параметры, переданные скрипту?
  
• Посоветуйте халявный хостинг с поддержкой CGI-perl.
  
• Что надо указатьв заголовках HTTP-ответа CGI скрипта, выводящего содержимое, которое надо не показать на экране, а сохранить в файле с заданным именем, например 'download.zip' ? А то браузер сохраняет файл с именем скрипта.
  
• Директивы SSI не обрабатываются в выводе скрипта. Что делать?
  

Примеры скриптов

• Как одновременно поставить куки и сделать редирект?
  
• Вечная тема - закачка файла на сервер(upload).
  

Задачки

• Hello, world!
  

Общие вопросы

Читайте доку бо она рулез!

Книжки

perl+Windows

Regular expressions (регулярные выражения)

Data Bases

Примеры функций, разное

E-mail

WWW,CGI-специфика

Примеры скриптов

sub ReLocate


{


 my($url,$cookie)=@_;


 print "Status: 302 Moved\n";


 if ($cookie ne '') { print "Set-Cookie: $cookie\n" }


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


}

#!/usr/bin/perl # используйте -T для CGI-скриптов


$SIG{ALRM} = sub { die "$0 timed out" }; # эти 2 строки не работают под


alarm 900; # Windows, но они необязательны


use strict; # спасает от глупых ошибок


use Fcntl; # O_EXCL, O_CREAT и O_WRONLY


use CGI qw (:standard); # читайте "perldoc CGI"


use CGI::Carp qw (fatalsToBrowser); # вывод ошибок к browser-у


$CGI::POST_MAX = 131072; # максимальный ввод = 128 KB


my $foto = param ('foto'); # имя файла и одноврем. handle


my $DIR = '/home/alex/pics' # не забудьте "chmod 777 pics"


my $JS = " // JavaScript-функция для пред-


 // варительной проверки формы


function check (form)


{


 if (form.elements['foto'].value.length < 4)// foto должно быть заполнено


 {


 alert ('A gde zhe foto?'); // показать JavaScript-окошко


 form.elements['foto'].select (); // выделить текст в поле foto


 form.elements['foto'].focus (); // и прыгнуть туда курсором


 return false; // false запретит browser-у


 } // отправлять данные к серверу


 return true; // все OK - можно отправлять


}";


print header (-type => 'text/html; charset=koi8-r'),


 start_html (-title => 'МИСС ИHТЕРHЕТ', # напечатать заголовок и $JS


 -script => $JS);


 


# regex внизу проверяет, есть ли .gif или .jp(e)g в конце и кладет имя


# файла в $1


if ($foto !~ /([\w-]+ \. (?: gif | jpe?g ))$/ix) #только имя,путь выкидывается


{


 print h1 ('Отправьте нам фото!'), #start_form работать не будет


 start_multipart_form (-onsubmit => 'return check (this)'),


 filefield (-name => 'foto'),


 submit (-value => 'Go baby go!'), # напечатать форму с кнопкой


 end_form; # напечатать


}


# Этот скрипт никому не мешает вводить мусор (например xxxx.gif) в поле foto,


# что приведет к созданию пустых файлов; если это Вас беспокоит, установите


# новую версию CGI.pm и прочтите


# http://stein.cshl.org/WWW/software/CGI/#upload


elsif (not sysopen FILE, "$DIR/$1", O_EXCL | O_CREAT | O_WRONLY, 0444)


{


 print h1 ("Hе могу создать $DIR/$1: $!"); # ошибка или такой файл уже есть


}


# Портятся файлы при посылке? См. ниже!


else # все в порядке - файл создан


{


 binmode FILE; # включить binmode для Windows


 print FILE while (<$foto>); # и скопировать данные в файл


 close FILE;


 print h1 ('Сердечное Вам спасибо!'); # воспитывать как собак Павлова


}


print end_html; # напечатать


==========================

Задачки

$_=q$qsjou<vd<r<aia+<rr<bfmmp+<xpsme=\ob$;


y?<-@*-.b-z? -$+-/a-y?;s=\D+=$&=ee