Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

Adjacent row and column check in Perl

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Adjacent row and column check in Perl
# 1  
Old 11-16-2011
Adjacent row and column check in Perl
HI,

i am new to perl world.

And i am trying to compress a file, as given below procedure.

Code:
INPUT FILE:

1 1 2 1          ==> R1  
2 1 3 1          ==> R2                         
3 1 4 1         ==> R3


OUTPUT FILE:
Code:
1 1 4 1


PROCEDURE:

R1-> C3 == R2->C1
R1->C4 == R2->C2

AND IF

R1->C2 == R1->C4 && R2->C2 == R2->C4

THEN OUTFILE FILE BECOMES

1 1 3 1
3 1 4 1

once again case 1 is applied and it output will become

11 41



ANYBODY HAVE ANSWER !!!

Smilie
Last edited by vasanth.vadalur; 11-17-2011 at 01:04 PM..
# 2  
Old 11-16-2011
Here you go:
Code:
$, = ' ';
$\ = "\n";

$_ = <>;
my @R = split;

while (<>) {
    my @N = split;
    if ($P[2] == $R[0] && $P[3] == $R[1]) { @N[0..1] = @R[0..1]; }
    @R = @N;
}

print @R;

This User Gave Thanks to m.d.ludwig For This Post:
vasanth.vadalur
# 3  
Old 11-16-2011
Hi,

Thanks for your reply.

But it is printing last , but required output is different one.

How to get the proper value.

Thanks
Vasanth

---------- Post updated at 05:31 AM ---------- Previous update was at 04:20 AM ----------

Hi m.d.ludwig,

The desired output is different one..

Can you guide for the correct output.
# 4  
Old 11-17-2011
Hi m.d.ludwig,

I got your approach.

And instead of p, i have to use R ..thts ..it solved..


Thanks
vasanth
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Print first row of column a, last row of column b if column a has the same value

I have a table with this structure: cola colb colc 1 19 lemon 20 31 lemon 32 100 lemon 159 205 cherries 210 500 cherries and need to parse it into this format: cola colb colc 1 100 lemon 159 500 cherries So I need the first row of cola and the last row of colb if colc has the... (3 Replies)
Discussion started by: coppuca
3 Replies

2. Shell Programming and Scripting

Overwrite specific column in xml file with the specific column from adjacent line

I have an xml file dumped from rrd file, that I want to "patch" so the xml file doesn't contain any blank hole in the resulting graph of the rrd file. Here is the file. <!-- 2015-10-12 14:00:00 WIB / 1444633200 --> <row><v> 4.0419731265e+07 </v><v> 4.5045912770e+06... (2 Replies)
Discussion started by: rk4k
2 Replies

3. Shell Programming and Scripting

Print row on 4th column to all row

Dear All, I have input : SEG901 5173 9005 5740 SEG902 5227 5284 SEG903 5284 5346 SEG904 5346 9010 SEG905 5400 5456 SEG906 5456 5511 SEG907 5511 9011 SEG908 5572 9015 SEG909 5622 9020 SEG910 5678 5739 SEG911 5739 5796 SEG912 5796 9025 ... (3 Replies)
Discussion started by: attila
3 Replies

4. Shell Programming and Scripting

How to convert the row to column in Perl?

Dear Perl users, Could you help me how to convert from row to column if I've a case below: Linux 2014_01_24 CPU 10 Linux 2014_01_24 MEM 20 UNIX 2014_01_24 CPU 30 UNIX 2014_01_24 MEM ... (6 Replies)
Discussion started by: askari
6 Replies

5. UNIX for Dummies Questions & Answers

awk to print first row with forth column and last row with fifth column in each file

file with this content awk 'NR==1 {print $4} && NR==2 {print $5}' file The error is shown with syntax error; what can be done (4 Replies)
Discussion started by: cdfd123
4 Replies

6. Shell Programming and Scripting

Subtracting each row from the first row in a single column file using awk

Hi Friends, I have a single column data like below. 1 2 3 4 5 I need the output like below. 0 1 2 3 4 where each row (including first row) subtracting from first row and the result should print below like the way shown in output file. Thanks Sid (11 Replies)
Discussion started by: ks_reddy
11 Replies

7. Shell Programming and Scripting

Copy the data column to adjacent column

Hi, i have file which contains only one record like below a|b|c|.... The no of columns is not known. The expected output is as below: a|a|b|b|c|c|... Please provide me your suggestions. OS: unix Thanks, Selva (7 Replies)
Discussion started by: bharathappriyan
7 Replies

8. Shell Programming and Scripting

Moving data from a specified column/row to another column/row

Hello, I have an input file like the following: 11_3_4 2_1_35 3_15__ _16989 Where '_' is a space. The data is in a table. Is there a way for the program to prompt the user for x1,y1 and x2,y2, where x1,y1 is the desired number (for example x=6 y=4 is a value of 4) and move to a desired spot... (2 Replies)
Discussion started by: jl487
2 Replies

9. Shell Programming and Scripting

How to subtract the adjacent lines from a single column?

Hi All, I have a file with only one column and i need to subtract the adjacent lines of the same column and print it in the same column. For Example: (Input) Col1 5 10 12 6 9 12 5 . . . .output should be like this: (12 Replies)
Discussion started by: Fredrick
12 Replies

10. Shell Programming and Scripting

Changing the column for a row in a text file and adding another row

Hi, I want to write a shell script which increments a particular column in a row from a text file and then adds another row below the current row with the incremented value . For Eg . if the input file has a row : abc xyz lmn 89 lm nk o p I would like the script to create something like... (9 Replies)
Discussion started by: aYankeeFan
9 Replies
Login or Register to Ask a Question