hi to all and thanks to all suggested me some solution,
using debug lines (or something similar) I understood how obtaining the
output I want.
Now, I'm writing this e-mail to show a possible way to do a discrete
corrector: I write a regexp to substitute (maybe with another regexp
including bac
text to replace it with.
PATTERN: Te([^ ]+).*support
REPLACEMENT: sticular
Pattern Found!
$_ => Tech Support
$1 => ch
Type "s" to confirm substitution,
or press any other key to cancel: s
COMMAND: s/Te([^ ]+
ne to:
if(/($pattern)/gi)
-Original Message-
From: Adriano Allora [mailto:[EMAIL PROTECTED]
Sent: Mon 1/2/2006 3:48 AM
To: beginners@perl.org
Cc:
Subject: about eval and stdin
hi to all,
a friend of mi
Adriano Allora am Montag, 2. Januar 2006 12.48:
> hi to all,
> a friend of mine ask me for a perl script to change regexp patterns in
> some texts (he can learn regexp, but I suppose he won't learn perl). So
> I start write this one to him.
> I have a problem:
> ==> with pattern = (dir)ectory and r
hi to all,
a friend of mine ask me for a perl script to change regexp patterns in
some texts (he can learn regexp, but I suppose he won't learn perl). So
I start write this one to him.
I have a problem:
==> with pattern = (dir)ectory and replacement = $1, why the script
does not eval $1 as "d
