ramses0 · September 2, 2015 21:13 · ramses0 · Sep 2, 2015
diff --git a/regexes b/regexes
 #!/bin/env perl
 use Data::Dumper;

 my $regexes = {
    linux_screwdriver1   => qr/^screwdriver[0-9]+\./,
    linux_slave_1        => qr/^slave-[0-9]+\./,
    linux_s_1            => qr/^s-[0-9]+\./,
    mac_grumpy           => qr/^grumpy[0-9]+-dm\./,
    mac_darth            => qr/^darthvader[0-9]+-dm\./,
    mac_yoda             => qr/^yoda[0-9]+\./,
    mac_mac              => qr/^mac[0-9]+\./,
    hansolo              => qr/^hansolo-dm/,
    fillvalue            => qr/^fillvalue-dm/,
 };


 while (<>) {
    chomp $_;
    my $host = $_;
    print "XXX: $host\n";
    my $match_any = 0;
    foreach my $regex ( keys %{$regexes} ) {
        #print "regex: $regex\n";
        if ( $host =~ $regexes->{$regex} ) {
            $match_any = 1;
        }
    }
    print "did-not-match: $host\n" if !$match_any;
 }
	#!/bin/env perl
	use Data::Dumper;

	my $regexes = {
	linux_screwdriver1 => qr/^screwdriver[0-9]+\./,
	linux_slave_1 => qr/^slave-[0-9]+\./,
	linux_s_1 => qr/^s-[0-9]+\./,
	mac_grumpy => qr/^grumpy[0-9]+-dm\./,
	mac_darth => qr/^darthvader[0-9]+-dm\./,
	mac_yoda => qr/^yoda[0-9]+\./,
	mac_mac => qr/^mac[0-9]+\./,
	hansolo => qr/^hansolo-dm/,
	fillvalue => qr/^fillvalue-dm/,
	};


	while (<>) {
	chomp $_;
	my $host = $_;
	print "XXX: $host\n";
	my $match_any = 0;
	foreach my $regex ( keys %{$regexes} ) {
	#print "regex: $regex\n";
	if ( $host =~ $regexes->{$regex} ) {
	$match_any = 1;
	}
	}
	print "did-not-match: $host\n" if !$match_any;
	}
No results found