1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/usr/bin/perl # # Copyright (C) 2007 OpenWrt.org # # This is free software, licensed under the GNU General Public License v2. # See /LICENSE for more information. # # $Id$ use strict; require File::Spec; my $source = shift @ARGV; my $target = shift @ARGV; my $result = File::Spec->abs2rel($source, $target); print "$result\n";