免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2300 | 回复: 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


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

本版积分规则 发表回复

SACC2019中国系统架构师大会

【数字转型 架构演进】SACC2019中国系统架构师大会,8.5折限时优惠重磅来袭!
2019年10月31日~11月2日第11届中国系统架构师大会(SACC2019)将在北京隆重召开。四大主线并行的演讲模式,1个主会场、20个技术专场、超千人参与的会议规模,100+来自互联网、金融、制造业、电商等领域的嘉宾阵容,将为广大参会者提供一场最具价值的技术交流盛会。

限时8.5折扣期:2019年9月30日前


----------------------------------------

大会官网>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP