Re: [問題] 回傳抓到數值的位置
※ 引述《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)
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
