topic Re: some scripting now. in Operating System - HP-UX

some scripting now.

RAC_1 — Fri, 09 Dec 2005 06:17:59 GMT

I have lines as follows.

to me you
what where when

I want them to as follows.

To Me You
What Where When

I can do it with some scripting, but want a quick answer, so can not waste time on it.

Re: some scripting now.

James R. Ferguson — Fri, 09 Dec 2005 06:52:32 GMT

Hi:

# perl -lne '@list=();foreach $word (split) {push @list,ucfirst $word};print "@list"' file

Regards!

...JRF...

Re: some scripting now.

RAC_1 — Fri, 09 Dec 2005 07:05:38 GMT

I was working on this--
cat test555.txt | while read line; do for i in $(echo ${line}); do first=$(echo ${i} | cut -c1|tr "[:lower:]" "[:upper:]"|tr "\n" " " ; rest=$(echo ${i} | cut -c2- | tr "\n" " "); echo ${first}${rest}; done; done

JRF's solution worked...

I must learn PERL>>>>>

Re: some scripting now.

RAC_1 — Fri, 09 Dec 2005 07:38:12 GMT

I mentioned.

Re: some scripting now.

Rory R Hammond — Sat, 10 Dec 2005 02:32:23 GMT

had to give sed exmp

mac()
{
for arg in a b c d e f g h i j k l m n o p q r s t u v w x y z
do
UP=$(echo ${arg}|tr "[a-z]" "[A-Z]" )
echo "s/ ${arg}/ ${UP}/g"
echo "s/^${arg}/${UP}/"
done
}

mac > sedfile
cat test | sed -f sedfile

Yes perl is better

Re: some scripting now.

Hein van den Heuvel — Sat, 10 Dec 2005 17:12:11 GMT

perl -pe 's/\b(\w)/uc($1)/ge' your-file

-p loop trhough input reading into and print $_ after processing
-e program text to follow
s/regexpr/expr/eg for each occurence (g) of regexpr in $_ substitute it by ethe value of expr after executing expr

\b(\w) = remember a 'word character' following an word boundary in $1
uc($1) = upcase $1

grins,
Hein.

Re: some scripting now.

James R. Ferguson — Sun, 11 Dec 2005 10:56:52 GMT

Hi (again) RAC:

Hein's solution differs from mine in length but also in what constitutes a "word". It's worth noting :-))

You can test either Hein's or my solution interactively by omitting the filename argument at runtime.

The difference in input (denoted with "<" and the corresponding output (">") is thus exposed;

< this is jrf's code-running
> This Is Jrf's Code-running

< this is hein's code-running
> This Is Hein'S Code-Running

Note the treatment characters that follow a single quote (apostrophes) or a hyphen.

Regards!

...JRF...

Re: some scripting now.

Hein van den Heuvel — Sun, 11 Dec 2005 11:17:59 GMT

Good catch James.

We would need to know what defines a word for the problem to be solved.

Anyway... it was of course mostly to highlight an alternative approach.

We can make it work like Jrp's code.
Using his example using:

[root@music /tmp]$ cat x
this is jrf's code-running

[root@music /tmp]$ perl -pe 's/(^\w|\s\w)/uc($1)/ge' x
This Is Jrf's Code-running

The tricky part now is the first word which has no whitespace, and needs an 'or' construction. Using the boundary match \b avoids that.

Hein.