Chinaunix首页 | 论坛 | 博客
  • 博客访问: 467903
  • 博文数量: 118
  • 博客积分: 4015
  • 博客等级: 上校
  • 技术积分: 1233
  • 用 户 组: 普通用户
  • 注册时间: 2010-11-24 22:11
文章分类

全部博文(118)

文章存档

2013年(5)

2011年(61)

2010年(52)

分类: Python/Ruby

2011-03-21 20:00:21

#!/usr/bin/perl
my $in = $ARGV[0];
die "NO INPUT!\n" if(!defined($in));
open RH ,$in or die "Cannot open $in:$!";
my @lines = ; chomp @lines;
close RH or die "$!";
open WH,">$in" or die "$!";
print WH $lines[0],"\n\n\n";
my @fields = split(/\s+/,$lines[3]);
$fields[0] =~ /(\d+)-(\d+)/;
my $len = $2 - $1 + 1;
for(my $i = 3; $i < @lines - 1; $i ++){
   @fields = split(/\s+/,$lines[$i]);
   print WH "$fields[0]\t\t";
   print WH substr($fields[1] ,0,$len),"\n";
}
close WH or die "$!";

阅读(1083) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~