[MacPerl] Dev:Pseudo (too many files)

[mark@cheers.jsc.nasa.gov (Mark Manning/Muniz Eng.)]

As per my e-mail, here is what needs to be done:

According to Strider:
> 
> open (IN, "$ARGV[0]");
> while (<IN>) {
> 	chomp;
> 	split/\t/;
> 	$date = "$_[1]";
> 	if ($dates !~ m/$date/) {
> 		$dates .= "$date\n";
> 		push (@dates, $date);
> 		open ($date, ">>$date") || die "$#dates, $!";
> 		print $date "$_\n";
		close( $date );
> 	}else{
> 		open ($date, ">>$date") || die "$#dates, $!";
> 		print $date "$_\n";
		close( $date );
> 	}
> }
> close IN;

Just make sure the "$date" files are not there when you
start and this should be ok.


***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch