Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!udel!haven!uvaarpa!mmdf
From: frech@mwraaa.army.mil (Norman R. Frech CPLS)
Newsgroups: comp.lang.perl
Subject: machine locks up
Message-ID: <1991Jan15.151029.12525@uvaarpa.Virginia.EDU>
Date: 15 Jan 91 15:10:29 GMT
Sender: mmdf@uvaarpa.Virginia.EDU (Uvaarpa Mail System)
Reply-To: frech@mwraaa.army.mil
Organization: The Internet
Lines: 33

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";
}