topic Re: While Loop Question? in Operating System - HP-UX

While Loop Question?

Allanm — Tue, 13 Oct 2009 21:59:02 GMT

I have a file which has the following data -

emailid1 word1 word2 word3
emailid2 word1 word3

The spaces between the words are tab separated spaces.

I want to echo each word on the line separately and at the same time consider the next line as a new line.

Please help!

Re: While Loop Question?

Michael Steele_2 — Tue, 13 Oct 2009 22:03:30 GMT

cat file | while read a b c
do
echo $a $b $c
done

Re: While Loop Question?

Allanm — Tue, 13 Oct 2009 22:06:32 GMT

Thanks Micheal!

There is one more piece to it, the words can be more than 3 and the count cannot be predicted. I need a more dynamic way.

Re: While Loop Question?

Allanm — Tue, 13 Oct 2009 22:19:02 GMT

And dont want to print blank lines.

Re: While Loop Question?

James R. Ferguson — Tue, 13 Oct 2009 22:22:43 GMT

Hi Allan:

while read LINE
do
echo ${LINE}|tr -cs "[:alpha:]" "[\012*]"
done < file

Spaces and/or tabs can separate the words in the file.

Regards!

...JRF...

Re: While Loop Question?

James R. Ferguson — Tue, 13 Oct 2009 22:27:26 GMT

Hi (again) Allan:

> And dont want to print blank lines.

OK, so use:

# cat ./lister
#!/usr/bin/sh
while read LINE
do
[ -z "${LINE}" ] && continue
echo "${LINE}"|tr -cs "[:alpha:]" "[\012*]"
done < $1

...run as:

# ./lister file

Regards!

...JRF...

Re: While Loop Question?

James R. Ferguson — Tue, 13 Oct 2009 22:36:56 GMT

Hi (again):

In keeping with TIMTOWDI here's another way:

# perl -nle 'next if m/^\s*$/;print join "\n",split' file

Regards!

...JRF...

Re: While Loop Question?

Allanm — Tue, 13 Oct 2009 22:46:30 GMT

Thanks JRF!

But this doesn't do what I want to achieve -

Email-ids are of the pattern foo_bar@foobar.com and it is the first entry on each line.I want to print that as is and add a certain html tags around it -

and for the words like words1... I need word1
word2
...

The final document should look like the following -

word1
words2
words3

word1
words3

Re: While Loop Question?

Dennis Handly — Tue, 13 Oct 2009 23:00:07 GMT

>I want to echo each word on the line separately

for word in $(< file); do
echo $word
done

Re: While Loop Question?

Hein van den Heuvel — Wed, 14 Oct 2009 00:42:59 GMT

Hmm,

Seems like your original problem statement can be satisfied with a simple:

$ tr "\t" "\n" < tmp.txt

look:

$ cat tmp.txt
asergfewgfwegfew aap noot mies
blah more data
$ od -c tmp.txt
0000000 a s e r g f e w g f w e g f e w
0000020 \t a a p \t n o o t \t m i e s \n b
0000040 l a h \t m o r e \t d a t a \n

$ tr "\t" "\n" < tmp.txt
asergfewgfwegfew
aap
noot
mies
blah
more
data

But that's not really what you want apparently, and it looses the 'specialness' of the first word. Why not do it all in one perl one-line or program?

$ perl -ne 'chomp; @words=split; $u=shift @words; print "\n\n"; for (@words) {print "$_<
/word>\n"}; print "\n\n"' tmp.txt

aap
noot
mies

more
data

Enjoy!
Hein

Re: While Loop Question?

Laurent Menase — Wed, 14 Oct 2009 07:44:35 GMT

