Paso 9: Agregar secuencias de comandos de compatibilidad a Windows
A diferencia de Mac y otros sistemas operativos basados en Unix, Windows no es compatible con el concepto de un directorio raíz único. Por lo tanto, todas rutas comienzan con un volumen (C: o E: o cualquier otra letra que se te ocurra, de hecho) en contraposición al directorio raíz (/).
Por suerte para nosotros, Perl tiene un especial $ variable,O (que es un capital, no un cero), que nos dice qué sistema operativo que estamos utilizando actualmente. Por lo tanto, si el valor almacenado en dicha variable contiene "Ganar", vamos a querer quitar la barra principal en la ruta de ubicación de XML. Esto se puede hacer con la siguiente línea de código (agregado después de analizar correctamente la ubicación de una pista desde el archivo XML):
$loc_hash{$id} = substr($loc_hash{$id},1) if $^O =~ /Win/i;
Ahora, el script funciona si se ejecuta en OS X o Windows.