Perl script doubt? Post: 302243603

Sponsored Content

Top Forums Shell Programming and Scripting Perl script doubt? Post 302243603 by vasanth.vadalur on Monday 6th of October 2008 06:40:21 AM

10-06-2008

Registered User

not sorting, search and to do arithmetic..

Hi thanks,

But my question is not like sorting.

I am explaining little detaily:

FIle 1:

123 678 345 hi 6798
452 789 256 bi 8746
145 689 124 ji 435
456 690 345 ki 789

File 2:
345
256
124

Expected Output:

The outfile should rearrange according to the fourth column of file1, matching with the first column of file2.

Like:

123 678 345 hi 6798
456 690 345 ki 789
452 789 256 bi 8746
145 689 124 ji 435

Then the column 5 should be added for 345 matching individuallly, 256 invidually, 124 individually.

Like:
the addition of 345 match 5th column is 6798+789 = 7587
the addition of 256 macth 5th column is 8746
the addition of 124 match 5th column is 435

Thanks in advance for your reply,
Vasanth

Quote:

Originally Posted by era

If the number is always in the fourth column and
all you need is to sort numerically, you don't need Perl at all.

Code:

sort -rn -k4 file2

What's with the poll?

vasanth.vadalur

View Public Profile for vasanth.vadalur

Find all posts by vasanth.vadalur

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl doubt plz explain....

hi all i wrote a shell script which uses perl script my code is : >cat filename | while read i >do >perl -e 'require "/home/scripts/abc.pl" ; abc("$i")' >done perl script used will simply check syntax of Cobol programs but it didn't work for me so i asked my colleague he suggested...

2. Shell Programming and Scripting

shell script doubt

Hi, While reading a shell script ,i have come accross the following statements. script_name_full=$0 ***script_name=${script_name_full##*\} ***script_name_noexst=${script_name%%\.ksh} host_name=`hostname` ***host_name_short=${host_name%%\.*} can anybody tell me what is the purpose of marked...

3. UNIX for Advanced & Expert Users

i have a doubt with the awk script??

Hi Guys, I am new to this forum, i have doubt with a awk script. I want to generate a list where i can busiest hour from a list of a data. 05/19/2008 14:27:19 - avg: 0 max: 0 min: 0 samples: 0 total: 0 05/19/2008 14:28:19 - avg: 0 max: 0 min: 0 samples: 0 total: 0 05/19/2008 14:29:19 -...

4. Solaris

doubt regarding making a script

Hi, I want to execute around fifty commands on a server. I want to make it using a single command by placing the commands in a script. How to do this.

5. Shell Programming and Scripting

doubt in /etc/inittab script

Hi.. When i was just looking throught /etc/inittab file.. i had stuck with some problems that i dont known in shell scripts Here how the lablel like si ca lo l1 etc works.. do scripts proivide any label features.. please help... thanks in advance esham

6. Shell Programming and Scripting

csh script doubt

Hi, I need to execute output one command in csh. Eg: #!/bin/csh set smal = "set count = 1" grep "Tot" in_file | sed "s/Tot/$smal/g" In the above script, i have set the smal variale as "set count = 1". My desired output like: $echo count should show as 1.

7. Shell Programming and Scripting

Perl map doubt

Hello , Please can someone tell me what exactly happens when the below filehandler is chomped into an array and later mapped. $lcpLog="logcopy\@".getTimestamp."\log"; open CFg ,"< $lcpcfg"; chomp(@cfg = <CFG>); close CFG; @cfg=grep { $_ ne ' ' } map { lc + (split /\s*\/\//) }...

8. Shell Programming and Scripting

Doubt in Perl Variable declaration

Anyone please say what is the difference between $var and ${var} in perl Sometimes $var used and sometimes ${var} used in same program. Thanks in Advance, Prabhu ---------- Post updated at 09:34 AM ---------- Previous update was at 05:59 AM ---------- Any one please clarify

9. Shell Programming and Scripting

Trivial perl doubt about FILE

Hi, In the following perl code: #!/usr/bin/perl -w if (open(FILE, "< in_file")) { while (<FILE>) { chomp($_); if ($_ =~ /patt$/) { my $f = (split(" ", $_)); print "$f\n"; } } close FILE; } Why changing the "FILE" as...

10. Shell Programming and Scripting

perl doubt

Hi, Please help me to understand the following code: perl -lne 'print if "$_ " =~ /(5 (?:\d+ ){5})\1/' What the regular expression "?:" does? Also, whether the expression "\1" is the same as in sed (i.e) printing the elements inside pair of parentheses?

LEARN ABOUT SUSE

sieveshell

SIEVESHELL(1)						User Contributed Perl Documentation					     SIEVESHELL(1)

NAME

       sieveshell - remotely manipulate sieve scripts

SYNOPSIS

       sieveshell [--user=user] [--authname=authname] [--realm=realm] [--exec=script] server[:port]

       sieveshell --help

DESCRIPTION

       sieveshell allows users to manipulate their scripts on a remote server.	It works via MANAGESIEVE, a work in progress.

       The following commands are recognized:

	   list list scripts on server.

	   put <filename> upload script to server.

	   get <name> [<filename>] get script. if no filename display to stdout

	   delete <name> delete script.

	   activate <name> activate script.

	   deactivate deactivate all scripts.

OPTIONS

       -u user, --user=user
	   The authorization name to request; by default, derived from the authentication credentials.

       -a authname, --authname=authname
	   The user to use for authentication (defaults to current user).

       -r realm, --realm=realm
	   The realm to attempt authentication in.

       -e script, --exec=script
	   Instead of working interactively, run commands from script, and exit when done.

REFERENCES

       [MANAGESIEVE] Martin, T.; "A Protocol for Remotely Managing Sieve Scripts", draft-ietf-managesieve-03.txt, Mirapoint, Inc.; May 2001, work
       in progress.

AUTHOR

       Tim Martin <tmartin@mirapoint.com>, and the rest of the Cyrus team <cyrus-bugs@andrew.cmu.edu>.

perl v5.10.0							    2008-04-04							     SIEVESHELL(1)