Re: [PERL] Søg og erstat, men ikke 1.match

[Ole Tange <sslug@sslug>]

On Wed, 30 Oct 2002, Michael Schmidt wrote:

> Jeg har nogle autogenereret lister, alle med dot-syntaks (a la Java)
> hvor jeg gerne vil omdanne lang navngivning til hirakisk struktur.

#!/usr/bin/perl

@previous=();
while($l=<DATA>) {
    @current=split/\./,$l;
    @sslug@sslug;
    @sslug@sslug;
    for(@copy) {
        if($_ eq shift @previous) {
            s/./ /g;
            $_=" $_";
        } else {
            $_=".$_";
        }
    }
    print (@copy);
    @sslug@sslug;
}



/Ole
-- 
Registered Linux user #194. Get counted: http://counter.li.org
http://ole.tange.dk