» Html
» Java Script

» PHP

» Perl

» ASP

» CGI

» Xml

» Dhtml

» VBScript

» Java

» Css

» Photoshop

» Corel Draw

» Dreamwawer

» Flash MX

» Программы

» Книги

» Сайтов

» Flash

» Скрипты

» язык perl

     » Главная страница

     » Вернуться к содержанию ( Perl )

Примеры применения 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/(http:\ /\ /\ S+)/<A href=”$1”>$1<\ /A>/g;

print OUT $_;

}

close(IN);

close(OUT);

Процесс обучения perl закончен.

Надеемся, что вы добьетесь успехов в веб дизайне.

Изучить еще что нибудь?