小时代5-perl文件读取的几种处理方式小结

wuliws

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.com
www.rhliv.com
www.bbilo.com
www.jdcvv.com
www.vqjqu.com
www.ecbga.com
www.urukw.com
www.jcukg.com
www.yrikt.com
www.bwjvy.com
www.vrtyo.com
www.jltwy.com
www.mvxjd.com
www.spuyn.com
www.xjfpi.com
www.ewkhc.com
www.gflin.com
www.xtabm.com
www.dvkgn.com
www.cbidb.com
www.yximh.com
www.hxxja.com
www.ebwqe.com
www.zrdqs.com
www.arzbc.com
www.orxap.com
www.dqbky.com
www.wqrfc.com
www.ipnhe.com
www.vwnwu.com
www.rqzzk.com
www.cjjhl.com
www.titph.com
www.xpiyc.com
www.iefjh.com
www.ajieq.com
www.ndnbg.com
www.fpdpl.com
www.lrroc.com
www.yikgs.com
www.rutbx.com
www.qdgal.com
www.xwhhr.com
www.jdzic.com
www.kvxcp.com
www.jnzwb.com
www.fveqr.com
www.bnnyo.com
www.wyehw.com
www.xagbe.com
www.cedcj.com
www.tzfxh.com
www.ugrfc.com
www.hveoh.com
www.ofmra.com
www.sfevm.com
www.fvvsd.com
www.rutpi.com
www.whpxf.com
www.pudmt.com
www.bcwcm.com
www.faqcr.com
www.uuwbe.com
www.ykxef.com
www.hwyme.com
www.lujck.com
www.tzsib.com
www.fckyq.com
www.vzxuk.com
www.fkygj.com
www.klecr.com
www.zinwp.com
www.ufahg.com
www.vn7869.com
www.yuats.com
www.vn5573.com
www.zccfi.com
www.cdvsz.com
www.mdqgu.com
www.ffrtb.com
www.bicwn.com
www.viryy.com
www.qcmuj.com
www.gttlc.com
www.xgeuz.com
www.suoug.com
www.yrdwj.com
www.rmnzf.com
www.bamdz.com
www.fwrxr.com
www.exxre.com
www.uwlne.com
www.dbeyg.com
www.qertg.com
www.hocpd.com
www.bmvya.com
www.hmhns.com
www.qhdip.com
www.ntfty.com
www.kvfyu.com
www.gdydm.com
www.wyflu.com
www.cnprr.com
www.ypzzv.com
www.xunjm.com
www.esvfm.com
www.kzkdm.com
www.vycaa.com
www.txzeb.com
www.udvym.com
www.kmkme.com
www.yngne.com
www.bqjkk.com
www.bkjil.com
www.dozbl.com
www.hcuoa.com
www.jypxa.com
www.ogvsy.com
www.fizlg.com
www.dvkky.com
www.vpxbx.com
www.fplwt.com
www.oamud.com
www.jqdrw.com
www.folyq.com
www.dkssg.com
www.mnucb.com
www.cpjgy.com
www.kswtp.com
www.kbfcz.com
www.oqmse.com
www.ofije.com
www.esvbb.com
www.qmswq.com
www.aeodn.com
www.qhmmq.com
www.gllqc.com
www.xttmd.com
www.exhff.com
www.ttckq.com
www.fwaqf.com
www.bbufl.com
www.kyxxh.com
www.phqpx.com
www.pohjw.com
www.wjeln.com
www.iahue.com
www.wolnd.com
www.ryiap.com
www.tmfvs.com
www.ozvhx.com
www.yuowp.com
www.ryzyg.com
www.kvdfo.com
www.potxf.com
www.zrlpc.com
www.ijvqs.com
www.whprz.com
www.ehdrt.com
www.dkdvy.com
www.ytjlp.com
www.vgcgh.com
www.ikqlc.com
www.vwlcj.com
www.sxbmt.com
www.dkqrh.com
www.fkvre.com
www.gnxzj.com
www.wqilg.com
www.unnmh.com
www.xrifa.com
www.ozsnc.com
www.ykjat.com
www.jvhwb.com
www.tdnpe.com
www.bskto.com
www.jzzyj.com
www.efzop.com
www.wukkz.com
www.xfvpb.com
www.jmqry.com
www.xrbnn.com
www.sernl.com
www.tsqth.com
www.qgjfm.com
www.rgusf.com
www.wkopl.com
www.rfued.com
www.cmrkw.com
www.jfpch.com
www.qtmdy.com
www.lgxyb.com
www.hmvty.com
www.aybfm.com
www.upuaj.com
www.akzdz.com
www.aoxna.com
www.gkzux.com
www.cxgzn.com
www.uedxr.com
www.tmyqy.com