Opened by Iggy86 at 2012-08-13 13:46
User since
2012-07-26
41 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2012-07-26
41 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
for $string (@header2){
if ($found) {
if ($string =~ s{ .* \*/ }{}x) {
$found = 0;
push @neu, $string;
}
}
else {
if ($string =~ s{ /\* .* }{}x) {
$found = 1;
}
push @neu, $string;
}
}habe es auf meinen code übertragen. es funktioniert nicht ganz. nur die strings, wo das */ und das /* in einer zeile sind werden gelöscht. die strings wo dazwischen sind bleiben.
danke schon mal