Shell Programming and Scripting

hi, i want to use module Text::Wrap.
this module provides the option $Text::Wrap::tabstop to change the tabstop from 8 blanks to any nummer.
i want to set it to 30 blanks. but when i change the nummer of blanks nothing happens.

Code:

Text::Wrap::tabstop = 30;
$wtd = wrap("","\t",$1);

or do i have to use another 2nd parameter then tab in wrap() ???

thx

What's in $1? The documentation suggests it should be an array of text lines. (You do know that $1 is the string matched by the first set of parentheses of the latest regex match?)

sure i know what is in $1. after some hours i found out that the function $Text::Wrap:tabstop does not agree with what i tought, but i also don't know what it really does by now.

When text has leading whitespace, it replaces runs of n spaces with a tab character. Normally n should be 8, as that is the hardwired tab width of most terminals, but you can change it to something else if you need to. (I suspect you don't, though.)

The first parameter to wrap says how to indent the first line, and the second parameter says how to indent subsequent lines. If you want them indented by thirty spaces, try " " x 30 for the second parameter.

Code:

vnix$ perl -MText::Wrap -e 'print wrap(""," " x 30, <>)' /etc/motd | head -5
Linux indeed 2.6.24-17-generic #1 SMP Thu May 1 13:57:17 UTC 2008 x86_64
                              
                              The programs included with the Ubuntu system
                              are free software;
                              the exact distribution terms for each program