hi grandfather,
1. normaly not but it can happen so i load these elements from a file and read it into an array
2. yes they do everytime
3. can be 1 can be 500000
4. the minnimum matching is 4 numbers , the maximum i don't know but i never see everything larger then 14 so 20 shoud be the max
6. im loking for a single best match
here is some sample data for the array
__Array_DATA__
4930
49201
49202
49203
492041
492043
492045
492051
492052
492053
492054
492056
492058
492064
492065
492066
49208
49209
492102
492103
492104
here are some strings
4920911223344
492065577883667
49206656672
the result for these strings shoud look like
49209;11223344
492065;577883667
492066;56672
finaly my testing code wich is far from greatness ;)
use strict;
use warnings;
use File::Spec;
open(my $fh_in, '<', 'Script\\onkz.txt') or die("open failed: $!");
open(INFILE, '<', 'data.txt') or die("open failed: $!");
my @ONKZ = <$fh_in>;
my $filterregex = join('|',@ONKZ);
while (<INFILE>) {
if($_ =~ /^($filterregex)/){
print "$&;$'\n";
}
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.