next up previous contents
Next: The Bayesian Network Used Up: Integration of Data Mining Previous: SQL Query

Perl Script Used

 


while(<>) {
s/WELL-M/WELLS/g;
s/WELL-S/WELLS/g;
s/EXP-RED/EXPORT/g;
s/INJ-RED/INJECTION/g;
s/PROD-RED/PRODUCTION/g;
s/REDUND/MINOR/g;
s/NONE/MINOR/g;  
s/OTHER/DONTKNOW/g;  
s/UKNOWN/DONTKNOW/g;
s/FTS/NNF/g;
s/UST/NNF/g;
s/BRD/NNF/g;
s/ERO/NEF/g;
s/STP/NEF/g;
s/HIO/NEF/g;
s/LOO/NEF/g;
s/AIR/NFI/g;
s/ELP/NFI/g;
s/ELU/NFI/g;
s/INL/NFI/g;
s/SER/NFI/g;
s/NOI/NFI/g;
s/OHE/NFI/g;
s/PDE/NFI/g;
s/STD/NFI/g;
s/VIB/NFI/g;
s/OTH/NOT/g;
s/UNK/NOT/g;
s/ELF/NOT/g;
s/FOF/NOT/g;
s/FOV/NOT/g;
s/FTC/NOT/g;
s/LGP/NOT/g;
s/LOR/NOT/g;
s/PLU/NOT/g;
s/SPO/NOT/g;
s/SYN/NOT/g;
s/FTF/NOT/g;
s/LCP/NOT/g;
s/\[0,1\]/LOW/g;
s/\[2,10\]/MODERATE/g;
s/\[11,50\]/MEDIUM/g;
s/\[51,500000\]/HIGH/g;
s/\[10,16\]/MECHFAIL/g;
s/\[20,29\]/MATFAIL/g;
s/\[30,39\]/INSTFAIL/g;
s/\[40,49\]/ELECFAIL/g;
s/\[50,59\]/EXTFAIL/g;
s/\[90,99\]/MISCFAIL/g;
s/\[0,5000\]/CLASSI/g;
s/\[5001,10000\]/CLASSII/g;
s/\[10001,100000\]/CLASSIII/g;
print $_;
}


Torgeir Dingsoyr
2/26/1998