«

Hi,
I need some assistance on a search and replace issue with a
commaseparated file.
I need to replace all commas(,) on every lines EXCEPT those that occur
within doublequotes (",")

Thanks,

Sven

In article <> ,
Sven <> wrote:

: I need some assistance on a search and replace issue with a
: commaseparated file.
: I need to replace all commas(,) on every lines EXCEPT those that occur
: within doublequotes (",")

If you want to roll your own:

$ cat try
#! /usr/local/bin/perl

use warnings;
use strict;

while (<DATA>) {
s/(".*?"|,)/$1 eq ',' ? '<=>' : $1/eg;
print;
}

__DATA__
"foo,bar"
foo,bar
foo,bar,"baz,quux"
foo,,bar,"baz,quux"
foo,bar,,"baz,,quux"

$ ./try
"foo,bar"
foo<=>bar
foo<=>bar<=>"baz,quux"
foo<=><=>bar<=>"baz,quux"
foo<=>bar<=><=>"baz,,quux"

Consider using Text::CSV_XS, available on the CPAN.

Greg
--
The greatest dangers to liberty lurk in insidious encroachment by men
of zeal, well-meaning but without understanding.
-- Justice Louis D. Brandeis

Sven <> wrote:

> I need to replace all commas(,) on every lines EXCEPT those that occur
^^^^^^
> within doublequotes (",")


perldoc -q EXCEPT

How can I split a [character] delimited string except when inside
[character]? (Comma-separated files)


You are expected to check the Perl FAQ before posting to the
Perl newsgroup.

After you get the fields split, use join() to put them back
together with some other separator.

Or, better yet, use a module that understands the CSV format.

http://search.cpan.org/search?query=CSV&mode=all


--
Tad McClellan SGML consulting
Perl programming
Fort Worth, Texas

Sven wrote:
> I need some assistance on a search and replace issue with a
> commaseparated file.

> I need to replace all commas(,) on every lines EXCEPT those that
> occur within doublequotes (",")

s/("[^"]*")|,/$1 ? $1 : $replacement/eg;

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

(Sven) wrote in news:ad7279fb.0310231202.3fcc779
@posting.google.com:

> Hi,
> I need some assistance on a search and replace issue with a
> commaseparated file.
> I need to replace all commas(,) on every lines EXCEPT those that occur
> within doublequotes (",")

Please read the FAQ before posting. Thanks.

--
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print

On Fri, 24 Oct 2003 08:46:37 -0500, "Eric J. Roode"
<> wrote:

> (Sven) wrote in news:ad7279fb.0310231202.3fcc779
>@posting.google.com:
>
>> Hi,
>> I need some assistance on a search and replace issue with a
>> commaseparated file.
>> I need to replace all commas(,) on every lines EXCEPT those that occur
>> within doublequotes (",")
>
>Please read the FAQ before posting. Thanks.

While I will usually be the first one to recommend
reading the documentation, the least you could do
is point the OP to the relevant bit of documentation
as it is far from easy to find.

"How can I split a [character] delimited string except
when inside [character]?"

The relevant section is in perlfaq4 and can be read
either by browsing through that document:

perldoc perlfaq4

or, searching for it within the perlfaq documents:

perldoc -q split

or

perldoc -q delimited