HOW TO replace ' but not ?'

[tor]

Hello
I want to put a new line after each ', but not after ?'.
If someone are familiare with edifact they understand.

AAA+Tim?'s'BBB+123'

should become

AAA+Tim?'s'
BBB+123'

anyone???

Torfinn

 

[Peter Hickman]

Hello
I want to put a new line after each ', but not after ?'.
If someone are familiare with edifact they understand.

AAA+Tim?'s'BBB+123'

should become

AAA+Tim?'s'
BBB+123'

anyone???

Torfinn

How about this?

$a = "AAA+Tim?'s'BBB+123'";

print "$a\n";

$a =~ s/([^\?]')/$1\n/g;

print "$a\n";

The ([^\?]') says match and capture any character other than a ? that is
followed by a '

The $1\n says replace this with whatever you captured plus a newline

 

[Tad McClellan]

I want to put a new line after each ', but not after ?'.

AAA+Tim?'s'BBB+123'

should become

AAA+Tim?'s'
BBB+123'

anyone???

s/(?<!\?)'/'\n/g;

or more readably:

s/(?<! \? ) # preceding char is not a question mark
'
/'\n/gx;

 

[Paul Lalli]

Hello
I want to put a new line after each ', but not after ?'.
If someone are familiare with edifact they understand.

How about this?

$a = "AAA+Tim?'s'BBB+123'";
print "$a\n";
$a =~ s/([^\?]')/$1\n/g;

Question marks are not special in character classes. No need for a
backslash there.

print "$a\n";

The ([^\?]') says match and capture any character other than a ? that is
followed by a '

The $1\n says replace this with whatever you captured plus a newline

I'm not familiar with EDIFACT, so this may not apply. However, if there
is a possibility that a ' could be the first (or only) character in the
string, and you need to insert a newline after it, this will not work.
The [^?] requires an actual character.

To match just "an apostrophe not preceded by a question mark" (rather
than "anything that's not a question mark, followed by an apostrophe"),
you need to use negative lookbehind assertions:

s/(?<!\?)'/'\n/;

Paul Lalli

 

[Whitey Johnson]

Hello
I want to put a new line after each ', but not after ?'.
If someone are familiare with edifact they understand.

AAA+Tim?'s'BBB+123'

should become

AAA+Tim?'s'
BBB+123'

anyone???

Torfinn

Ooooh oooh oooh!!
I wanna give this a try before I look at the other respones:

#!/usr/bin/perl

use strict;
use warnings;

my $line = "AAA+Tim?'s'BBB+123'";
$line =~ s#[^?]'#'\n#;
print $line. "\n";

 

[Whitey Johnson]

On Wed, 27 Oct 2004 11:36:27 -0500, Whitey Johnson muttered incoherently:

Ooooh oooh oooh!!
I wanna give this a try before I look at the other respones:

#!/usr/bin/perl

use strict;
use warnings;

my $line = "AAA+Tim?'s'BBB+123'";
$line =~ s#[^?]'#'\n#;

Damn, make that: $line =~ s#[^?]'#'\n#g;

 

[Whitey Johnson]

On Wed, 27 Oct 2004 11:39:41 -0500, Whitey Johnson muttered incoherently:

my $line = "AAA+Tim?'s'BBB+123'";
$line =~ s#[^?]'#'\n#;

Damn, make that: $line =~ s#[^?]'#'\n#g;

One more try: $line =~ s#([^?])'#$1'\n#g;

I read Tad's post and was wondering if there was a case where this
wouldn't work?

 

[Paul Lalli]

my $line = "AAA+Tim?'s'BBB+123'";
$line =~ s#[^?]'#'\n#;

Damn, make that: $line =~ s#[^?]'#'\n#g;

One more try: $line =~ s#([^?])'#$1'\n#g;

I read Tad's post and was wondering if there was a case where this
wouldn't work?

Yes. Read my post in this thread.

Paul Lalli

 

[Whitey Johnson]

Yes. Read my post in this thread.

Paul Lalli

Thanks. I don't remember negative lookbehind assertions in the Llama book
and it seems I am a couple of chapters away from them in the Camel book.