Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Drawing a table

by hotshot (Prior)
on Jun 29, 2005 at 09:18 UTC ( [id://470935]=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    # print table header
    # fields space allocation: underline, Path, Name, status, desc, reset 
    +underline
    ...
        # fields space allocation: pathColor, path, pathReset, shareName, 
    +statusColor, status, statusReset, desc
        printf "\t%s%-20s%s| %-10s%s%-12s%s| %-20s\n", $pathColor, &trunca
    +teStr($path, 20), $pathReset, &truncateStr($name, 10), $statusColor, 
    +$status, $statusReset, &truncateStr($desc, 20) || '';
    }
    
  2. or download this
    Path                | Name                  | Description         
    ------------------------------------------------------------------
    ...
    /test1              | test1      (inactive) | hello
    
    RED - Directory is not accessible
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://470935]
Approved by tomhukins
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2024-04-25 18:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found