tools/dependcat.pl

   1 #!/usr/bin/perl
   2
   3 while (<>)
   4 {
   5     if (/^\./)
   6     {
   7         $debug .= $_;
   8         s/\/debug\//\/release\//;
   9         $release .= $_;
  10     }
  11     else
  12     {
  13         $debug .= $_;
  14         $release .= $_;
  15     }
  16 }
  17
  18 print $debug;
  19 print $release;