当前位置：首页 → 问答吧 → 求助：一个匹配的问题

求助：一个匹配的问题

时间：2010-12-28

来源：互联网

<VirtualHost 204.188.247.4>
VirtualDocumentRoot /home/abc.info
ServerName www.abc.info
ServerAlias abc.info
<Directory "/home/abc/abc.info">
Options FollowSymLinks
AllowOverride All
Order allow,deny
Allow from all
</Directory>
</VirtualHost>
<VirtualHost 204.188.247.5>
VirtualDocumentRoot /home/abc.net
ServerName www.abc.net
ServerAlias abc.net
<Directory "/home/abc.net">
Options FollowSymLinks
AllowOverride All
Order allow,deny
Allow from all
</Directory>
</VirtualHost>
<VirtualHost 204.188.247.57>
VirtualDocumentRoot /data0/web/abc.com
ServerName www.abc.com
ServerAlias abc.com
<Directory "/data0/web/abc.com">
Options FollowSymLinks
AllowOverride All
Order allow,deny
Allow from all
</Directory>
</VirtualHost>

复制代码

如上面一段文本，如何提取匹配/home/目录的提取出 ServerName 的网址 /data0/下的不匹配

提出的格式例如：
/home/abc.net www.abc.net
/home/abc.info www.abc.info
.....

作者: mcshell 发布时间: 2010-12-28

本帖最后由午夜凋零于 2010-12-29 10:35 编辑

#!/usr/bin/perl -w
open FI, "1";
open FO, ">2";
while(<FI>){
if(/VirtualDocumentRoot (.*)/){
if(/VirtualDocumentRoot\s\/data0\//){
$flag = 0;
}
else{
$flag = 1;
print FO $1;
}
}
if((/ServerName (.*)/) and ($flag eq 1)){
print FO " $1$/";
}
}
close FI;
close FO;

复制代码

作者: 午夜凋零发布时间: 2010-12-29

QUOTE:

午夜凋零发表于 2010-12-29 10:29

谢谢，不过好像不行呀。

作者: mcshell 发布时间: 2010-12-29

QUOTE:

谢谢，不过好像不行呀。
mcshell 发表于 2010-12-29 10:49

是只匹配“/home/”下的，还是只不匹配“/data0/”下的？

作者: 午夜凋零发布时间: 2010-12-29

QUOTE:

是只匹配“/home/”下的，还是只不匹配“/data0/”下的？
午夜凋零发表于 2010-12-29 10:59

只匹配home下的。。data0下的不提取

作者: mcshell 发布时间: 2010-12-29

shell版块有人用perl

while(<>){
if(m{Root (/home/.+)}){
print "$1\t";
$sNext = <>;
(undef,undef,$sServerName) = split /\s+/,$sNext;
print "$sServerName\n";
}
}

复制代码

在此引用下。。谢谢 jason680

作者: mcshell 发布时间: 2010-12-29

QUOTE:

只匹配home下的。。data0下的不提取
mcshell 发表于 2010-12-29 11:03

那你的data0目录在不在home下面？

作者: 午夜凋零发布时间: 2010-12-29

QUOTE:

那你的data0目录在不在home下面？
午夜凋零发表于 2010-12-29 11:09

嗯是的你可以看下上面的代码的输出结果，就是那个样子的。。

作者: mcshell 发布时间: 2010-12-29

QUOTE:

shell版块有人用perl在此引用下。。谢谢 jason680
mcshell 发表于 2010-12-29 11:05

想法是好的，你测过了吗

作者: langren868 发布时间: 2010-12-29

QUOTE:

嗯是的你可以看下上面的代码的输出结果，就是那个样子的。。
mcshell 发表于 2010-12-29 11:12

#!/usr/bin/perl -w
open FI, "1";
open FO, ">2";
while(<FI>){
if(/VirtualDocumentRoot\s(\/home\/.*)/){
if(/\/data0\//){
$flag = 0;
}
else{
$flag = 1;
print FO $1;
}
}
if((/ServerName (.*)/) and ($flag eq 1)){
print FO " $1$/";
$flag = 0;
}
}
close FI;
close FO;

复制代码

这个应该行了吧。

作者: 午夜凋零发布时间: 2010-12-29

求助：一个匹配的问题

热门阅读

热门下载