有空的来帮我看看这个小程序怎么写

179147112

格式形如这样：
*****  (注释行)
gthrtghbserhewtjrdgtjetnjwtethbet
rtjherdghdrghethwthethethethet5h
......
然后下面全是字母，没有规律的，请问如何找到第n个字母是什么？？？
谢谢各位了

zzyong08

如果内容是存在文件里的，读到数组里，去第n个元素。

ykredrum

前提条件
1.假设你的文件时保存在e:/yy.txt里面
2.假设文件不大。
代码可以如下：

1. use strict;
   
2. my $n = shift;
   
3. 
   
4. open(R,"< e:/yy.txt") or die "fail to open!";
   
5. my @a=<R>;
   
6. close(R);
   
7. 
   
8. my $all_str = join '', grep !/^\s*\*/, @a;
   
9. $all_str =~ s/\s//g;
   
10. 
    
11. my @chr = split //,$all_str;
    
12. print $chr[$n-1];

复制代码

使用:
比如我的程序名称为bb.pl
我在winxp的dos环境下使用
perl bb.pl 5
5表示n

ykredrum

如果文件比较大还是用下面的代码

1. use strict;
   
2. my $n = shift;
   
3. my $read_fh;
   
4. open($read_fh,"< e:/yy.txt") or die "fail to open!";
   
5. while( my $line = <$read_fh> ){
   
6.    next if $line =~ /\*/;
   
7.    $line =~ s/\s//g;
   
8. 
   
9.    my $line_length = length($line);
   
10.    if( $n <= $line_length ){
    
11.         print substr($line,$n-1,1);
    
12.         last;
    
13.    }elsif( $n > $line_length){
    
14.         $n -= $line_length;
    
15.    }
    
16. }

复制代码

使用方法一样

179147112

回复 4# ykredrum


    非常感谢！~