Help for this page

Select Code to Download


  1. or download this
    while(my $inp = <DATA>) {
      my ($name,$ph,$addr,$date,$num) = split(/:/,$inp);
    ...
      my $conv = s/CA,/California/;
      print "$st\n";
      }}
    
  2. or download this
    Tommy Savage:408–724–0140: 12 2 2 Oxbow Court, Sunnyvale, CA 94087: 5/
    +19/66: 34200
    Lesle Kerstin: 408–456–123 4: 4 Harvard Square, Boston, MA 
    ...
    34756: 10/2/65: 35200
    Barbara Kerz:385–573 –8326: 83 2 Ponce Drive, Gary, IN 
    83756: 12/15/46: 268500