Regex negieren - #135049 (Allgemeines zu Perl)

havi

2010-03-19 10:37

User since
2003-08-04
2036 Artikel
BenutzerIn

Denke du meinst so etwas:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

my $string = "testxtest";
$string    =~ s/([^x])/\n$1\n/g;
print $string;

Also, in diesem Fall nach jedem Zeichen Zeilenumbrüche dazu, außer bei x.
Also,

Code (perl): (dl )

[^x]

Gruß,
Gernot