正则疑问

chlotte

大家好！请问如何用正则把格式1中的内容替换为格式2中的内容，谢谢！
格式1
<embed type="application/x-shockwave-flash" height="400" width="500"
src=" http://static.youku.com/v1.0.011 ... edid=-&showAd=0"
pluginspage=" http://www.macromedia.com/go/getflashplayer" wmode="transparent"
document.document.form1.="hight"></embed>

格式2
<embed id="movie_player" name="movie_player"
src="http://player.youku.com/player.php/sid/XMTY3MzIwMTY/v.swf" quality="high" width="500" height="400" align="middle"
allowScriptAccess="sameDomain" type="application/x-shockwave-flash"></embed>

DQP

喂 你稍微描述一下好不

chlotte

不好意思，我想把
<embed type="application/x-shockwave-flash" height="400" width="500"
src=" http://static.youku.com/v1.0.011 ... edid=-&showAd=0"
pluginspage=" http://www.macromedia.com/go/getflashplayer" wmode="transparent"
document.document.form1.="hight"></embed>

替换为
<embed id="movie_player" name="movie_player"
src="http://player.youku.com/player.php/sid/XMTY3MzIwMTY/v.swf" quality="high" width="500" height="400" align="middle"
allowScriptAccess="sameDomain" type="application/x-shockwave-flash"></embed>

ttcn_cu

1. undef $/;
   
2. my $html=<>;
   
3. my $from=<<'END';
   
4. <embed type="application/x-shockwave-flash" height="400" width="500"
   
5. src=" http://static.youku.com/v1.0.011 ... edid=-&showAd=0"
   
6. pluginspage=" http://www.macromedia.com/go/getflashplayer" wmode="transparent"
   
7. document.document.form1.="hight"></embed>
   
8. END
   
9. my $to=<<'END';
   
10. <embed id="movie_player" name="movie_player"
    
11. src="http://player.youku.com/player.php/sid/XMTY3MzIwMTY/v.swf" quality="high" width="500" height="400" align="middle"
    
12. allowScriptAccess="sameDomain" type="application/x-shockwave-flash"></embed>
    
13. END
    
14. $html=~s/$from/$to/gs;

复制代码

黑色阳光_cu

1. #!/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @order = qw(id name src quality width height align allowScriptAccess type);
   
7. 
   
8. local $/ = "\n\n";
   
9. while (my $html = <DATA>)
   
10. {
    
11.         my %nodes =
    
12.         (
    
13.                 id => "movie_player",
    
14.                 name => "movie_player",
    
15.                 src => undef,,
    
16.                 quality => "high",
    
17.                 width => undef,
    
18.                 height => undef,
    
19.                 align => "middle",
    
20.                 allowScriptAccess => "sameDomain",
    
21.                 type => undef
    
22.         );
    
23. 
    
24.         while ($html =~ /(\w+)\s*=\s*(['"])?\s*((?(2)(?:(?!\2).)*|\S*))\s*(?(2)\2)/g)
    
25.         {
    
26.                 # print "$1 => $3\n";
    
27.                 $nodes{$1} = $3;
    
28.         }
    
29. 
    
30.         if ($nodes{src} =~ /VideoIDS=(\w+)/i)
    
31.         {
    
32.                 $nodes{src} = "http://player.youku.com/player.php/sid/$1/v.swf";
    
33.         }
    
34. 
    
35.         $html = "<embed ";
    
36.         foreach my $key (@order)
    
37.         {
    
38.                 $html .= qq($key="$nodes{$key}" );
    
39.         }
    
40. 
    
41.         local $/ = " ";
    
42.         chomp $html;
    
43.         $html .= "></embed>";
    
44.         print $html;
    
45.         print "\n\n";
    
46. }
    
47. 
    
48. __DATA__
    
49. <embed type="application/x-shockwave-flash" height="400" width="500"
    
50. src=" http://static.youku.com/v1.0.0115/v/swf/qplayer.swf?VideoIDS=XMTY3MzIwMTY=&isAutoPlay=true&embedid=-&showAd=0"
    
51. pluginspage=" http://www.macromedia.com/go/getflashplayer" wmode="transparent"
    
52. document.document.form1.="hight"></embed>
    
53. 
    
54. <embed menu="true" type="application/x-shockwave-flash"
    
55. src="http://static.youku.com/v1.0.0025/v/swf/qplayer.swf?VideoIDS=XMTgyODM2MzI4&amp;winType=interior&amp;isShowRelatedVideo=false&amp;showAd=0"
    
56. width="470" height="350" play="true" loop="True"></embed>
    
57. 
    
58. <embed pluginspage="http://www.macromedia.com/go/getflashplayer"
    
59. src="http://static.youku.com/v1.0.0115/v/swf/qplayer.swf?VideoIDS=XMTQ4OTU4NDg=&isAutoPlay=true&embedid=-&showAd=0"" width="500" height="400"
    
60. type="application/x-shockwave-flash" wmode="transparent" document.document.form1.="hight"></embed>
    
61. 
    
62. <embed allowfullscreen="true" bgcolor="#000000" type="application/x-shockwave-flash" height="480" width="600"
    
63. src="http://static.youku.com/v1.0.0025/v/swf/qplayer.swf?VideoIDS=XMTkwNjQxNTM2&amp;winType=interior&amp;isShowRelatedVideo=false&amp;showAd=0"></embed>
    
64. 
    
65. <embed document.document.form1.="hight" wmode="transparent" type="application/x-shockwave-flash" height="400" width="500"
    
66. src="http://player.youku.com/player.php/Type/Folder/Fid/1263594/Ob/1/Pt/289/sid/XMTg4NzM4MjQ=/v.swf"
    
67. pluginspage="http://www.macromedia.com/go/getflashplayer"></embed>
    
68. 
    
69. <embed type="application/x-shockwave-flash" height="500" width="600" src="http://player.youku.com/player.php/sid/XNjkxOTcyNjg=/v.swf"></embed>
    
70. 
    
71. <embed menu="true" type="application/x-shockwave-flash"
    
72. src="http://static.youku.com/v1.0.0025/v/swf/qplayer.swf?VideoIDS=XMTgyODM2MzI4&amp;winType=interior&amp;isShowRelatedVideo=false&amp;showAd=0"
    
73. width="470" height="350" play="true" loop="True"></embed>
    

复制代码

yybmsrs

。。。

风吹不倒

1. #!/usr/bin/perl -w
   
2. use 5.010;
   
3. $v1 = '<embed id="movie_player" name="movie_player" src="http://player.youku.com/player.php/sid/';
   
4. $v2 = '/v.swf" quality="high" ';
   
5. $v3 = 'align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash"></embed>';
   
6. 
   
7. while (<>) {
   
8.         chomp;
   
9.         given ( $_ ) {
   
10.                 when ( $_ ~~ /.*VideoIDS=(.*?)[^a-zA-Z0-9].*/ ) { $tmp1 = $1;continue }
    
11.                 when ( $_ ~~ /.*(width.*height.*?\s|height.*width.*?\s).*/ )    { $tmp2 = $1 }
    
12.                         }
    
13.         print "$tmp1 --------  $tmp2\n";
    
14.         print "$v1$tmp1$v2$tmp2$v3\n";
    
15. }

复制代码

输出结果是2行 。。 请问下是哪里出问题了

snriyt