有空的來(lái)幫我看看這個(gè)小程序怎么寫(xiě)

179147112

格式形如這樣：
*****  (注釋行)
gthrtghbserhewtjrdgtjetnjwtethbet
rtjherdghdrghethwthethethethet5h
......
然后下面全是字母，沒(méi)有規(guī)律的，請(qǐng)問(wèn)如何找到第n個(gè)字母是什么？？？
謝謝各位了

zzyong08

如果內(nèi)容是存在文件里的，讀到數(shù)組里，去第n個(gè)元素。

ykredrum

前提條件
1.假設(shè)你的文件時(shí)保存在e:/yy.txt里面
2.假設(shè)文件不大。
代碼可以如下：

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];

復(fù)制代碼

使用:
比如我的程序名稱(chēng)為bb.pl
我在winxp的dos環(huán)境下使用
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. }

復(fù)制代碼

使用方法一樣

179147112

回復(fù) 4# ykredrum


    非常感謝！~