UNIX for Dummies Questions & Answers

THE BRIGHT DAY

the bright day

The BRIGHT day

JOHN JONES M.D.

john jones M.D.

#!/usr/local/bin/perl

use strict;
use warnings;

my $infile='sunny.dat';

open(I,$infile) or die "Error: $! \n";
my @arr=<I>;
close(I);

foreach my $row (@arr) {
  chomp($row);

  my @rowele=split(/ /,$row);

   if ($rowele[0] =~ /^[A-Z]*$/ && $rowele[1] =~ /^[A-Z]*$/ && $rowele[2] =~ /^[A-Z]*$/) {

	$rowele[0] =~ tr/A-Z/a-z/;
        $rowele[1] =~ tr/A-Z/a-z/;
	$rowele[2] =~ tr/A-Z/a-z/;

 	print "$rowele[0] $rowele[1] $rowele[2] \n";
	next;
   }

   if ($rowele[0] =~ /^[A-Z]*$/ && $rowele[1] =~ /^[A-Z]*$/ && $rowele[2] =~ /[\.]/) {

	$rowele[0] =~ tr/A-Z/a-z/;
	$rowele[1] =~ tr/A-Z/a-z/;

 	print "$rowele[0] $rowele[1] $rowele[2] \n";
	next;
   }

   print "$rowele[0] $rowele[1] $rowele[2] \n";

}