Shell Programming and Scripting

$ awk 'BEGIN{ toget="2222" ;}$1=="AA"{g=0}$1=="AA" && $2==toget {g=1}g' file

#gawk -F"|" 'BEGIN{ toget="25829649" ;}$1=="JKL"{g=0}$1=="JKL" && $2==toget {g=1}g' rpk.in
#

$> cat test2
awk 'function printm() {if (m==1){for (r in A){print A[r]}};delete A;m=0} $1=="AA"{ printm()} {A[r++]=$0} /'$1'/{m=1} END{printm()}' rpk.in

$> ./test2 1111
AA 1111 23 34
BB 45 56 78
CC 22 44
$>  ./test2 3333
AA 3333 46
BB 58 79
$>  ./test2 58
AA 3333 46
BB 58 79

use Getopt::Std;
getopt('k');
local $/="--";
open FH,"sed 's/^AA /--AA /' yourfile.txt|";
while(<FH>){
        s/--//;
        print $_ if /\b$opt_k\b/;
}

perl a.pl -k 1111
perl a.pl -k 2222

awk -v value=$1 '
/^AA/ { display = ($2 == value) }
display
' pv.dat