Deane.Rothenmaier:
Please send plain-text messages, not MIME-encoded.
>> for my $x (0 .. $#ary) {
This loops 1 time too much, so change to:
for my $x (0 .. $#ary-1) {
or better, to
for my $a (@ary) {
and change every '$ary[$x]' to '$a'.
>> print $NEW_INIFILE "... against >$ary[$x][1]<\n";
>>
>> if ($value =~ /$ary[$x][1]/) {
This puts the array-value inside the regex. Why not use
if ($value eq $a[1]) {
or at least use \Q: /\Q$ary[$x][1]/
to force regex-specials be quoted.
(sorry, not tested)
--
Affijn, Ruud
"Gewoon is een tijger."
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
