Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: simplify the script, check field match to value in a file
Top Forums Shell Programming and Scripting simplify the script, check field match to value in a file Post 302424334 by pludi on Tuesday 25th of May 2010 03:30:28 AM
Old 05-25-2010
Ah, I thought you were looking for a 1-liner. Complete, stand-alone script:
Code:
#!/usr/bin/perl

use strict;
use warnings;
use Carp;

open my $FH, '<', '1.txt' or croak "Can't open 1.txt: $!";
print grep { local @_ = split; $_[1] =~ /a|cc/ } <$FH>;
close $FH;

This User Gave Thanks to pludi For This Post:
jimmy_y
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Script to Match first field of two Files and print

Hi, I want to get script or command in Sun Unix which matches first fields of both the files and print the feilds of one files, example may make it more clear. InputFile1 ================== Alex,1,fgh Menthos,45454,toto Gothica,855,ee Zenie4,77,gg Salvatore,66,oo Dhin,1234,papapa... (3 Replies)
Discussion started by: indian.ace
3 Replies

2. Shell Programming and Scripting

AWK: Pattern match between 2 files, then compare a field in file1 as > or < field in file2

First, thanks for the help in previous posts... couldn't have gotten where I am now without it! So here is what I have, I use AWK to match $1 and $2 as 1 string in file1 to $1 and $2 as 1 string in file2. Now I'm wondering if I can extend this AWK command to incorporate the following: If $1... (4 Replies)
Discussion started by: right_coaster
4 Replies

3. UNIX for Dummies Questions & Answers

Help with AWK - Compare a field in a file to lookup file and substitute if only a match

I have the below 2 files: 1) Third field from file1.txt should be compared to the first field of lookup.txt. 2) If match found then third field, file1.txt should be substituted with the second field from lookup.txt. 3)Else just print the line from file1.txt. File1.txt:... (4 Replies)
Discussion started by: venalla_shine
4 Replies

4. Shell Programming and Scripting

Command/script to match a field and print the next field of each line in a file.

Hello, I have a text file in the below format: Source Destination State Lag Status CQA02W2K12pl:D:\CAQA ... (10 Replies)
Discussion started by: pocodot
10 Replies

5. Shell Programming and Scripting

awk to update field file based on match

If $1 in file1 matches $2 in file2. Then the value in $2 of file2 is updated to $1"."$2 of file2. The awk seems to only match the two files but not update. Thank you :). awk awk 'NR==FNR{A ; next} $1 in A { $2 = a }1' file1 file2 file1 name version NM_000593 5 NM_001257406... (3 Replies)
Discussion started by: cmccabe
3 Replies

6. Shell Programming and Scripting

awk to match field between two files and use conditions on match

I am trying to look for $2 of file1 (skipping the header) in $2 of file2 (skipping the header) and if they match and the value in $10 is > 30 and $11 is > 49, then print the line from file1 to a output file. If no match is foung the line is not printed. Both the input and output are tab-delimited.... (3 Replies)
Discussion started by: cmccabe
3 Replies

7. Shell Programming and Scripting

awk to update field in file based of match in another

I am trying to use awk to match two files that are tab-delimited. When a match is found between file1 $1 and file2 $4, $4 in file2 is updated using the $2 value in file1. If no match is found then the next line is processed. Thank you :). file1 uc001bwr.3 ADC uc001bws.3 ADC... (4 Replies)
Discussion started by: cmccabe
4 Replies

8. Shell Programming and Scripting

Get output of multiple pattern match from first field to a file

Hi All, Greetings! I have a file of 40000+ lines with different entries, I need matching entries filterd out to their files based on first filed pattern for the matching : For example: All server1 entries (in field1) to come together with its path in 2nd field. The best output I want... (9 Replies)
Discussion started by: rveri
9 Replies

9. Shell Programming and Scripting

Perl to update field in file based of match to another file

In the perl below I am trying to set/update the value of $14 (last field) in file2, using the matching NM_ in $12 or $9 in file2 with the NM_ in $2 of file1. The lengths of $9 and $12 can be variable but what is consistent is the start pattern will always be NM_ and the end pattern is always ;... (4 Replies)
Discussion started by: cmccabe
4 Replies

10. Shell Programming and Scripting

Script to check field value from a file records

I need a script to check the records in a file , if any value match transfer the record in error.txt file. 1- If any of the any field value is NULL(nothing in this field) Record1|Record2|Record3|Record4|Record5|DATE1|DATE2 Example: 11111111|22222222|NULL|12|444|27042018|27042018... (8 Replies)
Discussion started by: vivekn
8 Replies

LEARN ABOUT DEBIAN

carp::clan::share

Carp::Clan::Share(3pm)					User Contributed Perl Documentation				    Carp::Clan::Share(3pm)

NAME

       Carp::Clan::Share - Share your Carp::Clan settings with your whole Clan

VERSION

       Version 0.013

SYNOPSIS

	   package My::Namespace

	   use Carp::Clan::Share; # My::Namespace::Carp now exists

	   ...

	   package My::Namespace::Module

	   use My::Namespace::Carp; # Acts like "use Carp::Clan qw/^My::Namespace::/;"

	   ...

	   package My::Other::Namespace;

	   # You can also pass options through to Carp::Clan
	   use Carp::Clan::Share qw/verbose/; # My::Other::Namespace::Carp now exists

	   ...

	   package My::Other::Namespace::Module

	   use My::Other::Namespace::Carp; # Acts like "use Carp::Clan qw/^My::Other::Namespace:: verbose/;"

	   ...

DESCRIPTION

       This is a very lightweight helper module (actually just an import method) that will automagically create a __PACKAGE__::Carp module for
       you.

       Any arguments passed to the import (e.g. via use) method are forwarded along to Carp::Clan.

       NOTE: If you use this from a package ending with ::Carp, then it will use the parent of of that package as the target namespace

	   package My::Namespace::Carp;

	   use Carp::Clan::Share;

	   package My::Namespace::Module

	   use My::Namespace::Carp; # Acts like "use Carp::Clan qw/^My::Namespace::/;"

SEE ALSO

       Carp::Clan

       Carp

AUTHOR

       Robert Krimen, "<rkrimen at cpan.org>"

BUGS

       Please report any bugs or feature requests to "bug-carp-clan-share at rt.cpan.org", or through the web interface at
       <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Carp-Clan-Share>.  I will be notified, and then you'll automatically be notified of
       progress on your bug as I make changes.

SUPPORT

       You can find documentation for this module with the perldoc command.

	   perldoc Carp::Clan::Share

       You can also look for information at:

       o   RT: CPAN's request tracker

	   <http://rt.cpan.org/NoAuth/Bugs.html?Dist=Carp-Clan-Share>

       o   AnnoCPAN: Annotated CPAN documentation

	   <http://annocpan.org/dist/Carp-Clan-Share>

       o   CPAN Ratings

	   <http://cpanratings.perl.org/d/Carp-Clan-Share>

       o   Search CPAN

	   <http://search.cpan.org/dist/Carp-Clan-Share>

ACKNOWLEDGEMENTS

COPYRIGHT &; LICENSE
       Copyright 2008 Robert Krimen

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.10.0							    2009-08-10						    Carp::Clan::Share(3pm)
All times are GMT -4. The time now is 06:50 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy