tange/tangetools
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

tracefile: Deal with chdir and relative files.

Browse source
This commit is contained in:
Ole Tange 2014-03-16 12:20:04 +01:00
parent 671b08deca
commit c326746053
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tracefile/tracefile
View file

@ -12,12 +12,20 @@ if(not ($opt::exists or $opt::nonexists or $opt::all)) {
} }
my @cmd = shell_quote(@ARGV); my @cmd = shell_quote(@ARGV);
my $dir = ".";
open(IN, "-|", "strace -ff -e trace=file @cmd 2>&1") || die; open(IN, "-|", "strace -ff -e trace=file @cmd 2>&1") || die;
while(<IN>) { while(<IN>) {
if(/chdir."(([^\\"]|\\[\\"nt])*)".\s*=\s*0/) {
$dir = $1;
}
# [pid 30817] stat("transpose/100000files.tar.gz", {st_mode=S_IFREG|0644, st_size=140853248, ...}) = 0
if(s/^[^\"]+"(([^\\"]|\\[\\"nt])*)".*/$1/) { if(s/^[^\"]+"(([^\\"]|\\[\\"nt])*)".*/$1/) {
# Matches the strace structure for a file # Matches the strace structure for a file
my $file = shell_unquote($1); my $file = shell_unquote($1);
# Relative to $dir
$file =~ s:^([^/]):$dir/$1:;
my $print = 0; my $print = 0;
if($opt::all if($opt::all
or or
@ -29,7 +37,7 @@ while(<IN>) {
if($opt::unique and $seen{$file}++) { if($opt::unique and $seen{$file}++) {
$print = 0; $print = 0;
} }
$print and print; $print and print $file,"\n";
} }
} }