have you try using formline and $^A you might want to try something like: my $var1 = "abcd"; my $var2 = "wxyz"; my $var3 = "1234";
$^A = undef; #-- just in case formline <<"HEADER",$var1,$var2,$var3; -------------------------------------- @<<<<<<<<<< @<<<<<<<<<<<< @<<<<<<<<<<< -------------------------------------- HEADER #-- $header is formated now my $header = $^A; once you have $header, you can use it as a regular string anyway you can. hope that help david Alex Chen wrote: > hi,everyone: > > i have a trouble in TK,please help me.i have a format like this > > format ALARMLABEL_TOP = > ALARM REPORT > _______________________________________________________ > NodeName :@||||||| > $node > Time :@|||||||||||||||||||| ,Priority: @|||||||| > $time, $priority > Alarm_d :@||||||||||||||||||||||||||||||||||||||||| > $alarm_d > Parameters:@|||||||||||||, Subcodes: @||||||| > $parameters, $subcodes > ======================================================== > . > > my trouble is i can't print this format in Tk::Text.how to redirect the > format to the Tk::Text. > > thanks a lot!! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
