Attachment 292361 Details for Bug 429531 – test program

test program

test.pl (text/plain), 1.63 KB, created by Need Real Name on 2008-01-21 12:43:33 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Need Real Name

Created: 2008-01-21 12:43:33 UTC

Size: 1.63 KB

patch

obsolete

>my $cinput=<<'EEE'
><p class="MsoNormal"><st2:address>T1</end> TXT
><p class="MsoNormal"><st2:address>T2</end> TXT
><p class="MsoNormal"><st2:address>T3</end> TXT
><p class="MsoNormal"><st2:address>T4</end> TXT
><p class="MsoNormal"><st2:address>T5</end> TXT
><p class="MsoNormal"><st2:address>T6</end> TXT
>EEE
>;
>
>
>sub getasplitted($$)
>{
>    my($content,$cseparator)=@_;
>    my $seplen=length($cseparator);
>    my $p=[];
>    my $i0=index($content,$cseparator,0);
>    if($i0<0)
>    {
>	return $p;
>    }
>    for(;;)
>    {
>	my $i=index($content,$cseparator,$i0+$seplen);
>	if($i>=0)
>	{
>	    push @$p,substr($content,$i0,$i-$i0);
>	}
>	else
>	{
>	    push @$p,substr($content,$i0);
>	    last;
>	}
>	$i0=$i;
>    }
>    return $p;
>}
>
>
>sub test($)
>{
>    my($content)=@_;
>    $content =~ s@(?is:&nbsp;?|&\#10;?)@ @isg;
>    $content =~ s@@@isg;
>    $content =~ s@</?(font|img|nobr|br\s*/?|span|div|sup|sub|input|i|u|b|hr|em|strong)(\s+[^<>]*)?>@ @isg;
>    $content =~ s@<td[^<>]*>@<td>@isg;
>    $content =~ s@<tr[^<>]*>@<tr>@isg;
>    $content =~ s@<table[^<>]*>@<table>@isg;
>    $content =~ s@<st2:street[^<>]*>@@isg;
>    $content =~ s@<p [^<>]*class="MsoNormal"[^<>]*>\s*<st2:address[^<>]*>@<DATA>@isg;
>    $content =~ s@<DATA>([^<>]*)<@<DATA>$1<ENDMID><@isg;
>    $content =~ s@</?(p|st2:[^<>]*)(\s+[^<>]*)?>@ @isg;    
>    $content =~ s@\s+@ @isg;
>
>    my $apts=getasplitted($content,'<DATA>');
>    my $p=[];
>    foreach my $a (@$apts)
>    {
>	if($a!~m@^<DATA>@isg)
>	{
>	    next;
>	}
>	my $d={};
>	# DOES NOT WORK
>	my($tmpbname)=$a=~m@<DATA>([^<>]*)@isg;
>
>	## WORKS
>	#my $x=$a;
>	#my($tmpbname)=$x=~m@<DATA>([^<>]*)@isg;
>	
>	print{*STDERR} "TBN=$tmpbname A=$a\n";
>    }
>}
>
>test($cinput);

Actions: View

Attachments on bug 429531: 292361 | 292362