Covert html to HTML

[ouse77]

Hi there
can any one help me I would like to make a perl script to make me convert a file with html tags form lowercase to uppercase from a file .html

[numberwhun]

Ok, why not post the code you have tried here and we will help you get it working. But, you have to make an effort as this is not a coding service. Also, please surround your code with the proper code tags.

Regards,

Jeff

[KevinADC]

sounds like school work. This is one of the basic assignments of many a perl course.

[ouse77]

i tried this but id don's not work

while ($a= <STDIN>)
{
if ($a =~ tr/a-z/A-Z)
{
print "$a\n";
}
if ($a =~ tr/A-Z/a-z/)
{
   print"the uppercase is $a\n";
}
   elsif ($a =~ tr/[A-Z]/[a-z]/)
{
 $b=$a;
 $b=~tr/a-z/A-Z/c;
 print "$b\n";
}
}

[nithinpes]

i tried this but id don's not work

while ($a= <STDIN>)
{
if ($a =~ tr/a-z/A-Z)
{
print "$a\n";
}
if ($a =~ tr/A-Z/a-z/)
{
   print"the uppercase is $a\n";
}
   elsif ($a =~ tr/[A-Z]/[a-z]/)
{
 $b=$a;
 $b=~tr/a-z/A-Z/c;
 print "$b\n";
}
}

You have tried to translate lower case characters to uppercase and then back to lowercase and further UC to LC multiple times. I am confused about your objective!!
The very first expresssion that you have used in if loop (note the missing forward slash'/') will translate all lower case characters to upper case.

$a =~ tr/a-z/A-Z/ ;
 

What you are confused with is probably the wrong print statement in second if loop. It should be - "the lowercase is $a\n".