scripts/abs2rel.pl

   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";