Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: PERL "filtering the log file removing the duplicates
Top Forums Shell Programming and Scripting PERL "filtering the log file removing the duplicates Post 302837537 by Subbeh on Friday 26th of July 2013 04:02:28 AM
Old 07-26-2013
scriptscript, did you try to do it yourself? With a little bit of research on how to open files and how to use variables in perl you could do it yourself:

Code:
#!/usr/bin/perl

my (%h, $k, $v);

open(my $fh, '<', '/path/to/file') or die "Unable to open file, $!";
while (<$fh>) {
        $_ =~ s/(type|state|TYPE)[0-9]/<$1>/;
        $h{$_}++;
}
close($fh);

while (($k, $v) = each %h) {
        print "$h{$k}\t$k"
}

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

removing duplicates from a file

i have a file with some 1000 entries it will contain entries like 1000,ram 2000,pankaj 1001,rahim 1000,ram 2532,govind 2000,pankaj 3000,venkat 2532,govind what i want is i want to extract only the distinct rows from this file so my output should contain only 1000,ram... (2 Replies)
Discussion started by: trichyselva
2 Replies

2. Shell Programming and Scripting

Removing duplicates in a sorted file by field.

I have data like this: It's sorted by the 2nd field (TID). envoy,90000000000000634600010001,04/11/2008,23:19:27,RB00266,0015,DETAIL,ERROR, envoy,90000000000000634600010001,04/12/2008,04:23:45,RB00266,0015,DETAIL,ERROR,... (1 Reply)
Discussion started by: kinksville
1 Replies

3. UNIX for Dummies Questions & Answers

removing duplicates of a pattern from a file

hey all, I need some help. I have a text file with names in it. My target is that if a particular pattern exists in that file more than once..then i want to rename all the occurences of that pattern by alternate patterns.. for e.g if i have PATTERN occuring 5 times then i want to... (3 Replies)
Discussion started by: ashisharora
3 Replies

4. Shell Programming and Scripting

Removing duplicates from log file?

I have a log file with posts looking like this: -- Messages can be delivered by different systems at different times. The id number is used to sort out duplicate messages. What I need is to strip the arrival time from each post, sort posts by id number, and reattach arrival time to respective... (2 Replies)
Discussion started by: Ilja
2 Replies

5. Shell Programming and Scripting

Removing Duplicates from file

Hi Experts, Please check the following new requirement. I got data like the following in a file. FILE_HEADER 01cbbfde7898410| 3477945| home| 1 01cbc275d2c122| 3478234| WORK| 1 01cbbe4362743da| 3496386| Rich Spare| 1 01cbc275d2c122| 3478234| WORK| 1 This is pipe separated file with... (3 Replies)
Discussion started by: tinufarid
3 Replies

6. Shell Programming and Scripting

formatting a file and removing duplicates

Hi, I have a file that I want to change the format of. It is a large file in rows but I want it to be comma separated (comma then a space). The current file looks like this: HI, Joe, Bob, Jack, Jack After I would want to remove any duplicates so it would look like this: HI, Joe,... (2 Replies)
Discussion started by: kylle345
2 Replies

7. UNIX for Dummies Questions & Answers

Removing duplicates from a file

Hi All, I am merging files coming from 2 different systems ,while doing that I am getting duplicates entries in the merged file I,01,000131,764,2,4.00 I,01,000131,765,2,4.00 I,01,000131,772,2,4.00 I,01,000131,773,2,4.00 I,01,000168,762,2,2.00 I,01,000168,763,2,2.00... (5 Replies)
Discussion started by: Sri3001
5 Replies

8. Shell Programming and Scripting

Removing duplicates from new file

i hav two files like i want to remove/delete all the duplicate lines in file2 which are viz unix,unix2,unix3 (2 Replies)
Discussion started by: sagar_1986
2 Replies

9. Shell Programming and Scripting

Removing duplicates from new file

i hav two files like i want to remove/delete all the duplicate lines in file2 which are viz unix,unix2,unix3.I have tried previous post also,but in that complete line must be similar.In this case i have to verify first column only regardless what is the content in succeeding columns. (3 Replies)
Discussion started by: sagar_1986
3 Replies

10. Shell Programming and Scripting

Removing duplicates on a single "column" (delimited file)

Hello ! I'm quite new to linux but haven't found a script to do this task, unfortunately my knowledge is quite limited on shellscripts... Could you guys help me removing the duplicate lines of a file, based only on a single "column"? For example: M202034357;01/2008;J30RJ021;Ciclo 01... (4 Replies)
Discussion started by: Rufinofr
4 Replies

LEARN ABOUT DEBIAN

pmload

PMLOAD(1p)						User Contributed Perl Documentation						PMLOAD(1p)

NAME

       pmload - show what files a given module loads at compile time

DESCRIPTION

       Given an argument of a module name, show all the files that are loaded directly or indirectly when the module is used at compile-time.

EXAMPLES

	   $ pmload IO::Handle
	   /usr/local/devperl/lib/5.00554/Exporter.pm
	   /usr/local/devperl/lib/5.00554/Carp.pm
	   /usr/local/devperl/lib/5.00554/strict.pm
	   /usr/local/devperl/lib/5.00554/vars.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/DynaLoader.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO/Handle.pm
	   /usr/local/devperl/lib/5.00554/Symbol.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO/File.pm
	   /usr/local/devperl/lib/5.00554/SelectSaver.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/Fcntl.pm
	   /usr/local/devperl/lib/5.00554/AutoLoader.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO/Seekable.pm

	   $ cat `pmload IO::Socket` | wc -l
	      4015

	   $ oldperl -S pmload Tk
	   /usr/lib/perl5/site_perl/Tk/Pretty.pm
	   /usr/lib/perl5/Symbol.pm
	   /usr/lib/perl5/site_perl/Tk/Frame.pm
	   /usr/lib/perl5/site_perl/Tk/Toplevel.pm
	   /usr/lib/perl5/strict.pm
	   /usr/lib/perl5/Exporter.pm
	   /usr/lib/perl5/vars.pm
	   /usr/lib/perl5/site_perl/auto/Tk/Wm/autosplit.ix
	   /usr/lib/perl5/site_perl/auto/Tk/Widget/autosplit.ix
	   /usr/lib/perl5/site_perl/Tk.pm
	   /usr/lib/perl5/i386-linux/5.00404/DynaLoader.pm
	   /usr/lib/perl5/site_perl/auto/Tk/Frame/autosplit.ix
	   /usr/lib/perl5/site_perl/auto/Tk/Toplevel/autosplit.ix
	   /usr/lib/perl5/Carp.pm
	   /usr/lib/perl5/site_perl/auto/Tk/autosplit.ix
	   /usr/lib/perl5/site_perl/Tk/CmdLine.pm
	   /usr/lib/perl5/site_perl/Tk/MainWindow.pm
	   /usr/lib/perl5/site_perl/Tk/Submethods.pm
	   /usr/lib/perl5/site_perl/Tk/Configure.pm
	   /usr/lib/perl5/AutoLoader.pm
	   /usr/lib/perl5/site_perl/Tk/Derived.pm
	   /usr/lib/perl5/site_perl/Tk/Image.pm
	   /usr/lib/perl5/site_perl/Tk/Wm.pm
	   /usr/lib/perl5/site_perl/Tk/Widget.pm

NOTE

       If the programmers used a delayed "require", those files won't show up.	Furthermore, this doesn't show all possible files that get opened,
       just those that those up in %INC.  Most systems have a way to trace system calls.  You can use this to find the real answer.  First, get a
       baseline with no modules loaded.

	   $ strace perl -e 1 2>&1 | perl -nle '/^open("(.*?)".* = [^-]/ && print $1'
	   /etc/ld.so.cache
	   /lib/libnsl.so.1
	   /lib/libdb.so.2
	   /lib/libdl.so.2
	   /lib/libm.so.6
	   /lib/libc.so.6
	   /lib/libcrypt.so.1
	   /dev/null

	   $ strace perl -e 1 2>&1 | grep -c '^open.*= [^-]'
	   8

       Now add module loads and see what you get:

	   $ strace perl -MIO::Socket -e 1 2>&1 | grep -c '^open.*= [^-]'
	   24

	   $ strace perl -MTk -e 1 2>&1 | grep -c '^open.*= [^-]'
	   35

SEE ALSO

       Devel::Loaded, plxload(1).

AUTHORS and COPYRIGHTS
       Copyright (C) 1999 Tom Christiansen.

       Copyright (C) 2006-2008 Mark Leighton Fisher.

       This is free software; you can redistribute it and/or modify it under the terms of either: (a) the GNU General Public License as published
       by the Free Software Foundation; either version 1, or (at your option) any later version, or (b) the Perl "Artistic License".  (This is the
       Perl 5 licensing scheme.)

       Please note this is a change from the original pmtools-1.00 (still available on CPAN), as pmtools-1.00 were licensed only under the Perl
       "Artistic License".

perl v5.10.1							    2010-02-22								PMLOAD(1p)
All times are GMT -4. The time now is 09:10 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy