find the missing sequence in hash perl Post: 302580695

Login or Register to Ask a Question and Join Our Community

Sponsored Content

Top Forums Programming find the missing sequence in hash perl Post 302580695 by otheus on Friday 9th of December 2011 09:57:34 AM

Old

12-09-2011

Registered User

Code:

my $start;
my $last;
while (<>) {
if ( /^U-\d+ UNIX (\d+)$/) {
   if (!defined $start) {
        $start = $1;
        $last = $1;
        next;
   }
   elsif (!defined $last || $1 > $last + 1) {
       print "U-${start}&&-${last} UNIX ${start}\n";
       $start = $last = $1;
   }
   else {
       $last = $1;
   }
}
}
print "U-${start}&&-${last} UNIX ${start}\n";

Last edited by otheus; 12-09-2011 at 10:57 AM.. Reason: missed a line

This User Gave Thanks to otheus For This Post:

otheus

View Public Profile for otheus

Find all posts by otheus

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl Hash:Can not keep hash data in the same order that it was inserted

Can Someone explain me why even using Tie::IxHash I can not get the output data in the same order that it was inserted? See code below. #!/usr/bin/perl use warnings; use Tie::IxHash; use strict; tie (my %programs, "Tie::IxHash"); while (my $line = <DATA>) { chomp $line; my(...

2. Shell Programming and Scripting

perl hash - using a range as a hash key.

Hi, In Perl, is it possible to use a range of numbers with '..' as a key in a hash? Something in like: %hash = ( '768..1536' => '1G', '1537..2560' => '2G' ); That is, the range operation is evaluated, and all members of the range are...

3. Shell Programming and Scripting

find: missing argument to `-exec' while redirecting using find in perl

Hi Friends, Please help me to sort out this problem, I am running this in centos o/s and whenever I run this script I am getting "find: missing argument to `-exec' " but when I run the same code in the command line I didn't find any problem. I am using perl script to run this ...

4. Shell Programming and Scripting

Perl : print the sequence number without missing number

Dear Perl users, I need your help to solve my problem below. I want to print the sequence number without missing number within the range. E.g. my sequence number : 1 2 3 4 5 6 7 8 11 12 13 14 my desired output: 1 -8 , 11-14 my code below but still problem with the result: 1 - 14 1 -...

5. Shell Programming and Scripting

find common entries and match the number with long sequence and cut that sequence in output

Hi all, I have a file like this ID 3BP5L_HUMAN Reviewed; 393 AA. AC Q7L8J4; Q96FI5; Q9BQH8; Q9C0E3; DT 05-FEB-2008, integrated into UniProtKB/Swiss-Prot. DT 05-JUL-2004, sequence version 1. DT 05-SEP-2012, entry version 71. FT COILED 59 140 ...

6. Shell Programming and Scripting

Compare values of hashes of hash for n number of hash in perl without sorting.

Hi, I have an hashes of hash, where hash is dynamic, it can be n number of hash. i need to compare data_count values of all . my %result ( $abc => { 'data_count' => '10', 'ID' => 'ABC122', } $def => { 'data_count' => '20', 'ID' => 'defASe', ...

7. Shell Programming and Scripting

How to check missing sequence?

I want to listed files every hours and check the missing sequence my file format is CV.020220131430.txt CV.020220131440.txt CV.020220131450.txt CV.ddmmyyhhm.txt how to check if i have missing files in sequence .. thanks

8. Shell Programming and Scripting

Find missing sequence

Hi, I need to find out the missing sequence from a list. However the issue is there is not a fixed start and end, it depends on the generation of files. For eg, it might start with 4000 and end with 9000. Based on this, I need a script which greps the start and end sequence from the...

9. Shell Programming and Scripting

Find the missing sequence

Dear all i am having file with max 24 entries. i want to find which sequence is missing file is like this df00231587.dat df01231587.dat df03231587.dat df05231587.dat . . . df23231587.dat the changing seq is 00-23,so i would like to find out which seq is missing like in above...

10. Shell Programming and Scripting

How to find a missing file sequence using shell scripting?

Hey guys, I want the below files to be processed with the help of BASH so that i will be able to find the missing file names : PP01674520141228X.gz PP01674620141228X.gz PP01674820141228X.gz PP01674920141228X.gz PP01675420141228X.gz PP01675520141228X.gz PP01676020141228X.gz . . . ....

LEARN ABOUT DEBIAN

net::server::proto::unix

Net::Server::Proto::UNIX(3pm)				User Contributed Perl Documentation			     Net::Server::Proto::UNIX(3pm)

NAME

       Net::Server::Proto::UNIX - Net::Server UNIX protocol.

SYNOPSIS

       See Net::Server::Proto.

DESCRIPTION

       Protocol module for Net::Server.  This module implements the UNIX SOCK_STREAM socket type.  See Net::Server::Proto.

       Any sockets created during startup will be chown'ed to the user and group specified in the starup arguments.

PARAMETERS

       The following paramaters may be specified in addition to normal command line parameters for a Net::Server.  See Net::Server for more
       information on reading arguments.

       unix_type
	   Can be either SOCK_STREAM or SOCK_DGRAM (default is SOCK_STREAM).  This can also be passed on the port line (see Net::Server::Proto).

	   However, this method is deprecated.	If you want SOCK_STREAM - just use proto UNIX without any other arguments.  If you'd like
	   SOCK_DGRAM, use the new proto UNIXDGRAM.

METHODS

       NS_unix_path/NS_unix_type
	   In addition to the standard NS_ methods of Net::Server::Proto classes, the UNIX types also have legacy calls to NS_unix_path and
	   NS_unix_type.

	   Since version 2.000, NS_unix_path is simply an alias to NS_port.  NS_unix_type is now redundant with NS_proto.

	   These methods were missing between version 2.000 and 2.003 but have been returned as legacy bridges.

QUICK PARAMETER LIST

	 Key		   Value		    Default

	 # deprecated UNIX socket parameters
	 unix_type	   (SOCK_STREAM|SOCK_DGRAM) SOCK_STREAM
	 port		   "filename"		    undef

	 # more recent usage
	 port		   "filename / UNIX"
	 port		   "filename / UNIXDGRAM"

LICENCE

       Distributed under the same terms as Net::Server

perl v5.14.2							    2012-06-06					     Net::Server::Proto::UNIX(3pm)