Глава 19. Примеры применения Perl для различных нужд
Следующая программа переводит текстовый файл в формат HTML (вспомните сколько хлопот вам доставит отлов во всем файле "<", ">" и "&", чтобы заменить их на &tl;, > и &, а как неплохо, чтобы автоматически все http://www.... превратились в <A НREF="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/&/&/g;
s/</</g;
s/>/>/g;
s/(http:\/\/\S+)/<A НREF="$1">$1<\/A>/g;
print OUT $_;
}
close(IN);
close(OUT);
<< назад   Содержание    далее >>
При копировании материалов прямая гиперссылка обязательна russia-job.ru
Наша почта: russia-job@yandex.ru.
|