<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:st1="urn:schemas-microsoft-com:office:smarttags" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]--><o:SmartTagType
namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="chsdate"
downloadurl=""/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:宋体;
panose-1:2 1 6 0 3 1 1 1 1 1;}
@font-face
{font-family:"\@宋体";
panose-1:2 1 6 0 3 1 1 1 1 1;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:宋体;}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:blue;
text-decoration:underline;}
p
{mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:宋体;}
span.EmailStyle20
{mso-style-type:personal-reply;
font-family:Arial;
color:navy;}
@page Section1
{size:595.3pt 841.9pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=ZH-CN link=blue vlink=blue>
<div class=Section1>
<p class=MsoNormal><font size=1 color=navy face=Arial><span lang=EN-US
style='font-size:9.0pt;font-family:Arial;color:navy'>Icesword</span></font><font
size=1 color=navy><span style='font-size:9.0pt;color:navy'>是个工具，可以查看很多系统信息，对于检查木马和间谍软件非常有效。</span></font><font
size=1 color=navy face=Arial><span lang=EN-US style='font-size:9.0pt;
font-family:Arial;color:navy'><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=1 color=navy face=Arial><span lang=EN-US
style='font-size:9.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<div>
<div class=MsoNormal align=center style='text-align:center'><font size=3
face=宋体><span lang=EN-US style='font-size:12.0pt'>
<hr size=2 width="100%" align=center tabindex=-1>
</span></font></div>
<p class=MsoNormal><b><font size=2 face=宋体><span style='font-size:10.0pt;
font-weight:bold'>发件人<span lang=EN-US>:</span></span></font></b><font size=2><span
lang=EN-US style='font-size:10.0pt'>
china-pm-bounces+xiang.li=net263.com@pm.org
[mailto:china-pm-bounces+xiang.li=net263.com@pm.org] </span></font><b><font
size=2><span style='font-size:10.0pt;font-weight:bold'>代表 </span></font></b><font
size=2><span style='font-size:10.0pt'>潘建锋<span lang=EN-US><br>
</span><b><span style='font-weight:bold'>发送时间<span lang=EN-US>:</span></span></b><span
lang=EN-US> <st1:chsdate IsROCDate="False" IsLunarDate="False" Day="15"
Month="7" Year="2006" w:st="on">2006<span lang=EN-US><span lang=EN-US>年7</span></span><span
lang=EN-US><span lang=EN-US>月15</span></span><span lang=EN-US><span
lang=EN-US>日</span></span></st1:chsdate> 12:55<br>
</span><b><span style='font-weight:bold'>收件人<span lang=EN-US>:</span></span></b><span
lang=EN-US> china-pm@pm.org<br>
</span><b><span style='font-weight:bold'>主题<span lang=EN-US>:</span></span></b><span
lang=EN-US> Re: [PerlChina] </span>请教一个读文件的问题</span></font><span lang=EN-US><o:p></o:p></span></p>
</div>
<p class=MsoNormal><font size=3 face=宋体><span lang=EN-US style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-bottom:12.0pt'><font size=3 face=宋体><span
style='font-size:12.0pt'>虽然我最近打算学<span lang=EN-US>ICE——</span>和你说的<span
lang=EN-US>icesword</span>好像没有什么关系，但应该不是你说的那个潘建锋<span lang=EN-US>:-)<o:p></o:p></span></span></font></p>
<div>
<p class=MsoNormal><span class=gmailquote><font size=3 face=宋体><span
style='font-size:12.0pt'>在<st1:chsdate IsROCDate="False" IsLunarDate="False"
Day="15" Month="7" Year="2006" w:st="on"><span lang=EN-US>06-7-15</span></st1:chsdate>，<b><span
lang=EN-US style='font-weight:bold'>king sir</span></b><span lang=EN-US> <<a
href="mailto:kangxiong@gmail.com">kangxiong@gmail.com</a>> </span>写道：</span></font></span>
<span lang=EN-US><o:p></o:p></span></p>
<div>
<p class=MsoNormal style='margin-bottom:12.0pt'><font size=3 face=宋体><span
style='font-size:12.0pt'>潘建锋是<span lang=EN-US>icesword</span>的潘建锋吗？<span
lang=EN-US><o:p></o:p></span></span></font></p>
<div>
<p class=MsoNormal><span class=gmailquote><font size=3 face=宋体><span
style='font-size:12.0pt'>在<st1:chsdate IsROCDate="False" IsLunarDate="False"
Day="14" Month="7" Year="2006" w:st="on"><span lang=EN-US>06-7-14</span></st1:chsdate>，<b><span
lang=EN-US style='font-weight:bold'>islue</span></b><span lang=EN-US> <<a
href="mailto:islue.hu@gmail.com" target="_blank">islue.hu@gmail.com</a>> </span>写道：</span></font></span>
<span lang=EN-US><o:p></o:p></span></p>
</div>
<div><span id="q_10c6dd9918b77ef9_1">
<blockquote style='border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;
margin-left:4.8pt;margin-right:0cm'>
<div>
<p class=MsoNormal style='margin-bottom:12.0pt'><font size=3 face=宋体><span
lang=EN-US style='font-size:12.0pt'>while () {<br>
next unless $_;<br>
}<br>
</span>从你的描述看，加这么一行应该<span lang=EN-US>ok</span>了<span lang=EN-US><o:p></o:p></span></font></p>
<div>
<p class=MsoNormal><span class=gmailquote><font size=3 face=宋体><span
style='font-size:12.0pt'>在<st1:chsdate IsROCDate="False" IsLunarDate="False"
Day="14" Month="7" Year="2006" w:st="on"><span lang=EN-US>06-7-14</span></st1:chsdate>，<b><span
style='font-weight:bold'>潘建锋</span></b><span lang=EN-US> <<a
href="mailto:panjianfeng1979@gmail.com" target="_blank">panjianfeng1979@gmail.com</a>
> </span>写道： </span></font></span><span lang=EN-US><o:p></o:p></span></p>
<div>
<p class=MsoNormal><font size=3 face=宋体><span lang=EN-US style='font-size:12.0pt'><a
href="mailto:china-pm@pm.org" target="_blank"><o:p></o:p></a></span></font></p>
<p><u><font size=3 color=blue face=宋体><span style='font-size:12.0pt;color:blue'><a
href="mailto:china-pm@pm.org" target="_blank">我现在有个文件类似<span lang=EN-US><br>
struct C {<br>
a=..;<br>
b=..;<br>
c=..;<br>
d=..;<br>
}</span><font color=black><span lang=EN-US style='color:windowtext;text-decoration:
none'><o:p></o:p></span></font></a></span></font></u></p>
<div>
<p class=MsoNormal><u><font size=3 color=blue face=宋体><span lang=EN-US
style='font-size:12.0pt;color:blue'><a href="mailto:china-pm@pm.org"
target="_blank">struct C {<br>
a=..;<o:p></o:p></a></span></font></u></p>
</div>
<div>
<p class=MsoNormal><u><font size=3 color=blue face=宋体><span lang=EN-US
style='font-size:12.0pt;color:blue'><a href="mailto:china-pm@pm.org"
target="_blank">b=..;<o:p></o:p></a></span></font></u></p>
</div>
<div>
<p class=MsoNormal><u><font size=3 color=blue face=宋体><span lang=EN-US
style='font-size:12.0pt;color:blue'><a href="mailto:china-pm@pm.org"
target="_blank">c=..;<o:p></o:p></a></span></font></u></p>
</div>
<div>
<p class=MsoNormal><u><font size=3 color=blue face=宋体><span lang=EN-US
style='font-size:12.0pt;color:blue'><a href="mailto:china-pm@pm.org"
target="_blank">d=..<br>
}<br>
...<br>
<span lang=EN-US><span lang=EN-US>我要读出每个结构的a</span></span><span lang=EN-US><span
lang=EN-US>和c</span></span><span lang=EN-US><span lang=EN-US>值<br>
</span></span><span lang=EN-US><span lang=EN-US>我用了<br>
my $condition=0;<br>
while(<FILE>) {<br>
if (/a=(.+)/) {<br>
$arr[0] = $1;<br>
condition = 1;<br>
} elsif(condition == 1 && /c=(.+)/) {<br>
$arr[1] = $1<br>
condition = 0;<br>
# </span></span><span lang=EN-US><span lang=EN-US>往数据库插入@arr<br>
}<br>
}<br>
</span></span><span lang=EN-US><span lang=EN-US>这样只能得到第一个struct</span></span><span
lang=EN-US><span lang=EN-US>的数据，然后<span lang=EN-US>提示<br>
Use of uninitialized value in pattern match (m//) at ... <br>
<o:p></o:p></span></span></span></a></span></font></u></p>
</div>
<p class=MsoNormal><font size=3 face=宋体><span lang=EN-US style='font-size:12.0pt'><o:p> </o:p></span></font></p>
</div>
<p class=MsoNormal><font size=3 face=宋体><span lang=EN-US style='font-size:12.0pt'><br>
_______________________________________________<br>
China-pm mailing list<br>
<a href="mailto:China-pm@pm.org" target="_blank">China-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">http://mail.pm.org/mailman/listinfo/china-pm</a><o:p></o:p></span></font></p>
</div>
<p class=MsoNormal><font size=3 face=宋体><span lang=EN-US style='font-size:12.0pt'><br>
<o:p></o:p></span></font></p>
</div>
<p class=MsoNormal><font size=3 face=宋体><span lang=EN-US style='font-size:12.0pt'><br>
_______________________________________________<br>
China-pm mailing list<br>
<a href="mailto:China-pm@pm.org" target="_blank">China-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">http://mail.pm.org/mailman/listinfo/china-pm</a><o:p></o:p></span></font></p>
</blockquote>
</div>
<p class=MsoNormal><font size=3 face=宋体><span lang=EN-US style='font-size:12.0pt'></span><br>
<o:p></o:p></span></font></p>
</div>
<p class=MsoNormal><font size=3 face=宋体><span lang=EN-US style='font-size:12.0pt'><br>
_______________________________________________<br>
China-pm mailing list<br>
<a href="mailto:China-pm@pm.org">China-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">http://mail.pm.org/mailman/listinfo/china-pm</a><o:p></o:p></span></font></p>
</div>
<p class=MsoNormal><font size=3 face=宋体><span lang=EN-US style='font-size:12.0pt'><o:p> </o:p></span></font></p>
</div>
</body>
</html>