mirror of
https://github.com/radareorg/radare2.git
synced 2024-12-01 00:51:19 +00:00
28 lines
524 B
Perl
28 lines
524 B
Perl
|
#!/usr/bin/perl #
|
||
|
|
# ------------- #
|
||
|
|
my $level = 0;
|
||
|
|
my $path = "";
|
||
|
|
my $ofile = "";
|
||
|
|
while(<STDIN>) {
|
||
|
|
if (/Entering directory `(.*)'/) {
|
||
|
|
$path = $1;
|
||
|
|
if ($level>0) {
|
||
|
|
print " |"x$level;
|
||
|
|
@str=split('/', $1);
|
||
|
|
print "- ".$str[$#str]."\n";
|
||
|
|
}
|
||
|
|
$level++;
|
||
|
|
}
|
||
|
|
--$level if (/Leaving directory `(.*)'/);
|
||
|
|
s/warning:/\x1b[32mwarning\x1b[0m:/;
|
||
|
|
s/error:/\x1b[31merror\x1b[0m:/;
|
||
|
|
if (/\..:/) {
|
||
|
|
s/:/\n\t/;
|
||
|
|
/(.*):/;
|
||
|
|
$file = $1;
|
||
|
|
print "$path/$_" if ($file ne $ofile)
|
||
|
|
$ofile = $file;
|
||
|
|
}
|
||
|
|
#{ print "$path/".$line; }
|
||
|
|
}
|