while ($string=~m{<(ths|193)>|\.}g) { $count=$count+($tbsz * 0.25); } while ($string=~m{<(ens|194)>}g) { $count=$count+($tbsz * 0.5); } while ($string=~m{<(ems|195)>|\s}g) { $count=$count+$tbsz; } $string=~s/<[A-z]+>//g; if($ftype==1){ while ($string=~m{(W|\s|%)}g){ ### % is added temporarily + for some testing purpose $count=$count+($tbsz*1); } while ($string=~m{(w|\)|\()}g){ $count=$count+($tbsz*0.84375); } while ($string=~m{(M|m)}g){ $count=$count+($tbsz*0.8125); } while ($string=~m{(N|Q)}g){ $count=$count+($tbsz*0.7188); } while ($string=~m{(O|Y)}g){ $count=$count+($tbsz*0.6875); } while ($string=~m{(A|D|G|H|K|U|V|X)}g){ $count=$count+($tbsz*0.6562); } while ($string=~m{(R)}g){ $count=$count+($tbsz*0.625); } while ($string=~m{(B|C|P|T|Z|a|b|d|h|k|n|p|q|u|v|x)}g){ $count=$count+($tbsz*0.5625); } while ($string=~m{(6)}g){ $count=$count+($tbsz*0.55); } while ($string=~m{(0)}g){ $count=$count+($tbsz*0.5375); } while ($string=~m{(g|y)}g){ $count=$count+($tbsz*0.5313); } while ($string=~m{(4)}g){ $count=$count+($tbsz*0.5281); } while ($string=~m{(7|8)}g){ $count=$count+($tbsz*0.5156); } while ($string=~m{(o|2|3)}g){ $count=$count+($tbsz*0.5); } while ($string=~m{(5)}g){ $count=$count+($tbsz*0.4938); } while ($string=~m{(9)}g){ $count=$count+($tbsz*0.4813); } while ($string=~m{(E|L)}g){ $count=$count+($tbsz*0.46875); } while ($string=~m{(F|c|e|z)}g){ $count=$count+($tbsz*0.4375); } while ($string=~m{(J|S|f)}g){ $count=$count+($tbsz*0.4063); } while ($string=~m{(1)}g){ $count=$count+($tbsz*0.3625); } while ($string=~m{(r)}g){ $count=$count+($tbsz*0.35); } while ($string=~m{(s)}g){ $count=$count+($tbsz*0.3188); } while ($string=~m{(l|t)}g){ $count=$count+($tbsz*0.285); } while ($string=~m{(l)}g){ $count=$count+($tbsz*0.25); } while ($string=~m{(i|j)}g){ $count=$count+($tbsz*0.2345); } }else{ while ($string=~m{(W)}g){ $count=$count+($tbsz*0.7844); } while ($string=~m{(w)}g){ $count=$count+($tbsz*0.6989); } while ($string=~m{(A)}g){ $count=$count+($tbsz*0.5656); } while ($string=~m{(X)}g){ $count=$count+($tbsz*0.55); } while ($string=~m{(Q|O)}g){ $count=$count+($tbsz*0.5469); } while ($string=~m{(R|K|Y)}g){ $count=$count+($tbsz*0.5375); } while ($string=~m{(C|V)}g){ $count=$count+($tbsz*0.5313); } while ($string=~m{(N)}g){ $count=$count+($tbsz*0.5283); } while ($string=~m{(D|G|T)}g){ $count=$count+($tbsz*0.525); } while ($string=~m{(S|H)}g){ $count=$count+($tbsz*0.5125); } while ($string=~m{(B)}g){ $count=$count+($tbsz*0.5); } while ($string=~m{(4|U|Z)}g){ $count=$count+($tbsz*0.4875); } while ($string=~m{(8|9|P|3|6|7)}g){ $count=$count+($tbsz*0.475); } while ($string=~m{(0|5|a|2)}g){ $count=$count+($tbsz*0.4688); } while ($string=~m{(x|y)}g){ $count=$count+($tbsz*0.4594); } while ($string=~m{(L|b|g|o|p|q|v)}g){ $count=$count+($tbsz*0.4469); } while ($string=~m{(E|F|c|d|e)}g){ $count=$count+($tbsz*0.4438); } while ($string=~m{(h)}g){ $count=$count+($tbsz*0.4313); } while ($string=~m{(n|u)}g){ $count=$count+($tbsz*0.4219); } while ($string=~m{(z|J|k)}g){ $count=$count+($tbsz*0.4031); } while ($string=~m{(s|r)}g){ $count=$count+($tbsz*0.3969); } while ($string=~m{(t)}g){ $count=$count+($tbsz*0.3219); } while ($string=~m{(f)}g){ $count=$count+($tbsz*0.3188); } while ($string=~m{(1)}g){ $count=$count+($tbsz*0.3031); } while ($string=~m{(j)}g){ $count=$count+($tbsz*0.2438); } while ($string=~m{(I|i|l)}g){ $count=$count+($tbsz*0.1438); } }
In reply to Re^2: Which is more faster? While or tr///
by tej
in thread Which is more faster? While or tr///
by tej
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |