Extracting data from files...

[Guest_imported]

I know pretty much nothing about Perl so i'd be grateful if someone could explain to me how i would a) search a file and look for all records within that file with a ( "teleservice code" = "22" )
where the ("totalcalleventduration&quot not equal to 0
and b) print the record name e.g. CDR2

Check out the example of a record below...

Thanks in advance for any help at all......

-- CDR 2
( MoBasicCallInformation
( SimChargeableSubscriber
( Imsi 0x"234305683001762f&quot
)
( Destination
( TypeOfNumber 0x"01&quot -- 1
( NumberingPlan 0x"01&quot -- 1
( AddressStringDigits 0x"447958879879&quot
( ModificationIndicator 0x"01&quot -- 1
)
( CallEventStartTimeStamp
( LocalTimeStamp "20020418224849&quot -- 0x"323030323034313832323438343
9"
( UtcTimeOffsetCode "A&quot -- 0x"41", 65
)
( TotalCallEventDuration 0x"00&quot -- 0
)
( LocationInformation
( NetworkLocation
( RecEntityCode 0x"06&quot -- 6
( LocationArea 0x"0a96&quot -- 2710
( CellId 0x"07&quot -- 7
)
)
( EquipmentInformation
( MobileStationClassMark 0x"04&quot -- 4
( Imei 0x"3501879055650800&quot
)
( BasicServiceUsedList
( BasicServiceUsed
( BasicService
( TeleServiceCode "22&quot -- 0x"3232", 12850
)
( ChargeInformationList
( ChargeInformation
( ChargedItem "E&quot -- 0x"45", 69
( ExchangeRateCode "A&quot -- 0x"41", 65
( CallTypeGroup
( CallTypeLevel1 0x"02&quot -- 2
( CallTypeLevel2 0x"00&quot -- 0
( CallTypeLevel3 0x"00&quot -- 0
( CalledCountryCode "44&quot -- 0x"3434", 13364
)
( ChargeDetailList
( ChargeDetail
( ChargeType "00&quot -- 0x"3030", 12336
( Charge "W&quot -- 0x"57", 87
( DayCategory "I&quot -- 0x"49", 73
( TimeBand "I&quot -- 0x"49", 73
)
)
)
)
)
)

 

[LightElf]

my $totalFlag = 0;
my $codeFlag = 0;
my $recordName;

open (FILE, &quot;<log.file&quot;
while (<FILE>){
if (/^--(.+)/){ #if &quot;--&quot; marks begining of record
if (($tatalFlag ne 0) and ($codeFlag eq 22)){
print $recordName, &quot;\n&quot;;
}
$recordName = $1;
$codeFlag = 0;
$totalFlag = 0;
}
$codeFlag = 22 if (/TeleServiceCode &quot;22&quot;/);
$totalFlag = 1 if (/TotalCallEventDuration (?!0x&quot;00&quot/);
}
if (($tatalFlag ne 0) and ($codeFlag eq 22)){
print $recordName, &quot;\n&quot;;
}

close FILE;

#this code should extracting and print to the console record names you need from &quot;log.file&quot;.