Статьи и справочные
материалы

Сделаем простенький инструмент для замены &, < и > в тексте на &amp;, &lt; и &gt; соответственно.

Это может быть полезно, когда хочется поместить отформатированный кусок html-кода на страничке. В дальнейшем, надеюсь, функциональность повысится, и можно будет заменять не только угловые скобочки.

Пишем вот такой перловый скрипт. Здесь уже пригодился наш инструмент (:

	#!/usr/bin/perl
	use strict; 
	use CGI; 
	my $cgi = new CGI; 
	print $cgi->header(); 
	my $text = $cgi->param('value'); 
	$text =~ s/\&/&/mg; 
	$text =~ s/\</&lt;/mg; 
	$text =~ s/\>/&gt;/mg; 
	$text = $cgi->escapeHTML($text); 
	$text =~ s/\n/\<br\/\>/mg; 
	print $text; 
	$cgi->end_html();

В форме на кнопку вешаем Ajax-запрос, который вызовет этот скрипт с сервера и вернет закодированный текст. Копируем текст со странички и вставляем куда требуется.