Zeilen auffüllen bis feste Länge - #116281 (Allgemeines zu Perl)

Linuxer

2008-11-14 20:13

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Hi,

Hier eine Lösung, die zwanghaft RegEx benutzt:

Code: (dl )

$ perl -wl

$str = 'abc';
$str =~ s/^(.+)$/sprintf("%s%s", $1, 'X'x(10-length($1)))/e;
print $str;

abcXXXXXXX

Hier eine Lösung, die ohne besondere Kommandos auskommt:

Code: (dl )

$ perl -wl
$str = 'abc';

$str .= 'X' x (10-length($str));

print $str;

abcXXXXXXX

[edit]einleitenden Text + 2. Lösung eingefügt[/edit]

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!