Hei, jeg vil bruke modulen Tekst:: Wrap.
Denne modulen gir mulighet $ Tekst:: Bryt:: tabstop å endre tabstop fra 8 blanks til noen nummer.
Jeg ønsker å sette den til 30 blanks. Men da jeg endre nummer av blanks ingenting skjer.

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

Hva står i $ 1? Dokumentasjonen tyder det skal være en rekke tekstlinjer. (Du vet at $ 1 er strengen samsvarer med det første settet parentessettet av de siste regex match?)

at jeg vet hva som er i $ 1. etter noen timer fant jeg ut at funksjonen $ Tekst:: Bryt: tabstop ikke enig med det jeg tought, men jeg vet ikke hva det egentlig gjør nå.

Når teksten har ledende mellomrom, det erstatter går av n mellomrom med tabulatortegn. Normalt n bør 8, som er Hardwired kategorien bredde mest terminaler, men du kan endre det til noe annet hvis du må. (Jeg mistenker at du ikke gjør det, men.)

Den første parameteren til vikle sier hvordan du indent den første linjen, og den andre parameteren forteller hvordan du indent etterfølgende linjer. Hvis du vil ha dem Innrykket av tretti mellomrom prøve "" X 30 for det andre parameter.

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