Hi guys,
Hoping that one of you can help me out with this error on the following script. It complains about the use of an unitialized value $sorted in string eq at line 84 (I've stuck a comment on the end of the line so you can find it easier), but I can't work out why the hell this isn't working. Any ideas would be greatly appreciated.
Cheers,
Mark QT.
#!/usr/bin/perl -w
@sections = ("BP");
#@sections = ("BP","CC","MF","KEGG");
$mouse1 = "AJ3";
$mouse2 = "AJ7";
open(OUTFILE, ">$mouse1 vs $mouse2.txt");
foreach $section(@sections){
$file1 ="$mouse1"."_"."$section".".jsp";
open(HTMLFILE1, $file1) || die "cannot open first HTML file";
@htmltext1 = ;
$i = 0;
$htmlstring1 = "";
foreach $htmltext1(@htmltext1){




News Feed