当前位置：首页 → 问答吧 → 正则疑问

正则疑问

时间：2010-08-05

来源：互联网

大家好！请问如何用正则把格式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>

作者: chlotte 发布时间: 2010-08-05

喂你稍微描述一下好不

作者: DQP 发布时间: 2010-08-05

不好意思，我想把
<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>

作者: chlotte 发布时间: 2010-08-05

undef $/;
my $html=<>;
my $from=<<'END';
<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>
END
my $to=<<'END';
<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>
END
$html=~s/$from/$to/gs;

复制代码

作者: ttcn_cu 发布时间: 2010-08-05

本帖最后由黑色阳光_cu 于 2010-08-05 17:20 编辑

#!/bin/env perl
use strict;
use warnings;
my @order = qw(id name src quality width height align allowScriptAccess type);
local $/ = "\n\n";
while (my $html = <DATA>)
{
my %nodes =
(
id => "movie_player",
name => "movie_player",
src => undef,,
quality => "high",
width => undef,
height => undef,
align => "middle",
allowScriptAccess => "sameDomain",
type => undef
);
while ($html =~ /(\w+)\s*=\s*(['"])?\s*((?(2)(?:(?!\2).)*|\S*))\s*(?(2)\2)/g)
{
# print "$1 => $3\n";
$nodes{$1} = $3;
}
if ($nodes{src} =~ /VideoIDS=(\w+)/i)
{
$nodes{src} = "http://player.youku.com/player.php/sid/$1/v.swf";
}
$html = "<embed ";
foreach my $key (@order)
{
$html .= qq($key="$nodes{$key}" );
}
local $/ = " ";
chomp $html;
$html .= "></embed>";
print $html;
print "\n\n";
}
__DATA__
<embed type="application/x-shockwave-flash" height="400" width="500"
src=" http://static.youku.com/v1.0.0115/v/swf/qplayer.swf?VideoIDS=XMTY3MzIwMTY=&isAutoPlay=true&embedid=-&showAd=0"
pluginspage=" http://www.macromedia.com/go/getflashplayer" wmode="transparent"
document.document.form1.="hight"></embed>
<embed menu="true" type="application/x-shockwave-flash"
src="http://static.youku.com/v1.0.0025/v/swf/qplayer.swf?VideoIDS=XMTgyODM2MzI4&winType=interior&isShowRelatedVideo=false&showAd=0"
width="470" height="350" play="true" loop="True"></embed>
<embed pluginspage="http://www.macromedia.com/go/getflashplayer"
src="http://static.youku.com/v1.0.0115/v/swf/qplayer.swf?VideoIDS=XMTQ4OTU4NDg=&isAutoPlay=true&embedid=-&showAd=0"" width="500" height="400"
type="application/x-shockwave-flash" wmode="transparent" document.document.form1.="hight"></embed>
<embed allowfullscreen="true" bgcolor="#000000" type="application/x-shockwave-flash" height="480" width="600"
src="http://static.youku.com/v1.0.0025/v/swf/qplayer.swf?VideoIDS=XMTkwNjQxNTM2&winType=interior&isShowRelatedVideo=false&showAd=0"></embed>
<embed document.document.form1.="hight" wmode="transparent" type="application/x-shockwave-flash" height="400" width="500"
src="http://player.youku.com/player.php/Type/Folder/Fid/1263594/Ob/1/Pt/289/sid/XMTg4NzM4MjQ=/v.swf"
pluginspage="http://www.macromedia.com/go/getflashplayer"></embed>
<embed type="application/x-shockwave-flash" height="500" width="600" src="http://player.youku.com/player.php/sid/XNjkxOTcyNjg=/v.swf"></embed>
<embed menu="true" type="application/x-shockwave-flash"
src="http://static.youku.com/v1.0.0025/v/swf/qplayer.swf?VideoIDS=XMTgyODM2MzI4&winType=interior&isShowRelatedVideo=false&showAd=0"
width="470" height="350" play="true" loop="True"></embed>

复制代码

作者: 黑色阳光_cu 发布时间: 2010-08-05

。。。

作者: yybmsrs 发布时间: 2010-08-05

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

复制代码

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

作者: 风吹不倒发布时间: 2010-08-05

作者: snriyt 发布时间: 2010-08-05

正则疑问

热门阅读

热门下载