Shell Programming and Scripting

#! /usr/bin/perl -w
use strict;

my $filename = "xtop_env.txt";
my $my_outfile = "output.txt";

open (HANDLE, "< $filename");
open (OUTPUT, "> $my_outfile");

while (<HANDLE>)
{
    if(/^xtopShared/../;$/)
    {
        while (/(\w+?_sh)/g)
        {
            print OUTPUT "##### buildapi $1 nodebug.####"};
        }
    }
}

close OUTPUT;
close HANDLE;

$Input_filename=$ARGV[0];
	
if ($Input_filename ne "$ABCD/dataval/xtop_env.txt")
{
    {print "Usage: $ABCD/dataval/xtop_env.txt\n"};
    exit;
}