Sponsored Content
Top Forums Shell Programming and Scripting Perl - quick inverse of a number range Post 302540402 by bartus11 on Wednesday 20th of July 2011 01:40:48 PM
Old 07-20-2011
Matching your output:
Code:
perl -e '@x=(10,15,20,30,45,50);printf "0-";for ($i=0;$i<$#x;$i+=2){printf "%d\n%d-",$x[$i]-1,$x[$i+1]+1};printf "60\n"'

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Quick perl question

Hey everyone, I am a newbie with perl, and I just have a quick question that may seem really stupid. Like I said, I'm new, so please bear w/ me :) I'm trying to make a really simple program where there are two inputs. First one is just a string, and the next one is a number. Once the user... (7 Replies)
Discussion started by: jason_v
7 Replies

2. Shell Programming and Scripting

validate number range

Hi If I want to read user input and want to validate if it is a numeric number in some range of 1-100 what would be the best way? Sabina (5 Replies)
Discussion started by: sabina
5 Replies

3. UNIX for Dummies Questions & Answers

Quick question about set number

In my .exrc file I have line numbers turned on but it adds an indent. I don't like this, is there a way to have the line numbers at the left edge of my terminal instead of indented? Here's my .exrc 1 set ignorecase noslowopen report=0 autoindent showmatch showmode nu 2 set... (4 Replies)
Discussion started by: ebadamageplan
4 Replies

4. Shell Programming and Scripting

Number range for SSNs

Hi All. I have a file that has an ID Number field....some of the ID Numbers are actual SSNs. ...does anyone know the range that SSNs may be...this is what I have found so far poking around SSN info sites.... greater than 001-01-0000 and less than 770-00-0000. Does anyone know this to be... (1 Reply)
Discussion started by: lyoncc
1 Replies

5. Shell Programming and Scripting

Closest Number from a Range of Numbers

out of a range of numbers, how can i pick out the number that is the closest to any arbitrary/random number that a user supplies? say the range of numbers are between 1 - 90000. but that doesn't mean each number exist between 1 - 90000. the range of numbers could be for example: 1, 3, 4, 6,... (6 Replies)
Discussion started by: SkySmart
6 Replies

6. Shell Programming and Scripting

how can I detect number series range

Hi I have one source file and content of source file as follows; 3 00 3 01 3 02 3 07 3 09 3 10 3 15 3 16 3 17 3 18 3 40 3 45 3 500 3 501 3 502 3 70 3 80 (8 Replies)
Discussion started by: kocaturk
8 Replies

7. Shell Programming and Scripting

Range of number from 0.1 to 10.0

Is there a way to create a loop that will output number starting from 0.1 to 10.0 0.1 0.2 0.3 0.4 0.5 .. ... 10.0 This is what i tried. for i in {1..50}; do printf -v i '%02d' $i ; echo "$i"; done That will print 01 02 03 .. .. 50 (9 Replies)
Discussion started by: vietrice
9 Replies

8. Shell Programming and Scripting

If statement test against number range [0-9]

Is it possible to test against a varible within a ranges in a if statement. ex. if ];then echo "not in range" else echo "number within range" fi (8 Replies)
Discussion started by: leemalloy
8 Replies

9. UNIX for Dummies Questions & Answers

Using sed to replace a range of number

Trying to use SED to replace numbers that fall into a range but can't seem to get the logic to work and am wondering if SED will do this. I have a file with the following numbers 3 26 20 5. For the numbers that are greater than zero and less than 25, SED would add the word range after the... (7 Replies)
Discussion started by: jimmyf
7 Replies

10. Shell Programming and Scripting

sed one Liner inverse range match-help required

cat test.txt a c d e g (2 Replies)
Discussion started by: TomG
2 Replies
Lite(3) 						User Contributed Perl Documentation						   Lite(3)

