Re^4: Find Replace text with list

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;
}
[download]

Comment on Re^4: Find Replace text with list Download Code

Replies are listed 'Best First'.
Re^5: Find Replace text with list by moritz (Cardinal) on Feb 07, 2011 at 15:29 UTC
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. Perl 6 - second systems done right	[reply]
Re^6: Find Replace text with list by wa2nlinux (Novice) on Feb 08, 2011 at 02:42 UTC
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"' ], );` [download]	[reply] [d/l]