
平台论坛博客文库

› 论坛 › 程序设计 › Perl › perl $/分段

12 / 2 页下一页

perl $/分段 [复制链接]

nokia4321

稍有积蓄

论坛徽章:: 0

发表于 2012-09-03 09:48 |显示全部楼层

大家好，
PERL
用这个分段$/ = "</measInfo>"; 为什么不行，

要用这个来分段分析除了$/还可以用什么，
谢谢。。。。

文库|博客

sjdy521

富足长乐

论坛徽章:: 0

发表于 2012-09-03 10:13 |显示全部楼层

为什么我测试可以的呢？

perl -e '$_="<measInfo>aaa</measInfo><measInfo>bbb</measInfo>";local $/="</measInfo>";open F,"<",\$_;$line=<F>;print $line;'

复制代码

输出：

<measInfo>aaa</measInfo>

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

cdtits

大富大贵

论坛徽章:: 2

发表于 2012-09-03 10:39 |显示全部楼层

貌似可以按字符串进行分段，但是不支持正则表达式

nokia4321

稍有积蓄

论坛徽章:: 0

发表于 2012-09-03 10:56 |显示全部楼层

本帖最后由 nokia4321 于 2012-09-03 11:08 编辑

#!/usr/bin/perl
$/="</measInfo>";
while ($line = <>)
{
if ($line=~/measType/) {
print $line;
}
}
这样把文件所有行都打印出来了呢，似乎If没生效。

xiyoulaoyuanjia

小富即安

论坛徽章:: 0

发表于 2012-09-03 11:15 |显示全部楼层

不是很明白你上面的意思~~

$/ The input record separator, newline by default. This influences Perl's idea of what a "line" is. Works like awk's RS variable, including treating empty
lines as a terminator if set to the null string (an empty line cannot contain any spaces or tabs). You may set it to a multi-character string to match a
multi-character terminator, or to "undef" to read through the end of file. Setting it to "\n\n" means something slightly different than setting to "", if
the file contains consecutive empty lines. Setting to "" will treat two or more consecutive empty lines as a single empty line. Setting to "\n\n" will
blindly assume that the next input character belongs to the next paragraph, even if it's a newline.

复制代码

nokia4321

稍有积蓄

论坛徽章:: 0

发表于 2012-09-03 11:31 |显示全部楼层

本帖最后由 nokia4321 于 2012-09-03 11:33 编辑

我是想一段一段分拣，/measInfo 分段。

MMMIX

广告杀手

论坛徽章:: 95

发表于 2012-09-03 12:31 |显示全部楼层

回复 6# nokia4321

你倒是把测试文件贴上来呀

nokia4321

稍有积蓄

论坛徽章:: 0

发表于 2012-09-03 14:02 |显示全部楼层

本帖最后由 nokia4321 于 2012-09-03 14:32 编辑

<?xml version="1.0" encoding="UTF-8"?>

nokia4321

稍有积蓄

论坛徽章:: 0

发表于 2012-09-03 14:04 |显示全部楼层

本帖最后由 nokia4321 于 2012-09-03 14:33 编辑

多谢各位，学艺不精。尝试其他方法。

cdtits

大富大贵

论坛徽章:: 2

发表于 2012-09-03 14:44 |显示全部楼层

本帖最后由 cdtits 于 2012-09-03 17:29 编辑

