perl test.pl
/myfolder/incoming/RIE.06242011.txt
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 1.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 1.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 1.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 2.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 2.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 2.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 3.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 3.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 3.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 4.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 4.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 4.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 5.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 5.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 5.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 6.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 6.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 6.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 7.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 7.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 7.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 8.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 8.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 8.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 9.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 9.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 9.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 10.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 10.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 10.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 11.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 11.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 11.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 12.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 12.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 12.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 13.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 13.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 13.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 14.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 14.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 14.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 15.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 15.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 15.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 16.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 16.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 16.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 17.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 17.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 17.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 18.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 18.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 18.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 19.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 19.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 19.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 20.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 20.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 20.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 21.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 21.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 21.
Use of uninitialized value $line in scalar chomp at test.pl line 17, <IN> line 22.
Use of uninitialized value $line in substr at test.pl line 19, <IN> line 22.
Use of uninitialized value $line in split at test.pl line 25, <IN> line 22.

##</code><code>##

#!/usr/bin/perl -w

 @files = </myserver/incoming/*.txt>;
 foreach $file (@files) {
 	print $file . "\n";

 	#last unless defined $file;
   	open(IN,$file) || die ("Could not open file");
    open(OUT131,'>>/myserver/outgoing/data131.txt');
	open(OUT186,'>>/myserver/outgoing/data186.txt');
	open(OUT999,'>>/myserver/outgoing/data999.txt');
	
	while (<IN> ne "") {

	  my $line = $_;

	  chomp($line);	 
	  
	  my $firstchar = substr($line,0,1);
	  if($firstchar eq "#")
	  {
	  	next;
	  }
	  
	  my @vars1 = split( /\|/, $line );
        if (@vars > 7) {
             my $type = substr( $vars[7], 0, 3);
              if($type eq "131") {
				print OUT131 $line . "\n";
			  } elsif($type eq "186") {
				print OUT186 $line . "\n";
			  } else {
				print OUT999 $line . "\n";
			  }
        }

	} 

   close(IN);
   close(OUT131);
   close(OUT186);
   close(OUT999);
   my $newfile='/myserver/incoming/processed/new_file.txt';
   #rename $file, $newfile; 
   #use File::Copy;
   #move($file, $newfile) or die "The move operation failed: $!";

 } 
 exit 0;