2 input files --> 1 output file

[Horst]

hallo,

ich möchte beide dateien jeweils in ein array einlesen, [..]

Dein Freund ist DB_File und DB_RECNO,

brief:

use strict ;
use DB_File ;

my $filename = 'c:/windows/services';
my @filebody;
tie @filebody, "DB_File", $filename, O_RDWR|O_CREAT, 0644, $DB_RECNO
 or die "Cannot open file $filename: $!\n" ;

foreach my $line( @filebody ){
 print $line;
}

--Hotti