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 PHP

asadmin-start-appserv

asadmin-start-appserv(1AS)					   User Commands					asadmin-start-appserv(1AS)

NAME

       asadmin-start-appserv, start-appserv - starts thedomains in the specified or default domains directory

SYNOPSIS

       start-appserv [--domaindir install_dir/domains] [--terse=false] [--echo=false]

DESCRIPTION

       This command has been deprecated. Please use start-domain to start the domains in the specified or default domains directory. start-appserv
       starts the domains in the specified or default domains direcotry. If the domains directory is not specified, the  domains  in  the  default
       domains directory are started. The default domains directory is install_dir/domains. This command can only be run locally.

OPTIONS

       --domaindir	       directory where the domains are started. If specified, path must be accessible in the filesystem. If not specified,
			       the domains are started in the default install_dir/domains directory.

       --terse		       indicates that any output data must be very concise, typically avoiding human-friendly sentences and favoring well-
			       formatted data for consumption by a script. Default is false.

       --echo		       setting to true will echo the command line statement on the standard output. Default is false.

EXIT STATUS

       0		       command executed successfully

       1		       error in executing the command

       asadmin-create-domain(1AS), asadmin-start-domain(1AS), asadmin-stop-domain(1AS), asadmin-delete-domain(1AS), asadmin-list-domains(1AS)

J2EE 1.4 SDK							    March 2004						asadmin-start-appserv(1AS)