Help for this page

Select Code to Download


  1. or download this
    open (DATABASE,">$database");
@DB=<DATABASE>;
  2. or download this
    if ($agent_name eq $input{'nagent_name'} && $agent_phone eq $input{'na
+gent_phone'} ){
  3. or download this
    fopen (ORGDB,"<$database");
@ODB=<ORGDB>;
...
    foreach $rec (@ODB){
        chomp($rec);
        ($agent_name,$agent_phone,$agent_cell,$agent_email)=split(/\|/
+,$rec);
  4. or download this
    for (@ODB) {
    ($agent_name,$agent_phone,$agent_cell,$agent_email)=split(/\|/);