Étape 9: Ajout de Script de compatibilité pour Windows
Contrairement à Mac et autres systèmes d’exploitation basés sur Unix, Windows ne supporte pas le concept d’un répertoire racine unique. Par conséquent, tous les chemins d’accès démarrage avec un volume (C: ou E: ou toute autre lettre que vous pouvez penser, d’ailleurs) plutôt que le répertoire racine (/).
Heureusement pour nous, Perl a une spéciale $ variable,O (c'est-à-dire un capital o, pas un zéro), qui nous dit quel système d’exploitation que nous utilisons actuellement. Ainsi, si la valeur stockée dans cette variable contient « Win », nous allons à supprimer le premier slash sur notre XML emplacement filepath. Ceci peut être fait avec la ligne suivante du code (ajoutée après nous analyser correctement l’emplacement d’une piste à partir du fichier XML):
$loc_hash{$id} = substr($loc_hash{$id},1) if $^O =~ /Win/i;
Maintenant, le script fonctionne si elle est exécutée sur OS X ou Windows.