Тэги в сообщении форума 3

[Отец Никон]

Вроде бы ясно, как удалить тэги из текста:
$post=~s/$post=~s/>/>/g;

Но как сделать, чтобы некоторые тэги игнорировались? Если это простые тэги, типа , то я думаю сделать просто:
$post=~s/<B>//g;  
Но как быть, например, с тэгом ? Ведь внутри его могут быть какие-то атрибуты (напр. ) и простой заменой не обойтись.

И ещё: как сделать, чтобы URL-ы выделялись тэгом ?

[NeoNox]

$post=~s/<FONT (.*)>//gi;
А вообще купи книжку MRE или на сайтах поищи

[NeoNox]

Хозяйке на заметку
Заменяем теги
sub html_encode {
  

my ($object, $tmp) = @_;
  

$tmp =~ s!&!&!g;
  

$tmp =~ s!>!>!g;
  

$tmp =~ s!<!<!g;
  

$tmp =~ s!\\"!"!g;
  

return $tmp}
Убираем их вообще (работает не по условию а как каток)
sub clearHTML {

my ($object, $Tmp) = @_;

$Tmp =~ s/<.+?>//g;

return $Tmp}
Перекодируем в одну и другую сторону:

sub unHTML {
    

my ($object, $Tmp) = @_;
    

my %ENT=(\'<\'=>\'lt\',\'>\'=>\'gt\',\'"\'=>\'quot\');
    

$Tmp =~ s!([<>"])!&$ENT{$1};!g;
    

$Tmp =~ s|<!--|&#60;&#33;&#45;&#45;|g; 
    

$Tmp =~ s|-->|&#45;&#45;&#62;|g;
    

$Tmp =~ s|<script>|&#60;&#115;&#99;&#114;&#105;&#112;&#116;&#62;|ig;
    

$Tmp =~ s|  |  |g;   
    

$Tmp =~ s|^\\$+$|&#36|g;         
    

$Tmp =~ s|\\@|&#064;|g;              
    

$Tmp =~ s!\\|!&#124;!g;
    

$Tmp =~ s|\\{|&#123;|g;     
    

$Tmp =~ s|\\}|&#125;|g;        
    

$Tmp =~ s|\\\\,|&#44;|g;
    

$Tmp =~ s|\\~|&#126;|g;      
    

$Tmp =~ s|\'|&#39;|g;
    

$Tmp =~ s|\\n|
|g;         
    

$Tmp =~ s|\\s+$||g;        
    

$Tmp =~ s|\\$|&#36|g;
    

$Tmp =~ s|\\r||g;              
    

$Tmp =~ s!\\\\!&#92;!g;
    

return $Tmp}

sub doHTML {
    

my $object = shift;
    

my $Tmp = $_[0];
    

$Tmp =~ s/&#064;/\\@|g;              
    

$Tmp =~ s/&#39;/\'/g;    
    

$Tmp =~ s/\\</</g;     
    

$Tmp =~ s/\\>/>/g;
    

$Tmp =~ s!&#36!\\$!g;    
    

$Tmp =~ s/&#124;/\\|/g;   
    

$Tmp =~ s/&#43;/\\+/g;
    

$Tmp =~ s/&#42;/\\*/g;   
    

$Tmp =~ s/&#41;/\\)/g;    
    

$Tmp =~ s/&#40;/\\(/g;
    

$Tmp =~ s/&#44;/,/g;    
    

$Tmp =~ s/&#125;/\\}/g;   
    

$Tmp =~ s/&#123;/\\{/g;
    

$Tmp =~ s/&#92;/\\\\/g;   
    

$Tmp =~ s/"/"/g;    
    

$Tmp =~ s/&/&/g;
    

return $Tmp}
 
Chs, может в факе раздел по регуляркам завести?

[NeoNox]

И ещё: как сделать, чтобы URL-ы выделялись тэгом ?

                $text =~ s~([^\\w\\"\\=\\[\\]]|[\\A\\n\\b])\\\\*(\\w+://[^<>\\s\\n\\"\\]\\[]+)~$1<a href="$2" target="_blank">$2</a>~isg;

$text =~ s~([^\\"\\=\\[\\]/\\:]|[\\A\\n\\b])\\\\*(www\\.[^<>\\s\\n\\]\\[]+)~$1<a href="http://$2" target="_blank">$2</a>~isg;

$text =~ s~([^\\f\\"\\=\\[\\]]|[\\A\\n\\b])\\\\*(\\f+://[^<>\\s\\n\\"\\]\\[]+)~$1<a href="$2" target="_blank">$2</a>~isg;

$text =~ s~([^\\"\\=\\[\\]/\\:]|[\\A\\n\\b])\\\\*(ftp\\.[^<>\\s\\n\\]\\[]+)~$1<a href="ftp://$2" target="_blank">$2</a>~isg;
[OFF]Да... php-шная подсветка подходит perl - скриптам как корове седло..[/OFF]

[Отец Никон]

$post=~s/<FONT (.*)>//gi;
А вообще купи книжку MRE или на сайтах поищи

Что за книжка? Расшифровать можешь?
Что касаемо фака по рег. выр-ям, то вещь, думаю, для неофитов полезная будет.

[NeoNox]

Mastering Regular Expressions
Автор: Jeffrey E. F. Friedl
http://www.oreilly.com/catalog/regex/
Здесь в pdf http://www.bosconet.org/UNIX/unix/Mastering%20Regular%20Expressions/
На русский она также переведена: Регулярные выражения
Автор тот-же.

[Отец Никон]

$post=~s/<FONT (.*)>//gi;

А... уважаемый NeoNox я или дурак или что-то, но этот скрипт не работает. Последняя скобка не меняется, а остаётся >

И кстати, как поменять</FONT> на ? Ведь если я пишу $post==~s/</FONT>//gi, то PERL первую черту считает за служебную. А экранировать с помощью \\ не выходит.

[Отец Никон]

И скрипт для выделения URL\'ов тоже не работает:

Unrecognized character \\xA0.

Что это за символ - я не пойму.

[Chs]

$post=~s/<FONT (.*)>//gi;

Я бы сказал:

Код: [Выделить]


$post=~s/<FONT(.*?)>//gi;

Помятую про "жадность" квантификаторов.

И кстати, как поменять</FONT> на ? Ведь если я пишу $post==~s/</FONT>/ /gi, то PERL первую черту считает за служебную. А экранировать с помощью \\ не выходит.

Код: [Выделить]


$post=~s|</FONT>||gi,

, например

perldoc perlre

[Отец Никон]

perldoc perlre

Опять Да читал я его, даже перевод русский есть.

[Chs]

Unrecognized character \\xA0.

Что это за символ - я не пойму.

Cимволы перед и после "=~" удали и поставь пробелы.

[Chs]

perldoc perlre

Опять Да читал я его, даже перевод русский есть.

Тогда еще
perldoc perlop в части Quote and Quote-like Operators
и Regexp Quote-Like Operators

[Отец Никон]

Если я удалю "символы", тогда естественно, всё будет работать, т.к. вообще не будет этого кода. Ты разъясни поконкретнее.

[Chs]

Если я удалю "символы", тогда естественно, всё будет работать, т.к. вообще не будет этого кода. Ты разъясни поконкретнее.

Один символ до "=~" и один после и заменить пробелами. Так понятнее?

[Отец Никон]

Ага,  а теперь так:
 /([^w"=[]]|[A\\nb])\\*(w+://[^<>s\\n"][]+)/: unmatched [] in regexp

Вроде тут всё закрыто или нет?