2010-08-31T13:17:09 clms

Zu File::Spec - nein kannte ich vorher noch nicht (und ich halte das auch für kein Verbrechen). abs2rel() kann man für die gewünschte Funktion tatsächlich nehmen. Der benötigte Wrapper ist ziemlich einfach: Vor beide Argumente ein "/" hängen und bei $base noch den Filenamen entfernen.

1
2
3
4
5
6

use File::Spec::Functions ':ALL';

my $report = catfile "report", "meinbericht.html";
my $data   = catfile "daten",  "meinedaten.txt";

my $fromto = abs2rel rel2abs($report), rel2abs +(splitpath $data)[1];

2010-08-31T13:17:09 clms

Das von Dir angesprochene Problem mit den Windows- und MacOS-Pfaden würde File::Spec aber auch nicht lösen, da es nur die Pfadtrenner des eigenen Betriebssystems berücksichtig. Und es ist laut Doku nicht garantiert, dass die betreibsystemspezifischen Varianten auch unter einem anderen Betriebssystem funktionieren.