hel pme
^){ $str1= Query $dbh "select * from hot4_sections where parent=1094 order by orderid;"; while (%res1 = FetchHash $str1) { $iid = $res1{'id'}; print "
\n"; $str3 = Query $dbh "select rus, ph_table from hot4_sections where id=$iid;"; %res = FetchHash $str3; ($a,$name) = split(/=/,$res{'ph_table'}."="); chop($name); $rus = $res{'rus'}; $str3 = Query $dbh "select html from hot4_texthtml where name='$name';"; $html = FetchRow $str3; print "
"; }; };как ограничить по символам $html ? вывод
\n"; $str3 = Query $dbh "select rus, ph_table from hot4_sections where id=$iid;"; %res = FetchHash $str3; ($a,$name) = split(/=/,$res{'ph_table'}."="); chop($name); $rus = $res{'rus'}; $str3 = Query $dbh "select html from hot4_texthtml where name='$name';"; $html = FetchRow $str3; print "
".&AnsiUperCase($rus)."
\n$html"; }; };как ограничить по символам $html ? вывод