隨手記錄

#!/usr/bin/perl
 
# Original String containing both
# lower and upper case letters
$original_string = "YTLiu0.Pixnet.NET";
 
# Converting the string to Upper case
$changed_string = uc($original_string);
 
# Printing the original String
print "Original String : $original_string\n";
 
# Printing the Changed String
print "Changed String : $changed_string\n";

Original String : YTLiu0.Pixnet.NET

Changed String : YTLIU0.PIXNET.NET