Re^3: Find Replace text with list

[moritz]

Which code produced that error?

[wa2nlinux]

When I read my @replace as array from a file and try to subtitute

open(FData,"< data") || die("Cannot Open File");
my @replace=<FData>;
for my $replace (@replace) {
    $s =~ s/$replace->[0]/$replace->[1]/gee;
}

[moritz]

That's not the code that produced the error message, is it?

Anyway, you just read the lines, but you don't split on any delimiter, and don't create any array references - so no wonder you can't use the lines as array references.

[wa2nlinux]

Yes, I already modified the source but the point is same, I wonder if can read file each line as array and then just call it like :

 (
   [ qr/\/ka/   => '"ku"'  ],
   [ qr/\/hi/   => '"he he he"'  ],
);