Partial Pattern Matching

[usheikh]

I am trying to write a script that will allow me to do the following:

Consider a file called NUMBERS containing entries such as:

123456
123444
123476
345678
345677

The script when run will prompt the user to enter a number. Then it will look in NUMBERS file and display any numbers that contain the same numbers. For example, if the user entered 123, then the following numbers will be displayed to the screen:

123456
123444
123476

Is there a function or operator that will allow me to match in this way? Or any useful threads with anything similar would be much appreciated. Thanks.

 

[Deleted]

This should work. Enjoy!

#!/usr/bin/perl -w

use strict;

my $input = <STDIN>;

open FILE, "numbers.txt" or die $!;
while ( <FILE> ) {
    if ( $_ =~ m/($input)/ ) {
        print $_;       
    }
}
close FILE;

http://unixjunky.com

 

[usheikh]

Thanks for the above program. But there is a problem with it as it only returns the number that it matches exactly. For example if I enter 123476 then it will only return this. But if I enter 123 then it does not return anything. Any ideas?

 

[Deleted]

m/^($input)*$/

http://unixjunky.com

 

[Deleted]

my $input = <STDIN>;
chop $input;

http://unixjunky.com

 

[usheikh]

When I run the program, after inputting the number I get a a blank screen. This is what I have so far.:

#!/usr/bin/perl -w

use strict;

my $input = <STDIN>;
chop $input;

open FILE, "numbers.txt" or die $!;
while ( <FILE> ) {
if ( $_ =~ m/^($input)*$/ ) {
print $_;
}
}
close FILE;

 

[Deleted]

#!/usr/bin/perl -w

use strict;

chop( my $input = <STDIN> );

open FILE, "numbers.txt" or die $!;
while ( <FILE> ) {
    if ( $_ =~ m/($input)/ ) {
        print $_;
    }
}
close FILE;

http://unixjunky.com

 

[usheikh]

works perfectly. thank you so much!

 

[usheikh]

I have another issue that I have been trying to solve. If numbers.txt contains entries like:

123456_A
123456_B

123444_A
123444_B

123476_A
123476_B

So bascially for every number there should be _A and _B entries in the file. If not then this should be printed to the screen. Therefore, this time the user would not enter a number but would instead just execute the script which would produce a list of entries that have either a _A or _B missing. Any ideas??? Is there a diff like function in Perl I could use?

 

[KevinADC]

well, what have you tried? This is not a script writing service although "Deleted" was nice enough to just write you a script.

Hint: use a regexp to see if there is a _A or _B on the end of the string or not:

print unless /_[AB]$/;