add an abs2rel.pl helper script (returns a path relative to another)

SVN-Revision: 8570
master
Nicolas Thill 17 years ago
parent 393c8bff07
commit b518cc2c00
  1. 17
      scripts/abs2rel.pl

@ -0,0 +1,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";
Loading…
Cancel
Save