NAME
Net::CIDR::Lite - Perl extension for merging IPv4 or IPv6 CIDR addresses SYNOPSIS
use Net::CIDR::Lite; my $cidr = Net::CIDR::Lite->new; $cidr->add($cidr_address); @cidr_list = $cidr->list; @ip_ranges = $cidr->list_range; DESCRIPTION
Faster alternative to Net::CIDR when merging a large number of CIDR address ranges. Works for IPv4 and IPv6 addresses. METHODS
new() $cidr = Net::CIDR::Lite->new $cidr = Net::CIDR::Lite->new(@args) Creates an object to represent a list of CIDR address ranges. No particular format is set yet; once an add method is called with a IPv4 or IPv6 format, only that format may be added for this cidr object. Any arguments supplied are passed to add_any() (see below). add() $cidr->add($cidr_address) Adds a CIDR address range to the list. add_range() $cidr->add_range($ip_range) Adds a hyphenated IP address range to the list. add_cidr() $cidr1->add_cidr($cidr2) Adds address ranges from one object to another object. add_ip() $cidr->add_ip($ip_address) Adds a single IP address to the list. add_any() $cidr->add_any($cidr_or_range_or_address); Determines format of range or single ip address and calls add(), add_range(), add_cidr(), or add_ip() as appropriate. $cidr->clean() $cidr->clean; If you are going to call the list method more than once on the same data, then for optimal performance, you can call this to purge null nodes in overlapping ranges from the list. Boundary nodes in contiguous ranges are automatically purged during add(). Only useful when ranges overlap or when contiguous ranges are added out of order. $cidr->list() @cidr_list = $cidr->list; $list_ref = $cidr->list; Returns a list of the merged CIDR addresses. Returns an array if called in list context, an array reference if not. $cidr->list_range() @cidr_list = $cidr->list_range; $list_ref = $cidr->list_range; Returns a list of the merged addresses, but in hyphenated range format. Returns an array if called in list context, an array reference if not. $cidr->list_short_range() @cidr_list = $cidr->list_short_range; $list_ref = $cidr->list_short_range; Returns a list of the C subnet merged addresses, in short hyphenated range format. Returns an array if called in list context, an array reference if not. Example: 1.1.1.1-2 1.1.1.5-7 1.1.1.254-255 1.1.2.0-2 1.1.3.5 1.1.3.7 $cidr->find() $found = $cidr->find($ip); Returns true if the ip address is found in the CIDR range. False if not. Not extremely efficient, is O(n*log(n)) to sort the ranges in the cidr object O(n) to search through the ranges in the cidr object. The sort is cached on the first call and used in subsequent calls, but if more addresses are added to the cidr object, prep_find() must be called on the cidr object. $cidr->bin_find() Same as find(), but forces a binary search. See also prep_find. $cidr->prep_find() $cidr->prep_find($num); Caches the result of sorting the ip addresses. Implicitly called on the first find call, but must be explicitly called if more addresses are added to the cidr object. find() will do a binary search if the number of ranges is greater than or equal to $num (default 20); $cidr->spanner() $spanner = $cidr1->spanner($label1, $cidr2, $label2, ...); Creates a spanner object to find out if multiple ip addresses are within multiple labeled address ranges. May also be called as (with or without any arguments): Net::CIDR::Lite::Span->new($cidr1, $label1, $cidr2, $label2, ...); $spanner->add() $spanner->add($cidr1, $label1, $cidr2, $label2,...); Adds labeled address ranges to the spanner object. The 'address range' may be a Net::CIDR::Lite object, a single CIDR address range, a single hyphenated IP address range, or a single IP address. $spanner->find() $href = $spanner->find(@ip_addresses); Look up which range(s) ip addresses are in, and return a lookup table of the results, with the keys being the ip addresses, and the value a hash reference of which address ranges the ip address is in. $spanner->bin_find() Same as find(), but forces a binary search. See also prep_find. $spanner->prep_find() $spanner->prep_find($num); Called implicitly the first time $spanner->find(..) is called, must be called again if more cidr objects are added to the spanner object. Will do a binary search if ratio of the number of ip addresses to the number of ranges is less than $num percent (default 4). $spanner->clean() $clean_address = $spanner->clean($ip_address); Validates and returns a cleaned up version of an ip address (which is what you will find as the key in the result from the $spanner->find(..), not necessarily what the original argument looked like). E.g. removes unnecessary leading zeros, removes null blocks from IPv6 addresses, etc. CAVEATS
Garbage in/garbage out. This module does do validation, but maybe not enough to suit your needs. AUTHOR
Douglas Wilson, <dougw@cpan.org> w/numerous hints and ideas borrowed from Tye McQueen. COPYRIGHT
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO
Net::CIDR. perl v5.12.1 2010-03-26 Lite(3)
All times are GMT -4. The time now is 04:16 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy