Sonderzeichen im Array Element ignorieren - #178228 (Allgemeines zu Perl)

amos

2014-11-10 11:25

User since
2014-08-07
9 Artikel
BenutzerIn
[default_avatar]

Hallo Experten,
in meinen Array Elemeten befinden sich Sonderzeichen.
Dadurch funktioniert leider die grep Funktion nicht richtig.
Gibt es eine elegantere Möglichkeit als mein: s/\@|\$\{|\}|$|$|\*//g;
im Skript?

Code (perl): (dl )

open(R,$s_file);
while(<R>) {
  if(/$search/) {
     chomp;
     s/\@|\$\{|\}|\(|\)|\*//g;
     my $match_line = $_;
     $cnt = grep(/$match_line/, @target);
     $i++; print "$i $cnt $match_line\n";
     $cnt=0;
  }
}