RE: single quote and substitutions

2002-12-30 Thread Dan Muey
r new values -Original Message- From: Adriano Allora [mailto:[EMAIL PROTECTED]] Sent: Sunday, December 29, 2002 5:21 AM To: [EMAIL PROTECTED] Cc: Dan Muey Subject: Re: single quote and substitutions Venerdì, 27 Dic 2002, alle 20:11 Europe/Rome, Dan Muey ha scritto: > Have you tried

Re: single quote and substitutions

2002-12-29 Thread Adriano Allora
-Original Message- From: Adriano Allora [mailto:[EMAIL PROTECTED]] Sent: Friday, December 27, 2002 1:00 PM To: [EMAIL PROTECTED] Subject: single quote and substitutions Hi to all, I need to substitute in a text a serie of word with another serie of word (for example: when I have the name I want

Re: single quote and substitutions

2002-12-29 Thread John W. Krahn
Adriano Allora wrote: > > Hi to all, Hello, > I need to substitute in a text a serie of word with another serie of > word (for example: when I have the name I want the correct surname). > Modifying a someone else script I wrote this one: > > #!/usr/bin/perl -w > > my $original = '(name1|name2)

Re: single quote and substitutions

2002-12-29 Thread Adriano Allora
Venerdì, 27 Dic 2002, alle 20:11 Europe/Rome, Dan Muey ha scritto: Have you tried doing the regex without the vars? s/(name1|name2)/(surname1|surname2)/g; Does that do what you want? I'd prefer do not do it in this way, because I don't know how many (and what kind of) $originals and $news I'l

RE: single quote and substitutions

2002-12-27 Thread Dan Muey
-Original Message- From: Adriano Allora [mailto:[EMAIL PROTECTED]] Sent: Friday, December 27, 2002 1:00 PM To: [EMAIL PROTECTED] Subject: single quote and substitutions Hi to all, I need to substitute in a text a serie of word with another serie of word (for example: when I have the name

single quote and substitutions

2002-12-27 Thread Adriano Allora
Hi to all, I need to substitute in a text a serie of word with another serie of word (for example: when I have the name I want the correct surname). Modifying a someone else script I wrote this one: #!/usr/bin/perl -w my $original = '(name1|name2)'; my $new = '(surname1|surname2)'; $file_name