Find Replace text with list

wa2nlinux has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks, I trying to make code to find and replace a file text, using a list of 'find/replace' pattern and writting to a file here the code


#!/usr/bin/perl

use strict;
use warnings;

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


my $s = "/ka /hi";

for my $replace (@replace) {
    $s =~ s/$replace->[0]/$replace->[1]/gee;
}

open(FileHTM,">newfile") || die("Cannot Open File");
print FileHTM "$s\n";
close(FileHTM)
[download]

The question is how can I put

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

into a separate file because I need to write many more list on that. Also my @s (source text) should be a file too.

Comment on Find Replace text with list Select or Download Code

Replies are listed 'Best First'.
Re: Find Replace text with list by moritz (Cardinal) on Feb 07, 2011 at 07:55 UTC
I see that you are already using file operations in your script. What stops you from simply reading the contents of a file into `$s`? For the `@replace` array you can just read a file line by line and split on a predefined delimiter. Perl 6 - second systems done right	[reply] [d/l] [select]
Re^2: Find Replace text with list by wa2nlinux (Novice) on Feb 07, 2011 at 14:35 UTC
Here the error when I try to get @replace from file `Can't use string ("my @replace = ( ") as an ARRAY ref while "strict refs" in use at parsingtex.pl line 16 +, <FData> line 4.` [download]	[reply] [d/l]
Re^3: Find Replace text with list by moritz (Cardinal) on Feb 07, 2011 at 14:41 UTC
Which code produced that error? Perl 6 - second systems done right	[reply]
Re^4: Find Replace text with list by wa2nlinux (Novice) on Feb 07, 2011 at 15:13 UTC
Re^5: Find Replace text with list by moritz (Cardinal) on Feb 07, 2011 at 15:29 UTC
Some notes below your chosen depth have not been shown here
Re^2: Find Replace text with list by Anonymous Monk on Feb 15, 2012 at 13:12 UTC
I saw you can do a multiple find and replace a list of items in text online at http://list-replace.info . Maybe this can help.	[reply]
Re: Find Replace text with list by roboticus (Chancellor) on Feb 07, 2011 at 13:10 UTC
wa2nlinux: I assume the part you're having trouble with is getting the regular expression into a variable and treating it as a regular expression instead of a string. If you read `perldoc perlop` in the section on "Quote and quote-like operators", you'll find the subsection "Regex Quote-Like Operators" which will help you. Basically the trick is this: Once you get the regex into a string, you can use the `qr` operator to turn it into a reference to a regex that you can use just like a regular expression: `$ cat regex_in_str.pl #!/usr/bin/perl use strict; use warnings; my $r = "ab+cd"; my $rRegex = qr/$r/; for my $t (qw( abcd aabbbd acccd dbca )) { if ($t =~ $rRegex) { print "MATCH: $t\n"; } } $ perl regex_in_str.pl MATCH: abcd MATCH: aabbbd $` [download] So all you need to do is read the name and representation of your regular expression from a file, convert the representation into a reference to a regex and load your array. ...roboticus When your only tool is a hammer, all problems look like your thumb.*	[reply] [d/l] [select]
Re^2: Find Replace text with list by wa2nlinux (Novice) on Feb 08, 2011 at 02:37 UTC
How could I qw each line of file ? `@lines=<FILE>; my $t = qw (@lines)` [download] not working ?	[reply] [d/l]
Re^3: Find Replace text with list by Anonymous Monk on Feb 08, 2011 at 07:27 UTC
How could I qw each line of file? That doesn't compute. What is the input you have, and what is the output you want? How do I post a question effectively?	[reply]
Re^4: Find Replace text with list by wa2nlinux (Novice) on Feb 09, 2011 at 01:53 UTC
Re^3: Find Replace text with list by roboticus (Chancellor) on Feb 08, 2011 at 11:07 UTC
wa2nlinux: You don't need to. I used `qw` just for making the example. Perhaps I should've written it like this: `#!/usr/bin/perl use strict; use warnings; my $r = "ab+cd"; my $rRegex = qr/$r/; while (my $t = <DATA>) { if ($t =~ $rRegex) { print "MATCH: $t\n"; } } __DATA__ abcd aabbbd acccd dbca` [download] ...roboticus When your only tool is a hammer, all problems look like your thumb.*	[reply] [d/l] [select]