ContributedMaterial: totl2blnd

#!/usr/bin/perl
############################################################
#
# totl2blnd:
#       In current directory, find monitor lines of the
# requested wavelength, and replace the keyword 'totl' with
# 'blnd'.
#
# Chatzikos, Marios                             2013-Apr-24
#
############################################################

use warnings;
use strict;




my $wavelength = shift @ARGV;

die "Usage: $0 <wavelength>\n"
        if (not defined($wavelength));


my @input_files = glob("*.in");
die "\tNo input files (*.in) found in current directory!\n"
        if (scalar(@input_files) == 0);


foreach my $input (@input_files)
{
        # Get and modify the input script
        #
        open INPUT, "< $input"
          or die "Error: Could not open: $input\n";

        my @output;
        my $nchange = 0;
        while (my $line = <INPUT>)
        {
                if ($line =~ m/^monitor .* "(totl|TOTL)"\s+$wavelength/)
                {
                        #       print $line;
                        $line =~ s/\"(totl|TOTL)\"/\"Blnd\"/;
                        $nchange++;
                        #       print $line;
                }
                push (@output, $line);
        }

        close INPUT
           or warn "Warning: Could not close: $input\n";


        next    if ($nchange == 0);


        # Overwrite file
        open OUTPUT, "> $input"
          or die "Error: Could not open: $input\n";

        print OUTPUT @output;

        close OUTPUT
           or warn "Warning: Could not close: $input\n";

        print "\t Updated: $input\n";
}