Mega Code Archive

 

Categories / Perl / Regular Expression

 

Tra-zA-Z

#!/usr/bin/perl -w while (<>) {     tr/a-z/A-Z/;     print; }