Subroutine looks like:$text =$data{"Text"}; #Name of Textbox in form $text =~ s/</</g; $text =~ s/>/>/g;
Can any one help!!!if(-f "$bookfile"){ undef $/; open(FILE, "+<$bookfile") || &debug("Oops, I cannot read the bookfile $bookfile: $!"); if($opsys eq "unix"){flock(FILE, 2);} else{binmode(FILE);} $bookfile_contents = <FILE>; $/ = "tr/\n /";
In reply to Text output is on one line by spoon
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |