scripts/abs2rel.pl

   1 #!/usr/bin/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 # $Id$
   9
  10 use strict;
  11 require File::Spec;
  12
  13 my $source = shift @ARGV;
  14 my $target = shift @ARGV;
  15 my $result = File::Spec->abs2rel($source, $target);
  16
  17 print "$result\n";