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

[Wybo Dekker]

Hugo van der Kooij wrote:
> Hoi,
> 
> Als ik een variabele met een string als:
> 7D/8D/7D8D01B6BCA36B1634BA0459E71B4F17.198339.win32/data001/01.exe
> 
> Is de volgende regel dan correct in perl?
> $samplename =~ s/\.(.*)\/.*/$1/;
> 
> Om te komen tot het resultaat:
> 7D/8D/7D8D01B6BCA36B1634BA0459E71B4F17.198339.win32
> 
> Ik heb het gevoel dat dit net zo goed als resultaat kan geven:
> 7D/8D/7D8D01B6BCA36B1634BA0459E71B4F17.198339.win32/data001

niet net zo goed: dat doet het gewoon, en dat moet ook. Als je slechts 
tot de eerstvolgende / wilt gaan dan moet je dit doen:

$samplename =~ s/\.(.*?)\/.*/$1/;

(.* pakt zoveel mogelijk, .*? pakt zo weinig mogelijk)

-- 
Wybo