Context Navigation

CheckPunchSharp.pl

Revision 1669, 0.6 kB (checked in by gary, 13 months ago)

set of changes correcting problems with punch header information

CheckPunchSharp?.pl - output all files that do not start with # - the correct first character of the header in punch output

parse_punch.cpp - add missing header information

punch_do.cpp - missing sharp sign

func_globule.in - wrong punch filename, overwriting correct punch output

h2_cr_grains.in - add punch grains H2rates, which was not tested elsewhere

orion_hii_pdr.in, orion_hii_pdr_pp.in - same punch appeared twice, clobbering output

Line
1	#!/usr/bin/perl -w
2
3	# print file name for all files corresponding to .in that do not*
4	# start with a sharp sign, the default first character for header
5	# information in a punch file. Run this to confirm that headers
6	# are produced properly in punch output
7
8	# loop over all input scripts
9	foreach $input (<*.in>)
10	{
11	# form name of output files
12	$outname = $input;
13	$outname =~ s/\.in$//;
14	foreach $output (<$outname.*>)
15	{
16	open IN, $output or die "Couldn't open $output";
17	$line = <IN>;
18	close IN;
19	if ($line) {
20	print "$output\n" if not $line =~ /^#/;
21	}
22	}
23	}

Note: See TracBrowser for help on using the browser.