Help in modifying a PERL script to sort Singletons and Duplicates Post: 302948884

Sponsored Content

Top Forums Shell Programming and Scripting Help in modifying a PERL script to sort Singletons and Duplicates Post 302948884 by Corona688 on Friday 3rd of July 2015 12:55:29 PM

07-03-2015

Registered User

It doesn't perform very well because you're keeping 100,000 things in one string and using regular expressions to find them. This is never going to be efficient -- you're scanning through all 100,000 things every time you add a single one.

Use a hash to organize it into several smaller things instead of one big thing of 100,000 and avoid needing regexes to find them.

Code:

#!/usr/bin/perl

my %hg=(), $n;
my @s=();

do {
        my ($a, $b, $c)=split(/[=\n]/,<STDIN>);

        if(!defined($hg{$a})) { $hg{$a}="";     }

        # Append string to hash{a}
        $hg{$a}=$hg{$a} . " " . $b;
} until eof;

foreach my $a (keys %hg) {
        my @l=split(/ /, $hg{$a});

        # save singletons for later
        if($#l == 1) {  push(@s, $a);   }
        else    {
                for($n=1; $n<=$#l; $n++)
                {
                        printf("%s=%s\n", $a, $l[$n]);
                }
        }
}

print "SINGLETONS\n";

for($n=1; $n <= $#s; $n++)
{
        printf("%s=%s\n", $s[$n], $hg{$s[$n]});
}

This User Gave Thanks to Corona688 For This Post:

Corona688

View Public Profile for Corona688

Visit Corona688's homepage!

Find all posts by Corona688

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Removing duplicates [sort , uniq]

Hey Guys, I have file which looks like this, Contig201#numbPA Contig1452#nmdynD6PA dm022p15.r#CG6461PA dm005e16.f#SpatPA IGU001_0015_A06.f#CG17593PA I need to remove duplicates based on the chracter matching upto '#'. for example if we consider this.. Contig201#numbPA...

2. Shell Programming and Scripting

Sort, Uniq, Duplicates

Input File is : ------------- 25060008,0040,03, 25136437,0030,03, 25069457,0040,02, 80303438,0014,03,1st 80321837,0009,03,1st 80321977,0009,03,1st 80341345,0007,03,1st 84176527,0047,03,1st 84176527,0047,03, 20000735,0018,03,1st 25060008,0040,03, I am using the following in the script...

3. UNIX for Dummies Questions & Answers

removing duplicates and sort -k

Hello experts, I am trying to remove all lines in a csv file where the 2nd columns is a duplicate. I am try to use sort with the key parameter sort -u -k 2,2 File.csv > Output.csv File.csv File Name|Document Name|Document Title|Organization Word Doc 1.doc|Word Document|Sample...

4. Shell Programming and Scripting

modifying perl script

Hi freinds I have a small problem I want u to help me in, I have a syslog server and configured it to send me email automatically, I get a small perl script to help me in, and tested it to send alerts to root and it worked successfully without any problems Now I want to send it outside, I...

5. Shell Programming and Scripting

need Shell script for Sort BASED ON FIRST FIELD and PRINT THE WHOLE FILE WITHOUT DUPLICATES

Can some one provide me a shell script. I have file with many columns and many rows. need to sort the first column and then remove the duplicates records if exists.. finally print the full data with first coulm as unique. Sort BASED ON FIRST FIELD and remove the duplicates if exists...

6. Shell Programming and Scripting

remove duplicates and sort

Hi, I'm using the below command to sort and remove duplicates in a file. But, i need to make this applied to the same file instead of directing it to another. Thanks

7. Shell Programming and Scripting

Help in modifying existing Perl Script to produce report of dupes

Hello, I have a large amount of data with the following structure: Word=Transliterated word I have written a Perl Script (reproduced below) which goes through the full file and identifies all dupes on the right hand side. It creates successfully a new file with two headers: Singletons and Dupes....

8. Shell Programming and Scripting

Bash - remove duplicates without sort

I need to use bash to remove duplicates without using sort first. I can not use: cat file | sort | uniq But when I use only cat file | uniq some duplicates are not removed.

9. Shell Programming and Scripting

Sort and Remove duplicates

Here is my task : I need to sort two input files and remove duplicates in the output files : Sort by 13 characters from 97 Ascending Sort by 1 characters from 96 Ascending If duplicates are found retain the first value in the file the input files are variable length, convert...

10. Shell Programming and Scripting

Concatenate and sort to remove duplicates

Following is the input. 1st and 3rd block are same(block starts here with '*' and ends before blank line) , 2nd and 4th blocks are also the same: cat <file> * Wed Feb 24 2016 Tariq Saeed <tariq.x.saeed@mail.com> 2.0.7-1.0.7 - add vmcore dump support for ocfs2 * Mon Jun 8 2015 Brian Maly...

LEARN ABOUT OSX

ualarm

UALARM(3)						   BSD Library Functions Manual 						 UALARM(3)

NAME

     ualarm -- schedule signal after specified time

LIBRARY

     Standard C Library (libc, -lc)

SYNOPSIS

     #include <unistd.h>

     useconds_t
     ualarm(useconds_t useconds, useconds_t interval);

DESCRIPTION

     This is a simplified interface to setitimer(2).

     The ualarm() function waits a count of useconds before asserting the terminating signal SIGALRM.  System activity or time used in processing
     the call may cause a slight delay.

     If the interval argument is non-zero, the SIGALRM signal will be sent to the process every interval microseconds after the timer expires
     (e.g., after useconds number of microseconds have passed).

     Due to a setitimer(2) restriction, the maximum number of useconds and interval is limited to 100,000,000,000,000 (in case this value fits in
     the unsigned integer).

RETURN VALUES

     When the signal has successfully been caught, ualarm() returns the amount of time left on the clock.

NOTES

     A microsecond is 0.000001 seconds.

SEE ALSO

     getitimer(2), setitimer(2), sigpause(2), sigvec(2), alarm(3), signal(3), sleep(3), usleep(3)

HISTORY

     The ualarm() function appeared in 4.3BSD.

BSD
								  April 19, 1994							       BSD

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Removing duplicates [sort , uniq]

Discussion started by: sharatz83

2. Shell Programming and Scripting

Sort, Uniq, Duplicates

Discussion started by: Amruta Pitkar

3. UNIX for Dummies Questions & Answers

removing duplicates and sort -k

Discussion started by: orahi001

4. Shell Programming and Scripting

modifying perl script

Discussion started by: reaky