Stap 9: Het toevoegen van Script compatibiliteit naar Windows
In tegenstelling tot Mac en andere Unix-gebaseerde besturingssystemen, biedt Windows geen ondersteuning voor het concept van een single root directory. Daarom starten alle padnamen met een volume (C: of E: of een willekeurige andere letter die u, voor die materie bedenken kunt) in tegenstelling tot de root-directory (/).
Gelukkig voor ons heeft Perl een speciale variabele $O (dat is een kapitaal o, geen nul), die ons vertelt welke besturingssysteem die we momenteel gebruiken. Dus, als de waarde die is opgeslagen in die variabele bevat "Win", we gonna wilt verwijderen van de leidende slash op onze XML-locatie filepath. Dit kan worden gedaan met de volgende coderegel (toegevoegd nadat wij met succes de locatie van een track uit het XML-bestand parseren):
$loc_hash{$id} = substr($loc_hash{$id},1) if $^O =~ /Win/i;
Nu, werkt het script of het draait op OS X of Windows.