Re: [PERL] Formatering af tekster.

[Peter Makholm <sslug@sslug>]

"Ricco Jensen" <sslug@sslug> writes:

> Hvis man nu indsætter en linie i fx /etc/mail/access hvor det føørste skal
> begynde på Position 1 og næste indput skal begynde på Position 30. Man kan
> naturligvis lave en lykke men er der en funktion a la (jeg kan se der 11
> tegn - 30 så indsæter jeg 19 spacer ).

Brug x-operatoren, for eksempel:

print $var1 . " " x (30 - length $var1) . $var2

x-operatoren er beskrevet i 'perldoc perlop'.

Hvis man vil lave mere advancerede formatteringer kan man måske anvede
perls format/write-funktionalitet. Det har jeg dog aldrig selv brugt,
men det må være noget ala:

format Acess =
@<<<<<<<<<<<<<<<<<<<<<<<<<     @<<<<<<<<<<<<<<<<<<<<
$var1                          $var2
.

$~ = 'Acess';
$var1 = '192.168.1.1'; $var2 = 'REJECT';
write;


Læs 'perldoc -f format', 'perldoc -f write' og 'perldoc perlform' for
denne løsning.

-- 
 Peter Makholm     |    I congratulate you. Happy goldfish bowl to you, to
 sslug@sslug |      me, to everyone, and may each of you fry in hell
 http://hacking.dk |                                               forever
                   |                                      -- The Dead Past