Вообще такая задача решается одной функцией. Но если вам модули по душе - то ищите на спан.
Я пользуюсь в основном двумя функциями - для работы с HTML.
sub _toHTML {
my $Tmp=shift;
return \'\' unless defined $Tmp;
$Tmp =~ s|&|&|g;
$Tmp =~ s||-->|g;
$Tmp =~ s| $Tmp =~ s|>|>|g;
$Tmp =~ s|<|<|g;
$Tmp =~ s|"|"|g;
$Tmp =~ s!^\\s+!!;
$Tmp =~ s!\\s+$!!;
$Tmp =~ s| | |g;
$Tmp =~ s!\\|!|!g;
$Tmp =~ s|\\n|
|g;
$Tmp =~ s|\\$|$|g;
$Tmp =~ s|\\r||g;
$Tmp =~ s|\\_\\_(.+?)\\_\\_||g;
$Tmp =~ s|\\\\|\|g;
$Tmp =~ s|!|!|g;
$Tmp =~ s|\\\'|'|g;
return $Tmp;
}
sub _fromHTML {
my $Tmp=shift;
return \'\' unless defined $Tmp;
$Tmp =~ s|&|&|g;
$Tmp =~ s|<!--||g;
$Tmp =~ s|<script| $Tmp =~ s|>|>|g;
$Tmp =~ s|<|<|g;
$Tmp =~ s|"|"|g;
$Tmp =~ s| | |g;
$Tmp =~ s!|!\\|!g;
$Tmp =~ s|
|\\n|g;
$Tmp =~ s|$|\\$|g;
$Tmp =~ s|\|\\\\|g;
$Tmp =~ s|!|!|g;
$Tmp =~ s|'|\\\'|g;
return $Tmp;
}
P.S
правильно сказал ondr - вопрос не совсем корректен. Но мой ответ именно на тот вопрос который имелся в виду (наверно) ;-)))
EDIT:
Ээээ... форум искажает код функций... :mad: