Thank you. It took me a while to get it going and not all of your suggestions worked but this is how the relevant part of my code looks like now.
@tect1=(1,5,6,8,16,20);
@tect2=(1,7,10,12,13,14,15,18,19,22,23,24,46);
@tect3=(1,2,3,9,10,11,17,21,24,39,46);
@tectlist=(\@tect1, \@tect2, \@tect3);
$variable=19; #as an example
for $i (0..$#tectlist) {
if (grep (/$variable/, @{$tectlist[$i]})){
print" List";
$listnumber=$i+1;
print" $listnumber";
print " contains $variable.\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.