Shell Programming and Scripting

$ awk 'BEGIN{RS="";FS="\n"}
/Data name/ { split($1,a," ")
     for (i=2;i<=NF;i++) 
         {if (($i~/forward/)||($i~/reverse/)) 
              { split($i,b," "); print a[3],b[3],b[4]}}
     {printf "\n"}}'  urfile

ABC001 10 100
ABC001 15 200
ABC001 50 500

XFG110 50 100
XFG110 50 90

ABC010 150 190

$ awk 'BEGIN{RS="";FS="\n"}
/Data name/ { split($1,a," ") ;
     for (i=2;i<=NF;i++) 
         {if (($i~/forward/)||($i~/reverse/)) 
              { split($i,b," "); print a[3],b[3],b[4]}}
     {printf "\n"}}'  urfile

ABC001 10 100
ABC001 15 200
ABC001 50 500

XFG110 50 100
XFG110 50 90

ABC010 150 190

my $flag=0;
my $name;
while(<DATA>){
	if(/^Data name:\s*(.*)/){
		$name = $1;
	}
	elsif(/Start_time End_time/){
		$flag=1;
	}
	elsif(/^\s*$/){
		print "\n";
		$flag=0;		
	}
	else{
		if($flag eq 1){
			my @tmp = split;
			print $name," ",$tmp[2]," ",$tmp[3],"\n";
		}
	}
}
__DATA__
Data name: ABC001
Data length: 1000
Detail info
Data Direction Start_time End_time Length
1 forward 10 100 90       
1 forward 15 200 185
2 reverse 50 500 450

Data name: XFG110
Data length: 100
Detail info
Data Direction Start_time End_time Length
1 forward 50 100 50       
2 reverse 50 90 40

Data name: ABC010
Data length: 200
Detail info
Data Direction Start_time End_time Length
1 forward 150 190 40