|
www.russia-job.ru |
|
| Форум | Новые проекты | Контакты | Реклама на сайте | Работаем вместе | ||
Все о работе Работа на дому Поиск работы Работа в Интернете Виды заработка Создание сайта Мошенничество Полезные статьи Новости Халява в сети Разное Вебмастеру Web-дизайн Вопросы Литература Шаблоны сайтов Разное Карта сайта Ссылки О сайте
| WEB-дизайн. Полное руководство / Часть 7. Язык Perl /Глава 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. | |
|
|
|
|