FilesExpand file tree

 master

/

string_filter.pl

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

28 lines (27 loc) · 615 Bytes

 master

/

string_filter.pl

Copy path

Top

File metadata and controls

• Code
• Blame

28 lines (27 loc) · 615 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

#!/usr/bin/perl

use strict;

use warnings;

## Way 1

open(IN, "serials.txt");

my $line_num = 1;

while(<IN>){

if($_ =~ /ccccAg/){

print "Found on line $line_num, $_ \n";

}

$line_num++;

}

close(IN);

## Way 2

open(IN, "serials.txt");

my $line_num = 1;

my $sub_string = 'cc';

while(my $one_line = <IN>){

my $current_position = 0;

while( (my $start_position = index($one_line, $sub_string, $current_position)) != -1){

print "Found at line $line_num, position $start_position \n";

## Move index forward

$current_position += $start_position + length($sub_string);

}

$line_num++;

}

close(IN);