Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: perl: problem in looping! how to get rid
Top Forums Shell Programming and Scripting perl: problem in looping! how to get rid Post 302685959 by Chirel on Monday 13th of August 2012 05:44:17 PM
Old 08-13-2012
Hi,

If what you want is to compare line 1 of each file then line 2 of each file etc, then the code is wrong.
The code you show compare line 1 of file1 with all lines of file2 and then same for line 2.

So if i use the same code and make minimal change to your code the right one should be:
Code:
open FILE1,"1.txt" or die "can't open file 1";
open FILE2,"2.txt" or die "can't open file 2";
open(w1,">3.txt");
open(w2,">4.txt");

while ((my $line1 = <FILE1>) && (my $line2 = <FILE2>)) {
    chomp $line1;
    chomp $line2;
    my @cond1 = split("\t" , $line1);
    print "$cond1[2]\n";
    my @cond2 = split("\t" , $line2);
    print "$cond2[2]\n";
    if(abs($cond1[2]-$cond2[2])>=2)
    {
        print w1 "$line1\n";
        print w2 "$line2\n";
    }
}
close FILE1;
close FILE2;
close w1;
close w2;

This User Gave Thanks to Chirel For This Post:
anurupa777
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl question - looping through an array of hashrefs

I have an array of hashrefs that look like the following: my @LAYOUT = ( {SQL_1 => "select count (*) FROM prospect WHERE PROCESS_DATE = To_date('INSERT_DATE_HERE', 'mm/dd/yyyy') and tiff_filename is not null ... (2 Replies)
Discussion started by: kregh99
2 Replies

2. Shell Programming and Scripting

Awk: looping problem!

I am having a problem with awk when I run it with a loop. It works perfectly when I echo a single line from the commandline. For example: echo 'MFG009 9153852832' | awk '$2 ~ /^0-9]$/{print $2}' The Awk command above will print field 2 if field 2 matches 10 digits, but when I run the loop... (5 Replies)
Discussion started by: cstovall
5 Replies

3. Shell Programming and Scripting

Problem with looping construct

Hi all I have tried to search for this, but keep getting a MySQL db connect error, so am posing the question here, and taking a risk of incurring the wrath of the mods with my first post... I have the following test script: #!/bin/bash HTTPD=`/bin/ps -axcu | /usr/bin/grep httpd... (6 Replies)
Discussion started by: mikie
6 Replies

4. Shell Programming and Scripting

Problem with looping the directories

Hi all, I have a directory which has many sub-directories. Now, I want to check the space of each dir and redirect the output in a file if space exceeds the limit. I have already done it, but the way I did is not very good. I just listed the directories and awked the last column to get the... (5 Replies)
Discussion started by: naw_deepak
5 Replies

5. Shell Programming and Scripting

perl: looping through the output of a 'system' command

Hi there could anybody point me in the right direction when it comes to looping through the output of a system command in perl (i.e. df -k) doing a test against each line to see if it matches? for example if i have a df -k output like this and I wanted to grab the lines that matched "sda" or... (3 Replies)
Discussion started by: rethink
3 Replies

6. Solaris

SVM Solaris 8 Problem. Metastat output looping

Hi friends, I'm newbie to SVM. Just wanna try installed it on one of our server (to do mirroring for disk0 and disk1) but i think im lost until now. :( the steps i've taken is as below:- 1.prtvtoc /dev/rdsk/c1t0d0s2 | fmthard -s - /dev/rdsk/c1t1d0s2 2.metadb -a -c 3 -f c1t0d0s7... (3 Replies)
Discussion started by: kronenose
3 Replies

7. Shell Programming and Scripting

looping problem

I have been trying to come up with a program that can do this: Say I have a file named "sir" with a single field; 10 229 288 35 83 47 3 I want to create a file "gen" with three fields with the data in file "sire" listed in field 1 while field 2 and 3 are just 1 each like this: SPARSE... (1 Reply)
Discussion started by: iconig
1 Replies

8. Shell Programming and Scripting

Problem with Looping

Hi, guys, What I want is exactly shown below (I modified the former image and it looks like clearer.) https://lh6.googleusercontent.com/-EG8SKkrWEvc/Ube9e-jDiHI/AAAAAAAAAOM/hFNT0UqQPWE/s512/Linux_Study_20130611_001.jpg And with some guys' help, I made it. My script is below: #!/bin/bash #... (20 Replies)
Discussion started by: franksunnn
20 Replies

9. Shell Programming and Scripting

Looping in Perl based on defined keys in Map

Hello All, I am writing the below script where it will connect to database and returns the results. #!/sw/gcm/perl510/bin/perl use SybaseC; &openConnection; &loadvalues; sub openConnection { $dbproc = new SybaseC(SYDB}, $ENV{DBDFLTUSR}, $ENV{DBDFLTPWD}); if... (2 Replies)
Discussion started by: filter
2 Replies

10. Shell Programming and Scripting

Looping problem

I need help. I am trying to get this script to send out only one email not multiple emails of the abend. Currently it will send me one then and ther with the first and second one then another email with the first second and third abend and so on. I only want one email sent. ... (2 Replies)
Discussion started by: bbcarosi
2 Replies

LEARN ABOUT DEBIAN

meld

MELD(1) 						      General Commands Manual							   MELD(1)

NAME

       meld - Visual diff and merge tool for the GNOME Desktop

SYNOPSIS

       meld [options]
       meld [options] FILE1
       meld [options] DIR1
       meld [options] FILE1 FILE2 [FILE3]
       meld [options] DIR1 DIR2 [DIR3]

DESCRIPTION

       Meld  is  a  graphical diff viewer and merge application for the Gnome desktop.	It supports 2 and 3-file diffs, recursive directory diffs,
       diffing of directories under version control (Arch, Bazaar, Codeville, CVS, Darcs, Git, Mercurial, Monotone, RCS), as well as  the  ability
       to manually and automatically merge file differences.

OPTIONS

       --auto-compare, -a
	      Automatically compare all differing files on startup.

       --diff FILE1|DIR1 FILE2|DIR2 [FILE3|DIR3]
	      Create a diff tab for the given files or directories.  Note that "meld --diff FILE1 FILE2" is functionally equivalent to "meld FILE1
	      FILE2".  However, the --diff argument can be given multiple times for one invocation of meld which allows the user to  automatically
	      initiate multiple diffs when meld starts.  See examples below.

       --help, -h
	      Print application help and usage.

       --LABEL=<label>, -L <label>
	      Set application window title to <label>.

       --version
	      Print application version and exit.

EXAMPLES

       meld
	      Run meld without initiating a diff.

       meld FILE1
	      Initiate a diff between FILE1 and the version-controlled copy of FILE1.

       meld DIR1
	      Initiate a recursive diff between DIR1 and the version-controlled copy of DIR1.

       meld FILE1 FILE2
	      Initiate a diff between FILE1 and FILE2.

       meld FILE1 FILE2 FILE3
	      Initiate a 3-way diff between FILE1, FILE2, and FILE3.

       meld DIR1 DIR2
	      Initiate a recursive diff between directory DIR1 and DIR2.

       meld DIR1 DIR2 DIR3
	      Initiate a recursive 3-way diff between directory DIR1, DIR2, and DIR3.

       meld --diff FILE1 FILE2 --diff FILE3 FILE4
	      Initiate a diff between FILE1 and FILE2, and a separate diff between FILE3 and FILE4.

BUGS

       If  you	find  a  bug,  please report it at https://bugzilla.gnome.org/buglist.cgi?product=meld or mail a description of the issue to meld-
       list@gnome.org.

AUTHORS

       See the AUTHORS text file in meld's source code (http://git.gnome.org/browse/meld/tree/AUTHORS).

								   26 Sept 2010 							   MELD(1)
All times are GMT -4. The time now is 04:04 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy