<!-- Collection of code snippets by Arne Vajhøj -->
<!-- (likely posted to comp.os.vms/INFO-VAX, INFO-TPU, MACRO32, eksperten.dk, newz.dk, LinkedIn or other place sometime between 1990 and now) -->
<?php

function load_xml($fnm) {
    $res = array();
    $xmlfile = new SimpleXMLElement(file_get_contents($fnm));
    foreach($xmlfile->TestSummary as $tstsum) {
        $res[] = preg_replace('/([A-Z])\.(\d+)/', '$1$2', $tstsum->CableID);
    }
    return $res;
}

function load_csv($fnm) {
    $res = array();
    $fp = fopen($fnm, 'r');
    $recno = 0;
    while($rec = fgetcsv($fp, 1000, ',')) {
        $recno++;
        if($recno % 3 == 1) {
            $firstpart = $rec;
        }
        if($recno % 3 == 0) {
            $lastpart = $rec;
            for($i = 0; $i < count($lastpart); $i++) {
                $res[] = $firstpart[$i] . '.' . $lastpart[$i];
            }
        }
    }
    fclose($fp);
    return $res;
}

$xmllst = load_xml("/work/z.xml");
$csvlst = load_csv("/work/z.csv");

foreach($csvlst as $val) {
    echo $val . (in_array($val, $xmllst) ? ' is in XML' : ' is not in XML') . "\r\n";
}

?>