diff options
-rw-r--r-- | SUBS.pl | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -0,0 +1,16 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.016; + +chomp(my $string = <>); +chomp(my $substr = <>); +my @positions; + +my $start = 0; +while((my $pos = index($string, $substr, $start)) != -1) { + push @positions, $pos + 1; + $start = $pos + 1; +} + +say join(' ', @positions); |