Создание серверных приложений на языке PERL


Прекрасный язык Perl - часть 6


Надеюсь что я вас позабавил примерами функций ;).

Примеры применения Perl для различных нужд...

Следующая программа переводит текстовый файл в формат HTML (вспомните сколько хлопот вам доставит отлов во всем файле '<', '>' и '&' чтоб заменить их на &tl; , &gt; и &amp;

а как неплохо чтоб автоматически все http://www.... превратились в <A href="http://www...." >http://www....</A>)

#!/usr/bin/perl #txt2html die "Usage: txt2html Infile OutFile\n" unless(@ARGV); open IN,"$ARGV[0]" || die "Cannot open $ARGV[0] $! \n"; open OUT,">$ARGV[1]" || die "Cannot open $ARGV[1] $! \n"; while(<IN>){ s/&/&amp;/g; s/</&lt;/g; s/>/&gt;/g; s/\n/<BR>\n/g; s/(http:\/\/\S+)/<A href="$1">$1<\/A>/g; print OUT $_; } close IN; close OUT;

Более подробную информацию о Perl вы можете получить по адресам:

http://www.perl.com

http://www.metronet.com/0/perlinfo/perl5/manual/perl.html

http://www.ActiveWare.com/




Начало  Назад  Вперед



Книжный магазин