Mit awk Variablen und Array setzen

#! /usr/bin/awk -f
BEGIN {
	print "Anzahl Argumente in ARGC : " , ARGC-1  
	if(ARGC-1 < 2){
		print "Bitte 2 dateien angeben"  
		exit 1
	}
	DATEI1=ARGV[1]
	DATEI2=ARGV[2]
	#print DATEI1
	#print DATEI2
	print "________________"  
}
# HauptPRG
{
	suchedatei1()

}
END {
	close (DATEI2)
	print "ende des scripts"  
}
function suchedatei1(){
    FS=" "  
    	line[NR]=$0
    	lineDatum[NR]=$1
    	lineDatei[NR]=$3
        suche1=match($0, "02/22")  
        if(suche1){
        	print "Treffer Datum: " NR, lineDatum[NR]   
            print "Line: " NR-1, line[NR-1]  
            #print "Treffer Name Datei1: " NR-1, lineDatei[NR-1] 
            TREFFER = lineDatei[NR-1]
            print TREFFER
			suchedatei2()
            print "=============="  
       }
		
}
function suchedatei2(){
	FS=" "  
#	print "2. datei" 
	while (getline < DATEI2) {
		Zeile[NR]=$0
		ZeileDateiID[NR]=$2
		ZeileDateiName[NR]=$3
		suche2=match($0, TREFFER)
		if (suche2){
			#print "Komplette Zeile: "Zeile[NR] 
			print "DateiID: "ZeileDateiID[NR]  
			print "DateiName: "ZeileDateiName[NR]  
		}
	}
       close (DATEI2)
}

#! /usr/bin/awk -f
##
## bitte gawk installieren
##
BEGIN {
	print "Anzahl Argumente in ARGC : " , ARGC-1  
	if(ARGC-1 < 2){
		print "Bitte 2 dateien angeben"  
		exit 1
	}
	DATEI1=ARGV[1]
	DATEI2=ARGV[2]
	#print DATEI1
	#print DATEI2
	MONAT = strftime ("%m")  
	TAG = strftime ("%d")  
	VORMONAT = strftime ("%m")-1   
	if (length(VORMONAT) == 1){
		VORMONAT = 0VORMONAT
	}
	#print MONAT, TAG, VORMONAT
	print "________________"  
}
# HauptPRG
{
	suchedatei1()

}
END {
	print "ende des scripts"  
}
function suchedatei1(){
    FS=" "  
   	line[NR]=$0
   	lineDatum[NR]=$1
   	lineDatei[NR]=$3
    #suche1=match($0, "03/08") 
    suche1=match($0, VORMONAT"/")  
    if(suche1){
       	print "Treffer Datum: " NR, lineDatum[NR]   
        #print "Line: " NR-1, line[NR-1] 
        #print "Treffer Name Datei1: " NR-1, lineDatei[NR-1] 
        TREFFER = lineDatei[NR-1]
        print TREFFER
		suchedatei2()
        print "=============="  
    }
}
function suchedatei2(){
	FS=" "  
#	print "2. datei" 
	while (getline < DATEI2) {
		Zeile[NR]=$0
		ZeileDateiID[NR]=$2
		ZeileDateiName[NR]=$3
		suche2=match($0, TREFFER)
		if (suche2){
			#print "Komplette Zeile: "Zeile[NR] 
			print "DateiID: "ZeileDateiID[NR]  
			print "DateiName: "ZeileDateiName[NR]  
		}
	}
	close (DATEI2)
}

#!/usr/bin/perl
use strict;
use warnings;

our($quelldatei, @Zeilen, $i, $DATEI1INHALT, $CEP, $CEP2);
our($quelldatei2, @Zeilen2, $i2, $DATEI1INHALT2, $CEP3, $CEP4);

$quelldatei = $ARGV or die 'Bitte Quelldatei angeben!';  
open "Q", "<$quelldatei" or die "Datei $quelldatei wurde nicht gefunden";  

$quelldatei2 = $ARGV[1] or die 'Bitte Quelldatei2 angeben!';  
open "Q2", "<$quelldatei2" or die "Datei $quelldatei2 wurde nicht gefunden";  

foreach (<Q>) {
    push @Zeilen, $_;
}

foreach (<Q2>) {
    push @Zeilen2, $_;
}

for ($i=0; $i<=$#Zeilen; $i++){
    if ($Zeilen[$i] =~ /02\//){
        $CEP = $i-1;
        $CEP2 = $i+1;
        print $Zeilen[$CEP]."\n";  
        print "$Zeilen[$i]\n";  
        print $Zeilen[$CEP2]."\n";  
        print "===========================\n";  
    }
}
print "ist erledigt\n";  

#!/usr/bin/perl
use strict;
use warnings;

our($quelldatei, @Zeilen, $i, $DATEI1INHALT, $CEP, $CEP2);
our($quelldatei2, @Zeilen2, $i2, $DATEI1INHALT2, $CEP3, $CEP4, $vormonat);

## Datum bearbeiten
##   0      1     2     3     4     5       6       7     8
our($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdat ) = localtime(time);
# Wenn man nur den Monat braucht:
($mon) = (localtime(time))[4];
$mon+=1;
$mon = $mon < 10 ? $mon = "0".$mon : $mon;  
$vormonat = $mon-1;
##

$quelldatei = $ARGV or die 'Bitte Quelldatei angeben!';  
open "Q", "<$quelldatei" or die "Datei $quelldatei wurde nicht gefunden";  

$quelldatei2 = $ARGV[1] or die 'Bitte Quelldatei2 angeben!';  
open "Q2", "<$quelldatei2" or die "Datei $quelldatei2 wurde nicht gefunden";  

foreach (<Q>) {
    push @Zeilen, $_;
}

foreach (<Q2>) {
    push @Zeilen2, $_;
}

for ($i=0; $i<=$#Zeilen; $i++){
    if ($Zeilen[$i] =~ /$vormonat\//){
        $CEP = $i-1;
        $CEP2 = $i+1;
        print $Zeilen[$CEP]."\n";  
        print "$Zeilen[$i]\n";  
        print $Zeilen[$CEP2]."\n";  
        print "===========================\n";  
    }
}
print "ist erledigt\n";