[EMAIL PROTECTED] wrote: > Hello All: > > I am trying to format a check. Everything is fine except I cannot print > the line box surrounding the check items: > > +---------------------------+ > | | > | | > +---------------------------+ > > How do I format the vertical bars especially. I was able to print the > horizontals and the content of the check. Please help.
try: #!/usr/bin/perl -w use strict; my $size = 30; #-- size of the box print "Enter first name: "; chomp(my $first = <STDIN>); print "Enter last name: "; chomp(my $last = <STDIN>); print <<CHECK; [EMAIL PROTECTED]'-' x ($size-2)]}+ |[EMAIL PROTECTED]' ' x ($size-2-length($first))]}| |[EMAIL PROTECTED]' ' x ($size-2-length($last))]}| [EMAIL PROTECTED]'-' x ($size-2)]}+ CHECK #-- #-- same but easier to read: #-- print '+','-' x ($size-2),'+',"\n"; print '|',$first,' ' x ($size-2-length($first)), '|',"\n"; print '|',$last, ' ' x ($size-2-length($last)), '|',"\n"; print '+','-' x ($size-2),'+',"\n"; __END__ Enter first name: larry Enter last name: wall +----------------------------+ |larry | |wall | +----------------------------+ +----------------------------+ |larry | |wall | +----------------------------+ david -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
