[linux] perl (zoek en vervang) script vraag

[Hugo van der Kooij]

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


Als achtergrond:

De files worden omgedoopt in de collectie naar
  "$md5sum.$filelength.$filetype" (dat is in pseudo talk)

De combinatie van md5sum + filesize lijkt me vrij uniek voor een bestand. 
(Theoretisch is er een kans op een collision maar die ligt dermate ver 
weg dat ik de kans wel waag.)

Omdat > 100k aan bestanden in 1 directory niet altijd even goed werkt 
worden de eerste 4 digits gebruikt om ze in 256 * 256 directories te 
verdelen. (Dan gaan de windows applicaties niet op hun plaat.)

Hugo.

-- 
 	hvdkooij op vanderkooij.org	http://hugo.vanderkooij.org/
 	    This message is using 100% recycled electrons.

 	Some men see computers as they are and say "Windows"
 	I use computers with Linux and say "Why Windows?"
 		(Thanks JFK, for the insight.)