<div dir="ltr"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">On Thu, Oct 16, 2008 at 12:56 PM, Alex Mackinnon <<a href="mailto:alexmac131@hotmail.com">alexmac131@hotmail.com</a>> wrote:</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">></span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">> Lovely topic, but could all insert some perl code to keep it on topic for the list :)</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Note: The following code is untested.</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">require Term::Cap;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">$terminal = Tgetent Term::Cap { TERM => "adm3" };</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">$terminal->Trequire(qw/im ei cr/);</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">$terminal->Tputs('im');</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">print "Hello World";</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">$terminal->Tputs('cr');</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">$terminal->Tputs('ei');</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
</div>