Opened by norman at 2005-05-10 13:21
User since
2004-03-11
46 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-03-11
46 Artikel
BenutzerIn
hallo zusammen,
habe folgendes problem:
1. datei öffnen
2. suchen und erstzen eines teil des inhalts
3. datei schreiben
alles ab <!--test 1.3.0 --> und bis <!-- /test--> soll ersetzt werden. die datei, die geöffnet wird, sieht so aus:
könnte es bei dem regulären ausdruck probleme mit den zeilenumbrüchen geben?
viele grüße
norman
habe folgendes problem:
1. datei öffnen
2. suchen und erstzen eines teil des inhalts
3. datei schreiben
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
## datei öffnen
my $template = 'test.txt';
my @ausgabe;
open(DATEI, "$template") || die "$template nicht gefunden";
my @ausgabe = <DATEI>;
close(DATEI);
## suchen , ersetzen
my $text = join("",@ausgabe);
$text =~ s/<!--te.+?st-->//g;
## ausgabe
my $fileout = 'test2.txt';
open(FILEOUT, ">$fileout") || die "Kann $fileout nicht schreiben!";
print FILEOUT $text;
close(FILEOUT);
alles ab <!--test 1.3.0 --> und bis <!-- /test--> soll ersetzt werden. die datei, die geöffnet wird, sieht so aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
blabla
<!--test 1.3.0 -->
<script language="Javascript" type="text/javascript">
</script>
<noscript>
</noscript>
<!-- /test-->
blabla
könnte es bei dem regulären ausdruck probleme mit den zeilenumbrüchen geben?
viele grüße
norman