codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
boxprint(" My program v. 1.0 Parameters: FASTA-filename Coverage ReadLength"); sub boxprint { my $max; my $string = $_[0]; @lines = split (/\n/, $string); foreach $l (@lines) { $max = length($l) if ($max<length($l)); } $sep = '-' x ($max); print '+-'.$sep."-+\n"; foreach $l (@lines) { $cur = length($l); $space=' ' x ($max-$cur); $l = '| '.$l.$space.' |'; print "$l\n"; } print '+-'.$sep."-+\n"; }
Private
[
?
]
Run code
Submit