Need help with a program

[rband]

People,

Need your help with a problem.
I need a program that will
1. take two input files of strings, file1 and file2.
2. read strings one by one from file1, and search for strings in
file2 that contain the string in file1 and append these to output
file3.

Probably a simple problem for perl gurus, but I am a complete novice
....
Appreciate any help ...

Thanks.
robin

 

[Tintin]

People,

Need your help with a problem.
I need a program that will
1. take two input files of strings, file1 and file2.
2. read strings one by one from file1, and search for strings in
file2 that contain the string in file1 and append these to output
file3.

Probably a simple problem for perl gurus, but I am a complete novice
...
Appreciate any help ...

Is this a homework question?

 

[James Willmore]

On 12 Nov 2003 22:08:49 -0800

People,

Well ... now that's the first time I've seen that as a salutation in
this group. Lucky for you (and AFAIK) that cats and dogs don't read
this newsgroup

Need your help with a problem.
I need a program that will
1. take two input files of strings, file1 and file2.

At the command line, type the following commands to get documentation
related (closely and distant) to this question.

perldoc -f open
perldoc -q open
perldoc -q file
perldoc perlfaq5

This *should* get you started.

2. read strings one by one from file1, and search for strings in
file2 that contain the string in file1 and append these to output
file3.
Ditto.


Probably a simple problem for perl gurus, but I am a complete novice

Maybe. Maybe not. I'll never tell Seriously, it is a simple
task. And I have provided some resources for you to find the answer
for your simple problem. You *could* also try Google. Perhaps
someone wrote the code for you.

...
Appreciate any help ...

And this was *any* help offered

HTH

--
Jim

Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.

a fortune quote ...
When in doubt, do what the President does -- guess.

 

[rband]

Is this a homework question?

No, need this to solve a different problem I am working on.

 

[Glenn Jackman]

People,

Need your help with a problem.
I need a program that will
1. take two input files of strings, file1 and file2.
2. read strings one by one from file1, and search for strings in
file2 that contain the string in file1 and append these to output
file3.

I'd write:

open F1, $file1 or die "can't open $file1: $!\n";
open F2, $file2 or die "can't open $file2: $!\n";
open F3, '>', $file3 or die "can't open $file3 for writing: $!\n";

my @lines = <F1>;
close F1;

my $string = join '|', @lines;
my $re = qr($string);

while (<F2>) {
print F3 $_ if /$re/;
}
close F2;
close F3;

 

[rband]

will try it. Thanks.

I'd write:

open F1, $file1 or die "can't open $file1: $!\n";
open F2, $file2 or die "can't open $file2: $!\n";
open F3, '>', $file3 or die "can't open $file3 for writing: $!\n";

my @lines = <F1>;
close F1;

my $string = join '|', @lines;
my $re = qr($string);

while (<F2>) {
print F3 $_ if /$re/;
}
close F2;
close F3;

 

[Anno Siegel]

I'd write:

open F1, $file1 or die "can't open $file1: $!\n";
open F2, $file2 or die "can't open $file2: $!\n";
open F3, '>', $file3 or die "can't open $file3 for writing: $!\n";

my @lines = <F1>;
close F1;

You're putting linefeeds into the regexes below.

chomp @lines;

my $string = join '|', @lines;

The strings in @lines could contain metacharacters.

my $string = join '|', map quotemeta, @lines;

my $re = qr($string);

while (<F2>) {
print F3 $_ if /$re/;
}
close F2;
close F3;

Anno