Здравейте, аз искам да използвате модула Текст:: Опаковайте.
този модул дава възможност $ Текст:: Опаковайте:: tabstop да се промени tabstop от 8 бланки за всяко nummer.
Искам да го до 30 заготовки. но когато се променя nummer на бланки нищо не се случва.

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

Какво е по $ 1? Документацията, подсказва, че следва да бъдат използвани множество текстови линии. (Може да знаете, че $ 1 е низ съвпадащата от първия набор от скоби на последните regex мач?)

сигурен, че знам какво е в $ 1. След няколко часа разбрах, че функцията $ Текст:: Опаковайте: tabstop не е съгласна с това, което Мислех, но аз също не знам за какво наистина няма вече.

Когато текстът е водеща WHITESPACE, тя замества тече от N пространства, с табулатор характер. Обикновено N трябва да бъде 8, тъй като това е hardwired раздела широчина най-терминали, но можете да го смените с нещо друго, ако имате нужда да. (I подозирате ли не, все пак.)

Първият параметър обвивам казва как да тире на първа линия, а вторият параметър казва как да тире следващите редове. Ако искате ги вдлъбнат от тридесет места, опитайте "" X 30 за втория параметър.

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