随笔 - 32, 文章 - 1, 评论 - 5, 引用 - 0
数据加载中……

perl读取文件

 1#!/usr/bin/perl
 2print "This is aaa file handler.\n";
 3if(open(MYFILE,"Radius20101101-001.txt")){
 4    while($line=<MYFILE>){
 5        @array=split("Identifier=",$line);
 6        @array=split("\t",$array[1]);
 7        print $array[0];
 8        print ("\n");
 9    }
10    close(FD);
11}

posted on 2010-12-01 17:37 colorfire 阅读(203) 评论(0)  编辑  收藏 所属分类: 脚本语言


只有注册用户登录后才能发表评论。


网站导航: