Select Code to Download

Select or download this

my $dir = 'input_files';

...
}
closedir(DIR);

Select or download this
```
allergies
immunizations
```

Select or download this

# Input file for allergies
# Date, Diagnosed By, Type, allergy, reaction,specifics<br>
2009-05-16,Children's Hospital Boston,drugs,penicillin,Blue rash,This 
+only happens on weekends<br>
2009-05-17,Boston Medical Group,drugs,Vitamin B,Rash on torso,This hap
+pens after 9PM<br>
2009-05-17,Memorial Hospital,food,Diary,Upset stomach and gas, Happens
+ after drinking whole milk<br>

Select or download this

perl create_indivo_schemas.pl
Name "main::IN" used only once: possible typo at create_indivo_schemas
+.pl line 18.
The directory and file are input_files/allergies
INThe directory and file are input_files/immunizations
INThe directory and file are input_files/..
INThe directory and file are input_files/.

Select or download this

open (my $fh, "< $dir/$file"  ) or die ("Can't open input file $!");

  while ( < $fh > ){
    print ;
  }

Select or download this

open (my $fh, "< input_files/immunizations"  ) or die ("Can't open inp
+ut file $!");

Select or download this

my @file_list = `ls input_files`;   # get the list of files from the i
+nput directory

foreach (@file_list){  # loop through the files that are in the direct
+ory
...
    print "\n";

  }