Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Identify matching data in a file and output to original line, in perl
Top Forums Shell Programming and Scripting Identify matching data in a file and output to original line, in perl Post 302265266 by summer_cherry on Saturday 6th of December 2008 07:41:40 AM
Old 12-06-2008
Code:
open FH,"<a.txt";
while(<FH>){
	tr/\n//d;
	@tmp=split(",",$_);
	if(($tmp[0] eq $tmp[3]) && ($tmp[1] eq $tmp[4])){
		$str=$_;
		$str1=$tmp[0];
		$str2=$tmp[1];
		next;
	}
	if(($str1 eq $tmp[3]) && ($str2 eq $tmp[4])){
		$str=$str.",".$tmp[0].",".$tmp[1];
	}
}
close FH;

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Need to identify the line containing @ in between the line of a file

Hi All, I have a huge unix flat file delimted by @ at the end of the line. I need to find out if there is any line/s containing @ in between the line so that I can remove that and put the file for processing. Thanks in advance for your help. (4 Replies)
Discussion started by: b.paramanatti
4 Replies

2. UNIX for Dummies Questions & Answers

How to grep / zgrep to output ONLY the matching filename and line number?

Hi all, I am trying to zgrep / grep list of files so that it displays only the matching filename:line number and does not display the whole line, like: (echo "1.txt";echo "2.txt") | xargs zgrep -no STRING If I use -o option, it displays the matching STRING and if not used, displays the... (3 Replies)
Discussion started by: vvaidyan
3 Replies

3. Shell Programming and Scripting

awk help required to group output and print a part of group line and original line

Hi, Need awk help to group and print lines to format the output as shown below INPUT FORMAT set echo on set heading on set spool on /* SCHEMA1 */ CREATE TABLE T1; /* SCHEMA1 */ CREATE TABLE T2; /* SCHEMA1 */ CREATE TABLE T3; /* SCHEMA1 */ CREATE TABLE T4; /* SCHEMA1 */ CREATE TABLE T5;... (5 Replies)
Discussion started by: rajan_san
5 Replies

4. Shell Programming and Scripting

using perl for matching one file with another file and print into new line

One file is fileA 0.0246*0.0068*0.0013*0.0023*0.0182*0.0028*0.0019*0.4750*0.0028*0.0812*0.0123*0.0018*0.0039*0.0020*0.0028*0.0047*0.0139*0.3330*0.0017*0.0072*0.4789... (4 Replies)
Discussion started by: cdfd123
4 Replies

5. Programming

How to find the matching data b/w 2 files in perl?

Hi friends,, i have find the matching data between 2files. My file1 have a data like rs3001336 rs3984736 rs2840532 File2 have a data like rs3736330 1 2359237 A G 0.28 1.099 0.010 rs2840532 1 2359977 G A 0.363 0.3373 1.123 rs3001336 1 2365193 G A 0.0812 0.07319 1.12 ... (1 Reply)
Discussion started by: sureshraj
1 Replies

6. Shell Programming and Scripting

How to find the matching data b/w 2 files in perl?

Hi friends,, i have find the matching data between 2files. My file1 have a data like rs3001336 rs3984736 rs2840532 File2 have a data like rs3736330 1 2359237 A G 0.28 1.099 0.010 rs2840532 1 2359977 G A 0.363 0.3373 1.123 rs3001336 1 ... (4 Replies)
Discussion started by: sureshraj
4 Replies

7. Shell Programming and Scripting

perl script to replace the text in the original file

Hi Folks, I have an html file which contains the below line in the body tagI am trying the replace hello with Hello Giridhar programatically. <body> <P><STRONG><FONT face="comic sans ms,cursive,sans-serif"><EM>Hello</EM></FONT></STRONG></P> </body> I have written the below code to... (3 Replies)
Discussion started by: giridhar276
3 Replies

8. Shell Programming and Scripting

Can't Output Piped Perl In-line command to a File

Hello, I'm pretty stumped, and I don't know why I am not able to redirect the output to the 'graphme' file with the command below in Fedora 18. tcpdump -l -n -t "tcp == 18" | perl -ane '($s,$j)=split(/,/,$F,2); print "$s\n";' > graphme In case you're wondering, I was following the example... (2 Replies)
Discussion started by: ConcealedKnight
2 Replies

9. Shell Programming and Scripting

Replace and add line in file with line in another file based on matching string

Hi, I want to achieve something similar to what described in another post: The difference is I want to add the line if the pattern is not found. File 1: A123, valueA, valueB B234, valueA, valueB C345, valueA, valueB D456, valueA, valueB E567, valueA, valueB F678, valueA, valueB ... (11 Replies)
Discussion started by: jyu3
11 Replies

10. Shell Programming and Scripting

How to control grep output intact for each matching line?

I have multiple (~80) files (some can be as big as 30GB of >1 billion of lines!) to grep on a pattern, and piped the match to a single file. I have a 96-core machine so that each grep job was sent to the background to speed up the search: file1.tab chr1A_part1 123241847 123241848... (6 Replies)
Discussion started by: yifangt
6 Replies

LEARN ABOUT SUSE

pfunc

PFUNC(1)						User Contributed Perl Documentation						  PFUNC(1)

NAME

       pfunc - grep for perl functions

SYNOPSIS

	   pfunc subroutine FILES...

DESCRIPTION

       pfunc searches the named FILES for all calls to the given subroutine.  It will report back the file and line number each call is found on
       along with what sort of call it is

	   function	       foo()
	   class method        Class->foo()
	   object method       $obj->foo()

EXAMPLE

	   $ pfunc isa /usr/share/perl/5.6.1/*.pm
	   Called as function in /usr/share/perl/5.6.1/CGI.pm at line 316
	   Called as function in /usr/share/perl/5.6.1/CGI.pm at line 327
	   Called as function in /usr/share/perl/5.6.1/CGI.pm at line 397
	   Called as function in /usr/share/perl/5.6.1/CGI.pm at line 494
	   Called as function in /usr/share/perl/5.6.1/CGI.pm at line 495
	   Called as object method in /usr/share/perl/5.6.1/CPAN.pm at line 4957
	   Called as function in /usr/share/perl/5.6.1/Dumpvalue.pm at line 191
	   Called as function in /usr/share/perl/5.6.1/Dumpvalue.pm at line 218
	   Called as function in /usr/share/perl/5.6.1/Dumpvalue.pm at line 248
	   Called as function in /usr/share/perl/5.6.1/Dumpvalue.pm at line 251
	   Called as function in /usr/share/perl/5.6.1/Dumpvalue.pm at line 254
	   Called as object method in /usr/share/perl/5.6.1/Shell.pm at line 28
	   Called as object method in /usr/share/perl/5.6.1/base.pm at line 12

NOTES

       Its not fast, but its accurate.

AUTHOR

       Michael G Schwern <schwern@pobox.com>

SEE ALSO

       Module::Info

perl v5.12.1							    2002-12-05								  PFUNC(1)
All times are GMT -4. The time now is 01:20 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy