view release on metacpan or  search on metacpan

choose/tv_pick/merge_tvprefs  view on Meta::CPAN

#!/usr/bin/perl -w
#
# usage: merge_tvprefs files
#
# Outputs a new tvprefs file that combines the two.  Where they
# disagree, later files in the list take precedence.  So you might
# invoke as 'merge_tvprefs tvprefs.old tvprefs.new >tvprefs.merged'.
#
# $Id: merge_tvprefs,v 1.2 2004/01/03 14:52:53 epaepa Exp $
#
use strict;
my %wanted;
while (<>) {
    s/\#.*//; s/^\s+//; s/\s+$//;
    next if $_ eq '';
    if (/^(never|no|yes|always): (.+)$/) {
	my ($pref, $prog) = ($1, $2);
	$wanted{$prog} = $pref;
    }
    else { die "$ARGV:$.: bad line (remnant is $_)\n" }
}
foreach (sort keys %wanted) {
    my $pref = $wanted{$_};
    print "$pref: $_\n";
}