while read a b
do
set -- $b
echo 'email $a'
while [ $# != 0 ]
do
echo word $1
shift
done
done

Re: While Loop Question?

James R. Ferguson — Wed, 14 Oct 2009 10:40:50 GMT

Hi Allan:

Your original query was "I want to echo each word on the line". Then, after a couple of offerings, you wrote, "Email-ids are of the pattern foo_bar@foobar.com and it is the first entry on each line.I want to print that as is and add a certain html tags around it -".

This whole question, beginning with the subject was poorly framed. The use of the word "word" in a language/scripting context is loaded with meaning alone. You offered your input. Offering a _sample_ of the output you wanted might have gone a long way to a more direct, faster solution.

Regards!

...JRF...

Re: While Loop Question?

Allanm — Thu, 15 Oct 2009 17:58:28 GMT

Thanks Hein,

Works as expected, a couple of conditions where it can fail or I would like to handle is if there is a blank line or a line which is commented with a hash (#) then I would not like it to print anything and go on to the next entry.

Thanks,
Allan.

Re: While Loop Question?

James R. Ferguson — Thu, 15 Oct 2009 19:09:50 GMT

Hi Allan:

> a couple of conditions where it can fail or I would like to handle is if there is a blank line or a line which is commented with a hash (#) then I would not like it to print anything and go on to the next entry.

See if this meets your needs:

# cat ./myfilter
#!/usr/bin/perl
use strict;
use warnings;
my ( @F, $name, $word );
while (<>) {
s/([^#]*).*/$1/; #...snip off "#" and any trailing chars
next if m/^\s*$/; #...skip if only whitespace
@F = split;
$name = shift @F;
print qq(\n\n);
for $word (@F) {
print qq(), $word, qq(\n);
}
print qq(\n\n);
}
1;

Now consider an input file like this:

# cat -etv ./myinput
emailid1 word1^Iword2 word3$
$
# this is a comment line$
^I$
emailid2 ^I worda wordb # and this piece is commentary too$

...as you can see the ^I are tab characters and the $ characters mark the end-of-line. Hence there are blank lines and comments signaled by hash ("#") marks at various points.

Now:

# ./myfilter ./myinput

word1
word2
word3

worda
wordb

Regards!

...JRF...

Re: While Loop Question?

Allanm — Thu, 15 Oct 2009 22:22:32 GMT

Thanks JRF/Hein.

The only change I made was to -

s/#.*//;

instead of

s/([^#]*).*/$1/

=============

Another set questions come to my mind since we are doing this in Perl.Originally I was working on shell script for this and the following variables were set related to saving the original file and saving the output in a intermediate XML file and moving that file over to be the destination file -

Originally when I was planning this to do this in shell I was having something similar -

===============================

env=`hostname |awk -F"." '{print $2}'`
destination_xml="/a/g/m/admin.xml"
DATE=`date '+%Y%m%H%M'`
Intertim_xml="/a/g/m/admin.xml.interim.$DATE"

if [ $# -lt 1 ]
then
echo
echo "Correct USAGE:"
echo -e "\t\t$0 \n"
exit
fi

# Save the target XML file before renewing it
cp ${destination_xml} ${destination_xml}.${DATE}

while read Line {
....
} 1>> $Interim_xml

mv ${Interim_xml} ${destination_xml}

====================

How do I port this in Perl?

Thanks,
Allan.

Re: While Loop Question?

James R. Ferguson — Thu, 15 Oct 2009 22:34:30 GMT

Hi (again) Allan:

> Another set questions come to my mind since we are doing this in Perl. Originally I was working on shell script for this and the following variables were set related to saving the original file and saving the output in a intermediate XML file and moving that file over to be the destination file -

This is painless in Perl (of course!). Simply add the '-i' switch to enable inplace editting.

Using my last script, change:

#!/usr/bin/perl

to:

#!/usr/bin/perl -i.old

This specifies an "in-place" edit of the input file (passed as the argument to the script). A backup copy of the original file is made automatically, nameing it with its original name suffixed with ".old" [or whatever you want].

Regards!

...JRF...

Re: While Loop Question?

Allanm — Thu, 15 Oct 2009 22:56:04 GMT

as always Thanks JRF!!! :)

That takes care of the input file.

I want that to happen to the interim file and as well as target xml file. (as described in the "cp" and "mv" commands above).

How do I achieve that?

How do I specify the following variables in the Perl script -

env=`hostname |awk -F"." '{print $2}'` # so that the script run in any environment
destination_xml="/a/g/m/admin.xml" #target xml
DATE=`date '+%Y%m%H%M'`
Intertim_xml="/a/g/m/admin.xml.interim.$DATE"

Also I would like to handle a failure condition wherein if the input file is empty then it should use the previously saved input file...

Re: While Loop Question?

Hein van den Heuvel — Fri, 16 Oct 2009 05:30:19 GMT

>> I want that to happen to the interim file and as well as target xml file. (as described in the "cp" and "mv" commands above).

You want to try to use the perl command "rename"
Ir you can call: system(qq(cp.... ))

>> How do I specify the following variables in the Perl script -
env=`hostname |awk -F"." '{print $2}'` # so that the script run in any environment

There is a perl module for that:
Try this: perl -e "use Sys::Hostname; print hostname"

So just use the function 'hostname' in the program, after declaring it from "Sys"

>> destination_xml="/a/g/m/admin.xml" #target xml

Just a piece of string.

>> DATE=`date '+%Y%m%H%M'`

There is a locasltim function for that:

perl -e '($sec,$min,$hour,$mday,$mon,$year)=localtime; printf qq(%d%02d%02d%02d\n),$year+1900,$mon+1,$day,$hour,$min'

>> Also I would like to handle a failure condition wherein if the input file is empty then it should use the previously saved input file...

You could protect that with some defensive shell code before calling perl.
Of, in the perl script you couls explicitly create the output only if data exists.

Tou can pre-test with the '-s ' function,
or you can loop and only open on first data"

While (<>) {
open $out,">x.x" unless $out
:
}

Good luck!
Hein

Re: While Loop Question?

Allanm — Fri, 16 Oct 2009 17:44:19 GMT

Thanks Hein,

I did a small mistake, in the destination xml I want to use the env variable so that it can run on different environments and be environment independent.

env=`hostname |awk -F"." '{print $2}'`
destination_xml="/a/g/$env/admin.xml"

How do I do that in Perl script.

Thanks,
Allan

Re: While Loop Question?

James R. Ferguson — Fri, 16 Oct 2009 18:01:33 GMT

Hi Allan:

> env=`hostname |awk -F"." '{print $2}'`
> destination_xml="/a/g/$env/admin.xml"
> How do I do that in Perl script.

As Hein said, there is a Perl module to fetch the hostname:

#!/usr/bin/perl
use strict;
use warnings;
use Sys::Hostname;
my $env=hostname;
my $destination_xml = "/a/g/$env/admin.xml";
print "I point to '$destination_xml'\n";

That said, I am a bit confused when you said, "Originally I was working on shell script for this and the following variables were set related to saving the original file and saving the output in a intermediate XML file and moving that file over to be the destination file".

Specifically, what's wrong with the inplace edit I showed you? After all, Perl does what you would do via an intermediate file with a Perl-slight-of-hand. If the updated file isn't what you want, the use of the ".old" [or whatever you would choose] allows you to restore the original file by 'rename'ing it as Hein noted.

Regards!

...JRF...