frech@mwraaa.army.mil (Norman R. Frech CPLS) (01/15/91)
I am having problems with the following code. When I run this job, my
fixed disk goes into the infinite spin mode. All terminals become
locked up, along with the console (reset time). I am on a sperry
5000/80, two processors, 16 meg, system v.3 and perl patch 41.
I have moved my code to a pc and the job runs. BTW, I am setulimited
50000 on the sperry; the input file is 7meg.
*** cut here ***
eval "exec /usr/local/bin/perl -S $0 $*"
if $running_under_some_shell;
# this emulates #! processing on NIH machines.
# (remove #! line above if indigestible)
open(INFILE,"< van4.out") || die "Can't access van4.out: $!\n";
open(GOODFILE,"> van4p.out") || die "Can't create van4p.out: $!\n";
while(<INFILE>) {
chop;
next if length == 0;
next if /%P13CXX6034DC/;
next if / FSCM LISTING/;
next if / DATE PREPARED 3 JAN 91/;
next if / ROUTE TO PRSJR/;
next if / SEQUENCED BY.........FSCM REPT-ACT-CD A/;
next if / SELECTION CRITERIA...NO SEL CRITERIA USED/;
next if / COMMODITY.......... CMDTY NOMEN... NSN... NSN NOMEN.../;
next if /FSCM VND NO. TYP SCTY VND VND TELEPHONE SOL-ISS COMPANY NAME DEL CITY AND STATE MAIL\/VNDR/;
next if / AFLU STAT EMPL VND SIZE DEBAR DATE REG CNT STREET ADDRESS NOTE COUNTY ZIP CODE DT-UPDT/;
next if /----- ------ ------- --- ---- ---- ----- --------- ----- ----------------------- ---- ----------------------- --------/;
print GOODFILE "$_\n";
}