rtyug

вот есть текствый файл:

test-test

  <p class=MsoBodyText><b><span style='mso-fareast-font-family:"Arial Unicode MS"'><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></b></p>

  <p class=MsoBodyText><b><span style='mso-fareast-font-family:"Arial Unicode MS"'><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></b></p>

  <p class=MsoBodyText><!--[if gte vml 1]><v:shape id="_x0000_s1042" type="#_x0000_t75"

   style='position:absolute;margin-left:40pt;margin-top:-144.75pt;width:180pt;

   height:141.15pt;z-index:2' o:preferrelative="f">

   <v:imagedata src="./RGDMETMP1.files/image005.jpg" o:title="" gain="79922f"

    blacklevel="-1966f"/>

   <w:wrap type="square"/>

  </v:shape><![endif]--><![if !vml]><img width=240 height=188

  src="./RGDMETMP1.files/image006.jpg" align=left hspace=12 v:shapes="_x0000_s1042"><![endif]><b><span

  style='mso-fareast-font-family:"Arial Unicode MS"'><o:p></o:p></span></b></p>

  <p class=MsoBodyText><b><span style='mso-fareast-font-family:"Arial Unicode MS"'><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></b></p>

  <p class=MsoBodyText><!--[if gte vml 1]><v:shape id="_x0000_s1043" type="#_x0000_t75"

   style='position:absolute;margin-left:49.7pt;margin-top:16.85pt;width:161.65pt;

   height:129.5pt;z-index:3' o:preferrelative="f">

   <v:imagedata src="./RGDMETMP1.files/image007.jpg" o:title="" gain="79922f"

    blacklevel="-3932f"/>

   <w:wrap type="square"/>

  </v:shape><![endif]--><![if !vml]><img width=216 height=173

  src="./RGDMETMP1.files/image008.jpg" align=left hspace=12 v:shapes="_x0000_s1043"><![endif]><b><span

  style='mso-fareast-font-family:"Arial Unicode MS"'>.<o:p></o:p></span></b></p>

  <p class=MsoNormal style='mso-layout-grid-align:none;text-autospace:none'><span

  style='font-size:10.0pt;mso-bidi-font-size:12.0pt'><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p>

скрипт:

#!/usr/bin/perl



$f = 'test-test';





open( F, $f ) or die "can't open $f: $!";



 local $/;

 $text = <F>;



$text =~ s#<v:imagedata src="(.*.)" (.*.)\/>#--><img src="$1" alt="" \/><!--#igs





print $text;

не работает... не заменяет...

как это испраивть?

вродебы вот эта штука мешает (.*.)

но я пробовал по разному - все равно не работает, не заменяет рег.выр.

rtyug добавил 17.09.2010 в 21:26

UPD:

заработало вот так:

$text =~ s#<v:imagedata src="(.*?)" (.*?)\/>#--><img src="$1" alt="" \/><!--#igs;

если просто попробовать, то работает, я сейчас покажу как не работает..

вот тут еще фотогарфии http://sexylette.com/hosted-gals/0052.php

она какая-то укуренная или под кайфом

добавил модификатор s, теперь вообще не заменяет, не работает...

вот с коммунистическими звездочками!

:D

olga™, я вот хочу написать соц. сеть http://www.x0.org.ua (долго рассказывать, внешний вид еще не сделаный), может интересно будет?

не вижу код и не знаю что такое $sub и чему оно равно...

да, можно попробовать:

push(@{$self->{stack}}, $self->{meth}->$sub($self, \%arg)) if ($sub);