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