作者adu (^_^)
看板Perl
标题Re: [问题] 回传抓到数值的位置
时间Mon Apr 6 23:25:41 2009
※ 引述《deh3215 ()》之铭言：
: #!/usr/bin/perl
: my $mainstring = "12345678901234567890HERE12345678901234567890";
: my $substring = "HERE";
: print my $first = index($mainstring, $substring);
: 结果:20 #---从0开始
: 终止位置加HERE长度就可求出.......
请问版大，想要从一串字元中把 特定字元前後、位置 抓出
i.e.
"123456here7890A1234567890Bhere1234567890C12wow34567890D"
^^^^ ^^^^ ^^^
抓出456here789、90Bhere123、C12wow345
该用甚麽方法？
--
这是我想到的解决方法，不过没有成功...
my $all_line = "1234567890A1234567890BHERE1234567890C1234567890D";
@code=split/,/,'HERE,HOME,WOW';
map{print $1,$4,"\n" for $all_line~~/(...)($_)(...)/g}@code;
print index($all_line, "HERE");
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.174.40.150
※ 编辑: adu 来自: 218.174.40.150 (04/06 23:53)