![]() |
![]() |
3 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -w
use strict;
# Dateien öffnen
my $dateiname = "test.txt";
open(DATEI, ">> $dateiname");
If ($dateiname =~ s/(die)/XXXXX /g)
{
print ($1);
}
close(DATEI);
![]() |
![]() |
3 Einträge, 1 Seite |