Sponsored Content
Top Forums Programming Finding items that occur more than once in a vector Post 302521171 by Corona688 on Tuesday 10th of May 2011 12:02:44 PM
Old 05-10-2011
Quote:
Originally Posted by Loic Domaigne
I guess, my previous example shows how to do it:
- it creates an empty map
- it fills the map step by step as the number are entered (until a negative number is given for stop).
- for the entered element, it adds 1 to the count.

Or am I missing something?
I don't think you're missing anything. A map lets you just use the element like a vector and will add it as zero if missing, or just update it if already present.

You have to use iterators to check what's inside it however, because the mere act of checking if m[element] will also create that element as a zero!
 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Why SIGKILL will occur?

Hi Gurus, I am executing my Datastage jobs on UNIX operating System. While running the jobs i am getting the following error: main_program: Unexpected termination by Unix signal 9(SIGKILL) Can any one please let me know what are the possible situations where this SIGKILL will arrise? ... (9 Replies)
Discussion started by: choppas
9 Replies

2. Shell Programming and Scripting

how many times a word occur in afile

i want a shell script program for how many times a word occur in a file. i need not the line number but i want the counts of the particular word for eg:- hai how r u.. i am from andhra pradesh.. i am from tenali.i need this answer.i need it urgently.. i hope u will answer this ... ... (9 Replies)
Discussion started by: madhu.it
9 Replies

3. Shell Programming and Scripting

awk between items including items

OS=HP-UX ksh The following works, except I want to include the <start> and <end> in the output. awk -F '<start>' 'BEGIN{RS="<end>"; OFS="\n"; ORS=""} {print $2} somefile.log' The following work in bash but not in ksh sed -n '/^<start>/,/^<end>/{/LABEL$/!p}' somefile.log (4 Replies)
Discussion started by: Ikon
4 Replies

4. Shell Programming and Scripting

finding missing items in file

I have a need to compare 2 files, then print results to file. Need to find items from file2 that are not found in file 1. thanks in advance! example: file 1: abcde=12 fffff=6 bbbb=35 file2: abcde=12 fffff=6 bbbb=35 ccccc=10 kkkkk=45 (8 Replies)
Discussion started by: discostu
8 Replies

5. Shell Programming and Scripting

To find number of char occur

To find out number of "|" symbol is available in file: Input: a|b|c|d|z Ouput: 4 I am using below set of commands,It is working... Anybody have anyother solution using sed / awk. cnt=`wc -c <1.txt` cnt1=`tr -d "|" <1.txt >c.dat` cnt2=`wc -c <c.dat` outp=`expr $cnt... (19 Replies)
Discussion started by: Jairaj
19 Replies

6. UNIX for Dummies Questions & Answers

C shell loop problem occur

Hi all, i create 2 file Config path1 5 group1 path2 6 group2 path3 10 group1 path4 15 group2 Confine group1 andrew group2 alan In my C shell script i write like this: set line_array = (`cat $app_dir/config`) set line_array_2 =... (0 Replies)
Discussion started by: proghack
0 Replies

7. Shell Programming and Scripting

Print lines where variables occur more than once using grep

Hello, I want to only print lines where variables occur more than once using grep. For eg: Input: $this is a comment int a,b,c,b; int b,c; int d,e; int f,g,f; x=y+5; For the above input, the output would be int a,b,c,b; int f,g,f; I have done grep... (3 Replies)
Discussion started by: prasanna1157
3 Replies

8. Shell Programming and Scripting

Help with Perl script that can check a URL and notifiy when changes occur

I'm a scripting newbie and I'm trying to learn. No better way than being assigned a project. So basically, I'm trying to come up with a script that can periodically check a URL and then notify when changes occur to the file. So what I'm thinking is that I need to devise a PERL script that... (3 Replies)
Discussion started by: adam1mc
3 Replies

9. Cybersecurity

Where does Ciphering & Encryption occur?

Hello everyone. Upon reading the recent news about the NSA paying RSA to use a faulty cipher suite for it's default, it got me thinking... During a connection say for SSL, what is it that "knows" the rules for ciphers? Are these rules stored on the NIC? can they be edited, changed or appended? ... (3 Replies)
Discussion started by: Lost in Cyberia
3 Replies
Mojo::Collection(3pm)					User Contributed Perl Documentation				     Mojo::Collection(3pm)

NAME
Mojo::Collection - Collection SYNOPSIS
# Manipulate collections use Mojo::Collection; my $collection = Mojo::Collection->new(qw(just works)); unshift @$collection, 'it'; $collection->map(sub { ucfirst })->each(sub { my ($word, $count) = @_; say "$count: $word"; }); # Use the alternative constructor use Mojo::Collection 'c'; c(qw(a b c))->join('/')->url_escape->say; DESCRIPTION
Mojo::Collection is a container for collections. FUNCTIONS
Mojo::Collection implements the following functions. "c" my $collection = c(1, 2, 3); Construct a new Mojo::Collection object. METHODS
Mojo::Collection implements the following methods. "new" my $collection = Mojo::Collection->new(1, 2, 3); Construct a new Mojo::Collection object. "each" my @elements = $collection->each; $collection = $collection->each(sub {...}); Evaluate closure for each element in collection. $collection->each(sub { my ($e, $count) = @_; say "$count: $e"; }); "first" my $first = $collection->first; my $first = $collection->first(sub {...}); Evaluate closure for each element in collection and return the first one for which the closure returns true. my $five = $collection->first(sub { $_ == 5 }); "grep" my $new = $collection->grep(sub {...}); Evaluate closure for each element in collection and create a new collection with all elements for which the closure returned true. my $interesting = $collection->grep(sub { /mojo/i }); "join" my $stream = $collection->join(" "); Turn collection into Mojo::ByteStream. $collection->join(" ")->say; "map" my $new = $collection->map(sub {...}); Evaluate closure for each element in collection and create a new collection from the results. my $doubled = $collection->map(sub { $_ * 2 }); "reverse" my $new = $collection->reverse; Create a new collection with all elements in reverse order. "slice" my $new = $collection->slice(4 .. 7); Create a new collection with all selected elements. "shuffle" my $new = $collection->shuffle; Create a new collection with all elements in random order. "size" my $size = $collection->size; Number of elements in collection. "sort" my $new = $collection->sort; my $new = $collection->sort(sub {...}); Sort elements based on return value of closure and create a new collection from the results. my $insensitive = $collection->sort(sub { uc(shift) cmp uc(shift) }); SEE ALSO
Mojolicious, Mojolicious::Guides, <http://mojolicio.us>. perl v5.14.2 2012-09-05 Mojo::Collection(3pm)
All times are GMT -4. The time now is 04:11 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy