thank you epee

freedegree

thank you

epee

如果文件不是太大的话可以这样。输入"3 10"。

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. my ($start,$end)=split ' ',<STDIN>;;
   
5. open FH,'filename' or die "Can't open file.";
   
6. my $data=<FH>;;
   
7. undef $/;
   
8. $data=<FH>;;
   
9. close FH;
   
10. $data=~tr/A-Z//cd;
    
11. print substr($data,$start-1,$end-$start+1);
    

复制代码