Help for this page

Select Code to Download

Select or download this

    opendir(DIR, $semDir);
    my @filenames =readdir(DIR);
    closedir(DIR);
...
        %customer_domain_hash = split(/@@@/, $line);
    }
print Dumper(\%customer_domain_hash)."\n";

Select or download this

CustomerA@@@DomainA
CustomerA@@@DomainB
CustomerA@@@DomainC
...
          'CustomerB' => 'DomainE'
        };