22 lines
340 B
Perl
22 lines
340 B
Perl
use strict;
|
|
|
|
my $root = $ENV{"main"};
|
|
my $out = $ENV{"out"};
|
|
|
|
open OUT, ">$out" or die "$!";
|
|
print OUT "[\n";
|
|
|
|
open IN, "<$root" or die "$!";
|
|
while (<IN>) {
|
|
if (/^\#include\s+\"(.*)\"/) {
|
|
print OUT "\"$1\"\n";
|
|
}
|
|
if (/^\#include\s+\<(.*)\>/) {
|
|
print OUT "\"$1\"\n";
|
|
}
|
|
}
|
|
close IN;
|
|
|
|
print OUT "]\n";
|
|
close OUT;
|