今日のPerl
公開日：
:
最終更新日：2014/02/04
プログラミング
記事内に広告を含む場合があります。記事内で紹介する商品を購入することで、当サイトに売り上げの一部が還元されることがあります。
print "Please enter a string: ";
chomp(my $string = <STDIN>);
print "Please enter a substring: ";
chomp(my $sub = <STDIN>);
my @places;
for(my $pos = -1;;){
$pos = index($string, $sub, $pos + 1);
last if $pos == -1;
push @places, $pos;
}
print "Location of '$sub' in '$string' were: @places\n";
関連記事
- PREV
- ポッドキャストの簡単な聞き方を発見した
- NEXT
- 今日のPerl
