Revision 36c54ad2
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2358 | 2358 |
$sth->finish; |
| 2359 | 2359 |
|
| 2360 | 2360 |
if ($var =~ /^(.*?)(\d+)$/) {
|
| 2361 |
my $new_num = sprintf '%0' . length($2) . 'd', $2 + 1;
|
|
| 2361 |
my $new_num = sprintf '%0*d', length($2), $2 + 1;
|
|
| 2362 | 2362 |
$var = "${1}${new_num}";
|
| 2363 | 2363 |
} else {
|
| 2364 | 2364 |
$var++; |
| ... | ... | |
| 2395 | 2395 |
|
| 2396 | 2396 |
if ($var ne "") {
|
| 2397 | 2397 |
if ($var =~ /^(.*?)(\d+)$/) {
|
| 2398 |
my $new_num = sprintf '%0' . length($2) . 'd', $2 + 1;
|
|
| 2398 |
my $new_num = sprintf '%0*d', length($2), $2 + 1;
|
|
| 2399 | 2399 |
$var = "${1}${new_num}";
|
| 2400 | 2400 |
} else {
|
| 2401 | 2401 |
$var++; |
Auch abrufbar als: Unified diff
Kosmetik: Formatoptionen nutzen, anstatt den Formatstring extra zusammenzusetzen.