Перл

Автор: Перл Написано: 3 г. назад Форматирование: perl.
Без нумерации строк 
  1. sub cutq {
    2. 

  2.     my $str = $_[0];
    3. 

  3.     $str =~ s/\</&lt;/g;
    4. 

  4.     $str =~ s/\>/&gt;/g;
    5. 

  5.     $str =~ s/\"/&quot;/g;
    6. 

  6.     $str =~ s/\:/&#58;/g;
    7. 

  7.     $str =~ s/\r\n/\<br\>/g;
    8. 

  8.     return $str;
    9. 

  9. }
Теги: perl, regexp