loncom/build/parse.pl - diff

Return to parse.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.2, 2000/12/07 20:34:12	version 1.3, 2000/12/07 20:42:13
Line 8	Line 8
# -------------------------------------------- Read in command line arguments	# -------------------------------------------- Read in command line arguments
my ($file,$mode)=@ARGV;	my ($file,$mode)=@ARGV;

# Read in master data file	# -------------------------------------------- Read in master data file
open IN,"<$file";	open IN,"<$file";
my @lines=<IN>;	my @lines=<IN>;
close IN;	close IN;
Line 52 while ($info=~/\<loncapa\s+(.*?)\>/isg)	Line 52 while ($info=~/\<loncapa\s+(.*?)\>/isg)
if ($data=~/\<($m)\>(.*?)\<\/$m\>/sgi) {	if ($data=~/\<($m)\>(.*?)\<\/$m\>/sgi) {
my ($key,$value)=($1,$2);	my ($key,$value)=($1,$2);
$info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{$key}=$value;	$info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{$key}=$value;
print "$key\n\n$value\n\n\n\n";	# print "$key\n\n$value\n\n\n\n";
}	}
}	}
}	}