;;;; ändern zu ;1;1;1;1 - #118445 (Allgemeines zu Perl)

leo11

2009-01-28 20:29

User since
2008-08-14
250 Artikel
BenutzerIn
[default_avatar]

Hallo,

Code (perl): (dl )

#! /usr/bin/perl
use strict;
use warnings;

while (<DATA>)  {
    s{;;}
    {;1;}xmsg;
    print;
}

__DATA__
;;;;
;;;;

gibt folgendes aus:

Code: (dl )

1
2

;1;;1;
;1;;1;

Wie bekomme ich auf einen Streich:

Code: (dl )

1
2

;1;1;1;
;1;1;1;

---

Noch eine 2te Frage:
wie kann ich nach etwas suchen und dann ersetzen durch $1 gefolgt von einer 1, gefolgt von $2?
Bsp.:

Code (perl): (dl )

1
2

s{(;)(;)}
    {$11$2}

Probiert hab ich bisher:
{$1\1$2}
und
{$1 1 $2}x

Beides brachte nicht das gewünschte Ergebnis. D.h. bspw. $1 enthält 2 ebenso wie $2, dann sollte folgendes gesetzt werden:
212