Opened by Linuxer at 2011-04-12 15:04
User since
2010-10-12
109 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2010-10-12
109 Artikel
BenutzerIn
Ich bin noch recht neu also keine Ahnung ob ich checke was du meinst, aber habe das script mal wie folgt erweitert...
Der counter ist im Moment eigentlich überflüssig aber eventuell kann man ja damit noch irgendwas lustiges machen :)
Grüße
Der counter ist im Moment eigentlich überflüssig aber eventuell kann man ja damit noch irgendwas lustiges machen :)
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
use strict;
use warnings;
my $counter;
open(FILE,"<new_markup.txt") or die "can't filename: $!";
while(<FILE>) {
if ($_ =~ /(:.*\()(\w+)/g) {
$_ =~ s/$2/mach irgendwas/;
}
elsif (/(:.*\()\"(\w+)/g) {
$_ =~ s/$2/mach irgendwas/;
}
if ($_ =~ /\(/) {
$counter ++;
}
if ($_ =~ /\)/) {
$counter --;
}
print $_;
}
close FILE;
print "$counter\n";
Grüße