Skip to content
Snippets Groups Projects
Select Git revision
  • 2f919846c259cf2a7013095179804e3add95de23
  • v2018.2.x default protected
  • 0x4A6F-rpi4
  • 0x4A6F-master
  • master
  • v2018.2.2-ffs
  • v2016.2.4-batmanbug
  • radv-filterd
  • v2016.2.x
  • hoodselector
  • v2016.1.x
  • babel
  • v2015.1.x
  • 2014.4.x
  • 2014.3.x
  • v2018.2.2-ffs0.1
  • v2018.2.1-ffs0.1
  • v2018.2.1
  • v2018.2-ffs0.1
  • v2018.2
  • v2018.1.4
  • v2018.1.3
  • v2018.1.2
  • v2018.1.1
  • v2018.1
  • v2017.1.8
  • v2017.1.7
  • v2017.1.6
  • v2017.1.5
  • v2017.1.4
  • v2017.1.3
  • v2017.1.2
  • v2016.2.7
  • v2017.1.1
  • v2017.1
35 results

generate.pl

Blame
  • Forked from firmware / FFS Gluon
    Source project has a limited visibility.
    generate.pl 402 B
    use warnings;
    
    
    my %config;
    
    sub add_config {
    	my ($prefix, $c) = @_;
    
    	foreach my $key (keys $c) {
    		my $val = $c->{$key};
    
    		if (ref($val) eq 'HASH') {
    			add_config($key . '.', $val);
    		}
    		unless (ref($val)) {
    			$config{'@' . $prefix . $key . '@'} = $val;
    		}
    	}
    }
    
    add_config('', $CONFIG);
    
    
    my $regex = join '|', map {quotemeta} keys %config;
    
    
    for (<>) {
    	s/($regex)/${config{$1}}/g;
    	print;
    }