Opened by galaxy at 2006-04-13 12:27
User since
2006-04-14
72 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-14
72 Artikel
BenutzerIn
#hier ist auch noch code drüber..
etc.....
danke für die info
//modedit GwenDragon: +Code-Tags; Bitte Code-Tags benutzen!\n\n
<!--EDIT|GwenDragon|1145787222-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
open(DATEI, "<C:/Beispieldaten/Konfigurationsdaten/20060310.DOCFIELD") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);
foreach (@Zeilen){
if ($typ == 1 && /$dokuart\;$zahl1\;(\d+)/){
$zahl1 = $1;
open(DATEI, "<C:/Beispieldaten/Konfigurationsdaten/20060310.REPOSITORY") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);
foreach(@Zeilen){
my %hash;
if(/^$zahl1;([^;]+)/){
etc.....
danke für die info
//modedit GwenDragon: +Code-Tags; Bitte Code-Tags benutzen!\n\n
<!--EDIT|GwenDragon|1145787222-->