#!/usr/bin/perl
use strict;
use warnings;
my @measInfo;
while (<DATA>) {
if (m{^\s*<(measType|r) p="(\d+)">([^<]+)</\1>\s*$}i) {
push @{$measInfo[$2]}, $3;
}
}
for (@measInfo) {
next unless defined($_);
printf "%-40s%s\n", $_->[0], join("\t", @{$_}[1..$#{$_}]);
}
__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<?xml-stylesheet type="text/xsl" href="MeasDataCollection.xsl"?>
<measCollecFile
xmlns="http://www.3gpp.org/ftp/specs/latest/rel-5/32_series/32401-540.zip#measCollec">
<fileHeader fileFormatVersion="32.401 V5.0"
vendorName="Alcatel-Lucent"
dnPrefix="">
<fileSender
localDn="SubNetwork=1,ManagedElement=ces-1"
elementType="GmscServer,Vlr" />
<measCollec beginTime="2012-08-31T07:00:00+08:00" />
</fileHeader>
<measData>
<managedElement
localDn="SubNetwork=1,ManagedElement=ces-1"
userLabel=""
swVersion="R22.20.00.11" />
<measInfo>
<granPeriod duration="PT3600S" endTime="2012-08-31T08:00:00+08:00" />
<measType p="1">VS.asrtNonESCCritical</measType>
<measType p="2">VS.asrtNonESCMajor</measType>
<measType p="3">VS.asrtNonESCMinor</measType>
<measType p="4">VS.asrtESC</measType>
<measType p="5">VS.audNewEvent</measType>
<measType p="6">VS.audErrCount</measType>
<measType p="7">VS.audManAct</measType>
<measType p="8">VS.alrmCritical</measType>
<measType p="9">VS.alrmMajor</measType>
<measType p="10">VS.alrmMinor</measType>
<measType p="11">VS.alrmWarning</measType>
<measType p="12">VS.restartTask</measType>
<measType p="13">VS.reInitServiceSelf</measType>
<measType p="14">VS.reInitServiceManual</measType>
<measType p="15">VS.memAllocFail</measType>
<measType p="16">VS.exceptionService</measType>
<measType p="17">VS.throttleAuthentication</measType>
<measType p="18">VS.throttleLocalCongestIncCalls</measType>
<measType p="19">VS.throttleRemoteDpcOutgCalls</measType>
<measType p="20">VS.throttleRemoteNetworkOutgCalls</measType>
<measType p="21">VS.SS7DSInCallAtt</measType>
<measType p="22">VS.SS7DSInCallSetupSucc</measType>
<measType p="23">VS.SS7DSOutCallAtt</measType>
<measType p="24">VS.SS7DSOutCallSetupSucc</measType>
<measType p="25">VS.SS7OutgoingAttemptFailed</measType>
<measType p="26">VS.numOfScanSample</measType>
<measType p="27">VS.SCTPConnAtt</measType>
<measType p="28">VS.SCTPTransAborts</measType>
<measType p="29">VS.M3UAMsuTransmit</measType>
<measType p="30">VS.M3UAMsuTransmitSucc</measType>
<measType p="31">VS.M3UAMsuReceive</measType>
<measType p="32">VS.M3UAMsuReceiveSucc</measType>
<measValue measObjLdn="Service=ss7, ServiceMember=Cabinet_0_Shelf_0_Card_3_Host_0_Pool_0">
<r p="1">0</r>
<r p="2">0</r>
<r p="3">0</r>
<r p="4">0</r>
<r p="5">0</r>
<r p="6">0</r>
<r p="7">0</r>
<r p="8">0</r>
<r p="9">0</r>
<r p="10">0</r>
<r p="11">0</r>
<r p="12">0</r>
<r p="13">0</r>
<r p="14">0</r>
<r p="15">0</r>
<r p="16">0</r>
<r p="17">0</r>
<r p="18">0</r>
<r p="19">0</r>
<r p="20">0</r>
<r p="21">0</r>
<r p="22">0</r>
<r p="23">0</r>
<r p="24">0</r>
<r p="25">0</r>
<r p="26">36</r>
<r p="27">0</r>
<r p="28">0</r>
<r p="29">24719</r>
<r p="30">24719</r>
<r p="31">34142</r>
<r p="32">34142</r>
</measValue>
<measValue measObjLdn="Service=ss7, ServiceMember=Cabinet_0_Shelf_0_Card_4_Host_0_Pool_0">
<r p="1">0</r>
<r p="2">0</r>
<r p="3">0</r>
<r p="4">0</r>
<r p="5">0</r>
<r p="6">0</r>
<r p="7">0</r>
<r p="8">0</r>
<r p="9">0</r>
<r p="10">0</r>
<r p="11">0</r>
<r p="12">0</r>
<r p="13">0</r>
<r p="14">0</r>
<r p="15">0</r>
<r p="16">0</r>
<r p="17">0</r>
<r p="18">0</r>
<r p="19">0</r>
<r p="20">0</r>
<r p="21">0</r>
<r p="22">0</r>
<r p="23">0</r>
<r p="24">0</r>
<r p="25">0</r>
<r p="26">36</r>
<r p="27">0</r>
<r p="28">0</r>
<r p="29">44745</r>
<r p="30">44745</r>
<r p="31">34264</r>
<r p="32">34264</r>
</measValue>
<measValue measObjLdn="Service=ss7, ServiceMember=Cabinet_0_Shelf_0_Card_3_Host_0_Pool_1">
<r p="1">0</r>
<r p="2">0</r>
<r p="3">0</r>
<r p="4">0</r>
<r p="5">0</r>
<r p="6">0</r>
<r p="7">0</r>
<r p="8">0</r>
<r p="9">0</r>
<r p="10">0</r>
<r p="11">0</r>
<r p="12">0</r>
<r p="13">0</r>
<r p="14">0</r>
<r p="15">0</r>
<r p="16">0</r>
<r p="17">0</r>
<r p="18">0</r>
<r p="19">0</r>
<r p="20">0</r>
<r p="21">0</r>
<r p="22">0</r>
<r p="23">0</r>
<r p="24">0</r>
<r p="25">0</r>
<r p="26">36</r>
<r p="27">0</r>
<r p="28">0</r>
<r p="29">27539</r>
<r p="30">27539</r>
<r p="31">29640</r>
<r p="32">29640</r>
</measValue>

复制代码

12 / 2 页下一页

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › perl $/分段