Opened by Mikmak at 2008-03-22 17:12
User since
2003-08-21
2614 Artikel
ModeratorIn
2003-08-21
2614 Artikel
ModeratorIn
Oder meinst Du sowas hier:
Ist ziemlich umstaendlich, weil es die Substition praktisch parallel in zwei Strings durchfuehrt. Aber es zeigt immer genau an, wie der String nach jeder Einzelersetzung aussieht.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl
use strict;
use warnings;
my $text = ' a b c d a b c d hallo';
my $trace = $text;
my $offset = 0;
$text =~ s{(a)}{substitute($1)}ge;
print ">>$text\n";
sub substitute {
my ($vorher) = @_;
my $nachher = 'aa';
substr($trace, $offset + $-[0], length($vorher), $nachher);
print ">$trace\n";
$offset += length($nachher)-length($vorher);
return $nachher;
}
Ist ziemlich umstaendlich, weil es die Substition praktisch parallel in zwei Strings durchfuehrt. Aber es zeigt immer genau an, wie der String nach jeder Einzelersetzung aussieht.
Lieblingsmodule: 
IPC::System::Simple, Path::Class
IPC::System::Simple, Path::Class