Сообщество преподавателей информатики ФМШ - perl

Упражнения и задания к урокам

Anonymous (anonymous@undisclosed.example.com) — 2017-04-04T10:30:27+00:00

Упражнения и задания к урокам Урок 0: простые числовые функции Задание: Написать небольшой скрипт, который вычисляет некоторую числовую функцию, определненную самим программистом (корни квадратного уравнения, факториал натурального числа, числа Фиббоначи, простое число или составное и т.п.)…

Факториал натурального числа

Anonymous (anonymous@undisclosed.example.com) — 2012-10-09T09:48:44+00:00

Факториал натурального числа #!/usr/bin/perl $m = 8; print "\n test m= $m, m!=".fakt($m); sub fakt { my($n) = $_[0]; if($n<0) {die "argument can't be negative!"}; # необходимо добавить проверку на нецелые и нечисловые аргументы unless($n) {return(1)} else {return( $n*fakt($n-1) )}; }

Образец задания к уроку 1

Anonymous (anonymous@undisclosed.example.com) — 2010-03-08T09:51:34+00:00

Образец задания к уроку 1 #!/usr/bin/perl print "\nВведите Ваше имя: "; $s = ; chomp ($s); print "\n Доброго времени суток, $s!\n"; print "\nВы хотите посмотреть, кто ранее делал то же самое? (y/n):"; $yesno = ; chomp ($yesno); open (MYWRI, ">>testvisits.txt") || die "Can't open file testvisits.txt: $!"; print MYWRI $s."\n"; close(MYWRI); if ($yesno eq 'y') { open (MYREAD, "testvisits.txt") || die "Can't open file testvisits.txt: $!"; while ($line = ) { …

Образец задания к уроку 2

Anonymous (anonymous@undisclosed.example.com) — 2010-03-08T09:52:10+00:00

Образец задания к уроку 2 #!/usr/bin/perl %account = qw( vova 123 vasya 456 admin admin ); $account{'guest'} =''; open (VISITLIST, 'visit.txt') || die "cannot open file visit.txt ",$!; foreach $i (sort keys(%account)) { chomp($visit{$i} = ); }; close(VISITLIST); open (DATELIST, 'date.txt') || die "can't open file date.txt ", $!; foreach $i (sort keys(%account)) { chomp($date{$i} = ); }; close(DATELIST); system "clear"; print "\n Hi! Anytime you can type …

Anonymous (anonymous@undisclosed.example.com) — 2010-03-08T09:50:49+00:00

#!/usr/pin/perl $file = "perlintro.html"; $file2 = $file.'.txt'; open (MYIN, "<$file") || die "Can't open file $file: $!"; open (MYOUT, ">$file2") || die "Can't write to file $file2: $!"; while ($str = ) { $n = index($str,'<'); break if $n < 0; do { $m = index($str,'>',$n); $l = $m - $n + 1; substr($str,$n,$l) = ''; # 0123456789 # n m $n = index($str,'<',0); } while ($n >= 0); print MYOUT $str; }; close(MYIN); close(MYOUT);

Anonymous (anonymous@undisclosed.example.com) — 2010-03-13T09:19:51+00:00

Anonymous (anonymous@undisclosed.example.com) — 2010-10-23T10:14:43+00:00

#!/usr/bin/perl print < Первый cgi-скрипт!!

Первый cgi-скрипт

Данный скрипт оформлен с особым способом вывода PERL\'а "here-is-document".

Вполне возможно использовать и другие способы вывода с помощью функции print.

MyEND __END__…

Anonymous (anonymous@undisclosed.example.com) — 2010-04-03T08:43:44+00:00

#!/usr/bin/perl use CGI qw(:standard); # загружаем модуль со стандартными опциями $s = param("testfield"); # $s = "xxx"; # отладка print header(-charset=>"utf-8"); # Указываем кодировку # print header(-charset=>"windows-1251"); # print header(); # заголовок по умолчанию print start_html("Your input"), p("You input were: $s"), end_html(); # формируем полностью тело страницы, используя полезные функции…

Anonymous (anonymous@undisclosed.example.com) — 2010-04-03T08:51:18+00:00

Test Form!

Test form

Anonymous (anonymous@undisclosed.example.com) — 2010-04-09T15:40:47+00:00

#!/usr/bin/perl $x = $ENV{QUERY_STRING}; print < Отобразим ввод

Что было…

Вы ввели: $x

(следует отметить, что ни элементы формы, ни символы вне ASCII-подмножества не декодируются)

MyEND __END__

Anonymous (anonymous@undisclosed.example.com) — 2010-04-09T15:22:20+00:00

Test Form!

Test form

Anonymous (anonymous@undisclosed.example.com) — 2017-02-28T08:41:53+00:00

Вот, минимальный образец кода, который необходимо скомпилировать, сделать исполняемым и положить в папку `cgi-bin`. program mini; uses dos; var a:string; begin // указываем тип содержимого, как текстовой writeln('Content-Type:text/plain'); writeln(); // данные, переданные методом GET a:=''; a:= GetEnv('QUERY_STRING'); writeln('GET: ',a); end.…

Anonymous (anonymous@undisclosed.example.com) — 2015-03-10T11:21:00+00:00

test ok go went gone I don't know how to count this test one two one two we have a test to do So, I'm glad to present you this test. Now, all the text with test will go again. test ok go went gone I don't know how to count this test one two one two we have a test to do So, I'm glad to present you this test. Now, all text with test will go again.

Anonymous (anonymous@undisclosed.example.com) — 2010-10-23T10:17:06+00:00

Simple test

Простой файл для удаления тэгов

Anonymous (anonymous@undisclosed.example.com) — 2010-03-13T09:38:01+00:00

Список литературы о монадах в Haskell

A. Основы Haskell

http://darcs.haskell.org/yaht/yaht.pdf - Yet Another Haskell Tutorial, один из самых простых и в то же время больших туториалов.
Anonymous (anonymous@undisclosed.example.com) — 2015-03-17T11:56:06+00:00
Вот тест-скрипт на Bash #!/bin/sh # disable filename globbing set -f echo Content-type: text/plain echo echo CGI/1.0 test script report: echo echo argc is $#. argv is "$*". echo echo SERVER_SOFTWARE = $SERVER_SOFTWARE echo SERVER_NAME = $SERVER_NAME echo GATEWAY_INTERFACE = $GATEWAY_INTERFACE echo SERVER_PROTOCOL = $SERVER_PROTOCOL echo SERVER_PORT = $SERVER_PORT echo REQUEST_METHOD = $REQUEST_METHOD echo HTTP_ACCEPT = "$HTTP_ACCEPT" echo PATH_INFO = "$PATH_INFO" echo PATH_TRANSLATED = "$…