Sponsored Content
Full Discussion: problem with counter
Top Forums Shell Programming and Scripting problem with counter Post 302645441 by birei on Wednesday 23rd of May 2012 11:38:11 AM
Old 05-23-2012
Hi sagar_1986,

One way using perl:
Code:
$ cat infile
xxxxxxxxxxxxxxx1234
xxxxxxxxxxxxxxx1236
xxxxxxxxxxxxxxx1237
xxxxxxxxxxxxxxx1239
$ cat script.pl
use strict;
use warnings;

my (@nums, @missed_nums);

while ( <> ) {
        chomp;
        push @nums, substr $_, -4;
}

my ($i, $j);
for ( ($i,$j) = ( (shift @nums) + 1, pop @nums); $i < $j; $i++ ) {
        if ( @nums && $nums[0] == $i ) {
                shift @nums;
                next;
        }

        push @missed_nums, $i;
}

printf qq[%s\n], join q[.], @missed_nums;
$ perl script.pl infile
1235.1238

 

9 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

counter / increment problem within echo stmt

Simple script trying to increment a counter within an echo statement never gets past 1 - PLEASE HELP! Thanks. ~~~~~~~~~~~ #!/bin/sh stepup() { STEP=`expr $STEP + 1` echo $STEP } # # Initialize variables # STEP=0 echo "Counter Value: `stepup`" echo "Counter Value:... (2 Replies)
Discussion started by: blaze
2 Replies

2. Shell Programming and Scripting

counter problem

Hi, I'm attempting to take the following input list and create an output file as shown below. I've monkeyed around for long enough. Can anyone help? NOTE: fs*** will be header and I want to get a count on NY**. fs200a NY7A fs200b NY7B NY7B NY7B fs200c NY7C NY7C NY7C NY7C... (2 Replies)
Discussion started by: jwholey
2 Replies

3. Shell Programming and Scripting

Problem assigning a counter for particular pattern

Hi, I have a script that compares two files(which are updated dynamically by a daemon) and evaluate results from the comparision. For the first line of comparision from the file1, i will grep some part of the line in file with file1 and set a counter for that particular comparison. So for each... (12 Replies)
Discussion started by: reddybs
12 Replies

4. Shell Programming and Scripting

counter

Hi, I need some help. Shell script counter. i need to add condition to check if counter is more than 10 and longer than 3 hours? it runs every 5 mins. it only check count and send email right now. it runs in cron as below gregcount.ksh gregdb 10 > /tmp/gregcount.out 2> /tmp/gregcount.err ... (1 Reply)
Discussion started by: pega
1 Replies

5. Shell Programming and Scripting

grep and counter

Hi, I have such an example(ksh): name1=Example directory=/directory1/Example/directory2 match=$(grep -s '$name1' $directory | wc -l) echo $match But it replies to me: 0 What I expect from it, is to find $name1 in $directory and produce 1 for me as true, not false. (3 Replies)
Discussion started by: chish
3 Replies

6. Shell Programming and Scripting

AWK counter problem

Hi I have a file like below ############################################ # ParentFolder Flag SubFolders Colateral 1 Source1/Checksum CVA 1 Source1/Checksum Flexing 1 VaR/Checksum Flexing 1 SVaR/Checksum FX 1 ... (5 Replies)
Discussion started by: manas_ranjan
5 Replies

7. Shell Programming and Scripting

List Counter

cat sport_by_month Month : Jan sport :Football sport :Volleyball Month: Feb sport :BasketBall sport: Cricket sport: Fotball Month: Mar Month: APR sport : Bowling sport : Climbing I need your help to have a script that count the number of sports per month and sorted by mont with... (7 Replies)
Discussion started by: Sara_84
7 Replies

8. Shell Programming and Scripting

Counter

if ;then echo "mrnet greater 5000" gzip /var/log/mrnet.log mv /var/log/mrnet.log.gz /var/log/mrnet.log.1.gz if ];then i=1 let i++ mv /var/log/mrnet.log.1.gz /var/log/vieux-logs/mrnet.log.$i.gz else echo "theres no... (1 Reply)
Discussion started by: Froob
1 Replies

9. Shell Programming and Scripting

Record counter

For the following code SEQ=200 awk -v S="$SEQ" ' $0 ~ S { N++ print N } ' "$1"ascii >"$1"search N is printed 8002 times as it occurred 8002 times in file how I could print the counter one time only (20 Replies)
Discussion started by: khaled79
20 Replies
IO::Async::Routine(3pm) 				User Contributed Perl Documentation				   IO::Async::Routine(3pm)

NAME
"IO::Async::Routine" - execute code in an independent sub-process SYNOPSIS
use IO::Async::Routine; use IO::Async::Channel; use IO::Async::Loop; my $loop = IO::Async::Loop->new; my $nums_ch = IO::Async::Channel->new; my $ret_ch = IO::Async::Channel->new; my $routine = IO::Async::Routine->new( channels_in => [ $nums_ch ], channels_out => [ $ret_ch ], code => sub { my @nums = @{ $nums_ch->recv }; my $ret = 0; $ret += $_ for @nums; # Can only send references $ret_ch->send( $ret ); }, on_finish => sub { say "The routine aborted early - $_[-1]"; $loop->stop; }, ); $loop->add( $routine ); $nums_ch->send( [ 10, 20, 30 ] ); $ret_ch->recv( on_recv => sub { my ( $ch, $totalref ) = @_; say "The total of 10, 20, 30 is: $$totalref"; $loop->stop; } ); $loop->run; DESCRIPTION
This subclass of IO::Async::Process contains a body of code and executes it in a sub-process, allowing it to act independently of the main program. Once set up, all communication with the code happens by values passed into or out of the Routine via IO::Async::Channel objects. Because the code running inside the Routine runs within its own process, it is isolated from the rest of the program, in terms of memory, CPU time, and other resources, and perhaps most importantly in terms of control flow. The code contained within the Routine is free to make blocking calls without stalling the rest of the program. This makes it useful for using existing code which has no option not to block within an "IO::Async"-based program. To create asynchronous wrappers of functions that return a value based only on their arguments, and do not generally maintain state within the process it may be more convenient to use an IO::Async::Function instead, which uses an "IO::Async::Routine" to contain the body of the function and manages the Channels itself. PARAMETERS
The following named parameters may be passed to "new" or "configure": channels_in => ARRAY of IO::Async::Channel ARRAY reference of "IO::Async::Channel" objects to set up for passing values in to the Routine. channels_out => ARRAY of IO::Async::Channel ARRAY reference of "IO::Async::Channel" objects to set up for passing values out of the Routine. code => CODE CODE reference to the body of the Routine, to execute once the channels are set up. METHODS
This class provides no additional methods, other than those provided by IO::Async::Process. AUTHOR
Paul Evans <leonerd@leonerd.org.uk> perl v5.14.2 2012-10-24 IO::Async::Routine(3pm)
All times are GMT -4. The time now is 01:01 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy