Paul - The Programmer

simple & stupid

character cast by Perl -- II

uppercase cast:

perl -p -e '$_=uc'

lowercase cast:

perl -p -e '$_=lc'

character cast by Perl

uppercase cast:

perl -p -e 's/(lowercase pattern)/\u$1/g'

perl -n -e 'print "\U$_"'

perl -p -e '$_="\U$_"'

lowercase cast:

perl -p -e  's/(uppercase pattern)/\l$1/g'

perl -n -e 'print "\L$_"'

perl -p -e '$_="\L$_"'

Perl format string

Strings can be formatted to your liking using formatting characters. Some of these characters also work to format files created in PERL. Think of these characters as miniature functions.

Character Description
\L Transform all letters to lowercase
\l Transform the next letter to lowercase
\U Transform all letters to uppercase
\u Transform the next letter to uppercase
\n Begin on a new line
\r Applys a carriage return
\t Applys a tab to the string
\f Applys a formfedd to the string
\b Backspace
\a Bell
\e Escapes the next character
\0nn Creates Octal formatted numbers
\xnn Creates Hexideciamal formatted numbers
\cX Control characters, x may be any character
\Q Do not match the pattern
\E Ends \U, \L, or \Q functions


print "content-type: text/html \n\n"; #HTTP HEADER

$mystring = "welcome to!"; #String to be formatted
$newline = "welcome to \!";
$capital = "\uwelcome to!";
$ALLCAPS = "\Uwelcome to!";

print $mystring."<br />";
print $newline."<;br />";
print $capital."<br />";
print $ALLCAPS";

Original Link

Clearcase find

cleartool find dir -follow -version '!lbtype(LABEL) && !version(\main\specific_branch\LATEST)' -print

Correct the comments in ClearCase

Since it's so important to give good comments for your changes. How to correct the unsuitable comments for a file you have already checked in or a label you have already created? Do we have the change to make the mistakes right?

Yes, of course. The answer is using the command chevent. 8-) The command chevent can replace or append the comments for the existing events. Its default behavior is to append existing comments.

For instance, correct the bad comments for the existing label my_label:

cleartool chevent -replace lbtype:my_label@my_vobs

For more information, just ask the clearcase man ( cleartool man chevent ).

Never do evil! 8-D