topic Re: Small help in shell script in Operating System - HP-UX

Small help in shell script

Sreekanth Makam — Sat, 12 Jun 2004 11:40:35 GMT

Hi folks,

I have 2 files..lets take A and B
I want a shell script such that, it must read first line from file "A" and 2 line from "B". This must repeat for whole file a.

I think you are confused..Let me explain with an example...

"A" file containes
1
2
3
and "B" file containes
aaa
bbb
ccc
ddd
eee
fff
ggg
hhh
now i want output like

1 aaa
1 bbb
2 ccc
2 ddd
3 eee
3 fff
4 ggg
4 hhh

This is very importaant and urgent...Please friends help me fast...

Thnks in advance

***** Problem is a problem untill U feel that is a Problem****

Re: Small help in shell script

H.Merijn Brand (procura — Sat, 12 Jun 2004 12:09:03 GMT

does it have to be a *sh* script?

# perl -le'$b=pop;@a=<>;@ARGV=($b);@b=<>;for(@a){print$_,splice@,0,3}' fileA fileB

will do it. No error checks on fileb having at least 3 times the lines fileA has

There are several variants to this of course. Above looked the shortest

Enjoy, Have FUN! H.Merijn

Re: Small help in shell script

curt larson_1 — Sat, 12 Jun 2004 12:22:31 GMT

cat fileB |&

cat fileA |
while read varA
do
read -p varB
print "$varA $varB"
read -p varB
print "$varA $varB"
done

of course there is no error checking that the files will have matching entries, etc.

Re: Small help in shell script

Tim D Fulford — Sat, 12 Jun 2004 12:23:42 GMT

I like the perl, how about this as an alternative
# awk '{printf "%s\n%s\n", $0, $0}' A > AA
# paste AA B

Tim

Re: Small help in shell script

H.Merijn Brand (procura — Sat, 12 Jun 2004 12:36:00 GMT

And I misread the post just a bit. Here's a modified snippet

# perl -e'$b=pop;chomp(@a=<>);@ARGV=($b);@b=<>;for$a(@a){print"$a $_"for splice@b,0,3}' fileA fileB

Lets test ...

lt09:/home/merijn 126 > perl -e'$b=pop;chomp(@a=<>);@ARGV=($b);@b=<>;for$a(@a){print"$a $_"for splice@b,0,3}' fileA fileB
1 aaa
1 bbb
1 ccc
2 ddd
2 eee
2 fff
3 ggg
3 hhh
lt09:/home/merijn 127 >

Sorry if that caused confusion
Enjoy, Have FUN! H.Merijn

Re: Small help in shell script

Tim D Fulford — Sat, 12 Jun 2004 12:36:29 GMT

procura...

I get the following eror for:
# perl -le '$b=pop;@a=<>;@ARGV=($b);@b=<>;for(@a){print $_,splice @,0,3}' A B
Number found where operator expected at -e line 1, near "@,0"
(Missing operator before 0?)
syntax error at -e line 1, near "@,0"
Execution of -e aborted due to compilation errors.

Tim

Re: Small help in shell script

H.Merijn Brand (procura — Sat, 12 Jun 2004 12:44:14 GMT

repaired in last post. (And checked this time)

Enjoy, Have FUN!H.Merijn

Re: Small help in shell script

Tim D Fulford — Sat, 12 Jun 2004 17:08:24 GMT

I think procura deserves a ..10.. BUT the code is still wrong (see question, it asks repeat two lines from A for each line of B not 3...) that said, it is trivial to fix..

# perl -e'$b=pop;chomp(@a=<>);@ARGV=($b);@b=<>;for$a(@a){print"$a $_"for splice@b,
0,2}' A B

did the trick for me.. excellent much neater than my "awk & paste"

Tim

Re: Small help in shell script

Sreekanth Makam — Sun, 13 Jun 2004 02:28:51 GMT

Hi curt,

It helped me a lot.. Thnks ....

Thnks for others also..But I don't know perl. But after seeing your answers..I feel perl is better and faster.

***** Problem is a problem untill U feel that is a Problem****

Re: Small help in shell script

H.Merijn Brand (procura — Sun, 13 Jun 2004 03:38:34 GMT

`better' is not very objective for scripts. There is a good language for every solution in unix, and it's not always Perl.

The more you are familiar with /any/ language, the more you will use it, and the faster it will bring you to the desired results.

I know people that wrote 2000 line sys-admin scripts in csh. I bet that there are more people on this forum that shivver to maintain that than there are people that shivver to decrypt one of my perl one-liners :)

I know perl, because I use it for almost everything, but until you are familiar with it, awk, sed, sh, sort, and comm are proably better utilt for you than Perl. Even if the given solution is faster and/or `better'.

I was tired yesterday, obviously. the typo (missing 'b') in my first post is due to my keyboard, that often needs a harder hit for the 'b' key, but the misreading of your post, and the second misreading of 3 instead of two is simply sloppy and careless.

Perl is a fine language for scripting, because it is so versatile, and has all the needed glue elements built-in. I can understand people not using it for bigger projects due to the sometimes obfuscated constructs, but IMHO there also lies the grace of it. Perl is much more powerful and versatile than Python for example, but in larger development groups, I can imagine that the group benefits from the restrictive formats and structures of Python.

I, for example, never use posix-sh features, but restrict myself, when programming sh, to the very old bourne shell set just because of (backward) compatibility.

Enjoy (scripting), Have FUN! H.Merijn [ always there to promote Perl ]

Re: Small help in shell script

Muthukumar_5 — Mon, 14 Jun 2004 06:37:58 GMT

Hai.

Attached script will do the requirement. But b file has to contain twice the lines as in a file. If you don't want to check this remove the checking loop in script.

Give the input files and result file,you will get the required results on result file.

Regards,
Muthukumar.

Re: Small help in shell script

Sreekanth Makam — Mon, 14 Jun 2004 07:26:21 GMT

Hello muthukumar,

U wrote a really big program..Sorry yaar..I did'nt like it..Shell scrip must me sweet and short..

Any way thnks for your replay...

Re: Small help in shell script

H.Merijn Brand (procura — Mon, 14 Jun 2004 07:51:31 GMT

For your reference: http://developers.slashdot.org/article.pl?sid=04/06/12/2125229

Enjoy, Have FUN! H.Merijn