免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2334 | 回复: 4

有空的来帮我看看这个小程序怎么写 [复制链接]

论坛徽章:
0
发表于 2010-08-30 21:38 |显示全部楼层
格式形如这样:
*****  (注释行)
gthrtghbserhewtjrdgtjetnjwtethbet
rtjherdghdrghethwthethethethet5h
......
然后下面全是字母,没有规律的,请问如何找到第n个字母是什么???
谢谢各位了

论坛徽章:
0
发表于 2010-08-30 23:30 |显示全部楼层
如果内容是存在文件里的,读到数组里,去第n个元素。

论坛徽章:
0
发表于 2010-08-31 00:59 |显示全部楼层
前提条件
1.假设你的文件时保存在e:/yy.txt里面
2.假设文件不大。
代码可以如下:
  1. use strict;
  2. my $n = shift;

  3. open(R,"< e:/yy.txt") or die "fail to open!";
  4. my @a=<R>;
  5. close(R);

  6. my $all_str = join '', grep !/^\s*\*/, @a;
  7. $all_str =~ s/\s//g;

  8. my @chr = split //,$all_str;
  9. print $chr[$n-1];
复制代码
使用:
比如我的程序名称为bb.pl
我在winxp的dos环境下使用
perl bb.pl 5
5表示n

论坛徽章:
0
发表于 2010-08-31 01:30 |显示全部楼层
如果文件比较大还是用下面的代码
  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.    my $line_length = length($line);
  9.    if( $n <= $line_length ){
  10.         print substr($line,$n-1,1);
  11.         last;
  12.    }elsif( $n > $line_length){
  13.         $n -= $line_length;
  14.    }
  15. }
复制代码
使用方法一样

论坛徽章:
0
发表于 2010-08-31 13:03 |显示全部楼层
回复 4# ykredrum


    非常感谢!~
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

DTCC2020中国数据库技术大会

【架构革新 高效可控】2020年12月21日-23日第十一届中国数据库技术大会将在北京隆重召开。

大会设置2大主会场,20+技术专场,将邀请超百位行业专家,重点围绕数据架构、AI与大数据、传统企业数据库实践和国产开源数据库等内容展开分享和探讨,为广大数据领域从业人士提供一场年度盛会和交流平台。

http://dtcc.it168.com


大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP