Re: search and replace

Dude, perlrequick, Regexp::English, Regexp::Common, Iterator::Files, ARGV::readonly

 
s{^\Qmail xmlfeedback -s \E(.*)$}{mail -s $1 xmlfeedback}sgx;

s{^mail xmlfeedback -s ("feed invalid for agent \d+")\s*$}{mail -s $1 
+xmlfeedback}sgx;
[download]

use Regexp::English;

my $re = Regexp::English
        -> start_of_line
        -> literal('mail xmlfeedback -s')
        -> remember
            -> literal('"feed invalid for agent ')
            
            -> multiple
                -> digit
            -> end
            
            -> literal('"')
        -> end
        
        -> zero_or_more
            -> whitespace_char
        -> end
        
        -> end_of_line;
print $re;
__END__
(?^:^mail\ xmlfeedback\ \-s(\"feed\ invalid\ for\ agent\ (?:\d+)\")(?:
+\s*)$)
[download]

Comment on Re: search and replace Select or Download Code

Replies are listed 'Best First'.
Re^2: search and replace by Anonymous Monk on Sep 28, 2012 at 08:15 UTC
`use Regexp::English; my $re = Regexp::English -> start_of_line -> literal('mail xmlfeedback -s ') -> remember -> zero_or_more -> non_newline -> end -> end_of_line; print $re; __END__ (?^:^mail\ xmlfeedback\ \-s\ ((?:(?s)[^\n]*)$))` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: search and replace
by Anonymous Monk on Sep 28, 2012 at 08:15 UTC

use Regexp::English;
my $re = Regexp::English
        -> start_of_line
        -> literal('mail xmlfeedback -s ')
        -> remember
        -> zero_or_more
            -> non_newline
        -> end
        -> end_of_line;
print $re;
__END__
(?^:^mail\ xmlfeedback\ \-s\ ((?:(?s)[^\n]*)$))
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom