| 12345678910111213141516 |
- #!/usr/bin/env perl
- #
- # Copyright (C) 2007 OpenWrt.org
- #
- # This is free software, licensed under the GNU General Public License v2.
- # See /LICENSE for more information.
- #
- use strict;
- require File::Spec;
- my $source = shift @ARGV;
- my $target = shift @ARGV;
- my $result = File::Spec->abs2rel($source, $target);
- print "$result\n";
|
