common.pl

一个UWB仿真程序包

#!/usr/bin/perl -w

sub read_config {
    local $n;
    my @configs = (split(/\//, shift));
    my $name = shift;
    for ($n = 1; $n < @configs; ++$n) {
	$configs[$n] = "$configs[$n-1]/$configs[$n]";
    }
    @configs = map { "$_/$name"; } (@configs);
    
    for $name (@configs) {
	if (-f $name) {
	    open(IN, $name);
	    @cfg = <IN>;
	    close(IN);
	    if (!eval "@cfg\n") {
		die "Error in $name\n@cfg\n";
	    }
	}
    }
}

1;