string nach jeder 4000 Stelle ein TAB einsetzten - #97444 (Allgemeines zu Perl)

bloonix

2007-08-03 19:27

User since
2005-12-17
1615 Artikel
HausmeisterIn

mr-sansibar+2007-08-03 16:24:16--
Mir ist soeben aufgefallen, dass ich die $Tab Variable so setzten kann, dass ich den Rest was im $Tab übrig bleibt an das Ende des Records hängen kann.

Das kannst du auch bei einer Regex. Die Regex gibt die Anzahl der
Änderungen zurück:

Code: (dl )

1
2
3

my $string = 'abcdefghijklmnopqrstuvwxyz';
my $count  = $string =~ s/(.{2})/$1\t/g;
print $count, " Änderungen\n";

Code: (dl )

13 Änderungen

Somit kannst du auch locker feststellen, wieviel Tabs noch gesetzt werden müssen.

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.