[linux] Re: perl (zoek en vervang) script vraag

[Wybo Dekker]

Daniel von Asmuth wrote:

> Nou ben ik meer sed-ist dan perl-diver, dus ik zou ongeveer zo doen:
>  sed -e
> "/[0-9A-F]\+\/[0-9A-F]\+\/\([0-9A-F]\+\)\.\([0-9]\+\)\.\(.*\)\/.*\/.*/s//\1.\2.\3/"

Ik moet toegeven - dat maakt meer indruk dan de
$samplename =~ s/(\..*?)\/.*/$1/; van Perl

Zelf ben ik (als we dan toch bezig zijn) meer een Ruby-ist:
samplename.sub!(/(\..*?)\/.*/,$1)

of, als het vaker moet en wat overzichtelijker, de regexp bewaren:
re = %r{(\..*?)/.*}
en dan
samplename.sub!(re,$1)

-- 
Wybo