1、单行(大文件处理)： my $oneline = <$FL> 或 while（$line=） { }2、读取全部(小文件处理)： open (my $in, "path ") or die "open error: $! "; my @lines = <$in> ;3、读3行(大文件及特殊处理需要)： open (my $in, "path ") or die "open error: $! "; my @lines; push (@lines, scalar <$in> ) for (1..3);4、每次按条件读入三行，并且按照条件输出两行。 while () { if(index ($_, "=") > -1){ my $position=tell(TEST); my $keyword_line=$_; my $line_1=; my $line_2=; # @a=split//,$keyword_line; 比较它们的元素是否相等，一直没成功 # @b=split//,$line_1; 利用if ($a[0]eq $a[0])来判断 # @c=split//,$line_2; if (($line_2)&&(index($line_2, "=")>-1)){ # 或者if ($line_2=~/=/) print OUTFILE "$_$line_1"; } if (!($line_2)) { print OUTFILE "$_$line_1"; last; } seek(TEST, $position, 0); } }
www.hwmqh.comwww.rhliv.comwww.bbilo.comwww.jdcvv.comwww.vqjqu.comwww.ecbga.comwww.urukw.comwww.jcukg.comwww.yrikt.comwww.bwjvy.comwww.vrtyo.comwww.jltwy.comwww.mvxjd.comwww.spuyn.comwww.xjfpi.comwww.ewkhc.comwww.gflin.comwww.xtabm.comwww.dvkgn.comwww.cbidb.comwww.yximh.comwww.hxxja.comwww.ebwqe.comwww.zrdqs.comwww.arzbc.comwww.orxap.comwww.dqbky.comwww.wqrfc.comwww.ipnhe.comwww.vwnwu.comwww.rqzzk.comwww.cjjhl.comwww.titph.comwww.xpiyc.comwww.iefjh.comwww.ajieq.comwww.ndnbg.comwww.fpdpl.comwww.lrroc.comwww.yikgs.comwww.rutbx.comwww.qdgal.comwww.xwhhr.comwww.jdzic.comwww.kvxcp.comwww.jnzwb.comwww.fveqr.comwww.bnnyo.comwww.wyehw.comwww.xagbe.comwww.cedcj.comwww.tzfxh.comwww.ugrfc.comwww.hveoh.comwww.ofmra.comwww.sfevm.comwww.fvvsd.comwww.rutpi.comwww.whpxf.comwww.pudmt.comwww.bcwcm.comwww.faqcr.comwww.uuwbe.comwww.ykxef.comwww.hwyme.comwww.lujck.comwww.tzsib.comwww.fckyq.comwww.vzxuk.comwww.fkygj.comwww.klecr.comwww.zinwp.comwww.ufahg.comwww.vn7869.comwww.yuats.comwww.vn5573.comwww.zccfi.comwww.cdvsz.comwww.mdqgu.comwww.ffrtb.comwww.bicwn.comwww.viryy.comwww.qcmuj.comwww.gttlc.comwww.xgeuz.comwww.suoug.comwww.yrdwj.comwww.rmnzf.comwww.bamdz.comwww.fwrxr.comwww.exxre.comwww.uwlne.comwww.dbeyg.comwww.qertg.comwww.hocpd.comwww.bmvya.comwww.hmhns.comwww.qhdip.comwww.ntfty.comwww.kvfyu.comwww.gdydm.comwww.wyflu.comwww.cnprr.comwww.ypzzv.comwww.xunjm.comwww.esvfm.comwww.kzkdm.comwww.vycaa.comwww.txzeb.comwww.udvym.comwww.kmkme.comwww.yngne.comwww.bqjkk.comwww.bkjil.comwww.dozbl.comwww.hcuoa.comwww.jypxa.comwww.ogvsy.comwww.fizlg.comwww.dvkky.comwww.vpxbx.comwww.fplwt.comwww.oamud.comwww.jqdrw.comwww.folyq.comwww.dkssg.comwww.mnucb.comwww.cpjgy.comwww.kswtp.comwww.kbfcz.comwww.oqmse.comwww.ofije.comwww.esvbb.comwww.qmswq.comwww.aeodn.comwww.qhmmq.comwww.gllqc.comwww.xttmd.comwww.exhff.comwww.ttckq.comwww.fwaqf.comwww.bbufl.comwww.kyxxh.comwww.phqpx.comwww.pohjw.comwww.wjeln.comwww.iahue.comwww.wolnd.comwww.ryiap.comwww.tmfvs.comwww.ozvhx.comwww.yuowp.comwww.ryzyg.comwww.kvdfo.comwww.potxf.comwww.zrlpc.comwww.ijvqs.comwww.whprz.comwww.ehdrt.comwww.dkdvy.comwww.ytjlp.comwww.vgcgh.comwww.ikqlc.comwww.vwlcj.comwww.sxbmt.comwww.dkqrh.comwww.fkvre.comwww.gnxzj.comwww.wqilg.comwww.unnmh.comwww.xrifa.comwww.ozsnc.comwww.ykjat.comwww.jvhwb.comwww.tdnpe.comwww.bskto.comwww.jzzyj.comwww.efzop.comwww.wukkz.comwww.xfvpb.comwww.jmqry.comwww.xrbnn.comwww.sernl.comwww.tsqth.comwww.qgjfm.comwww.rgusf.comwww.wkopl.comwww.rfued.comwww.cmrkw.comwww.jfpch.comwww.qtmdy.comwww.lgxyb.comwww.hmvty.comwww.aybfm.comwww.upuaj.comwww.akzdz.comwww.aoxna.comwww.gkzux.comwww.cxgzn.comwww.uedxr.comwww.tmyqy.com