![]() |
|< 1 2 3 >| | ![]() |
30 Einträge, 3 Seiten |
mr-sansibar+2007-08-02 17:39:47--was ich ergänzend dazu sagen wollte.
bei den obigen Lösungen wo sie mit unpack1 und unpack2 gelöst worden sind, muss man vorab wissen wie lang ein string sein kann höchsten.
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.
1
2
3
my $string = 'abcdefghijklmnopqrstuvwxyz';
my $count = $string =~ s/(.{2})/$1\t/g;
print $count, " Änderungen\n";
13 Änderungen
![]() |
|< 1 2 3 >| | ![]() |
30 Einträge, 3 Seiten |