Sponsored Content
Top Forums Shell Programming and Scripting Perl Data Structure - Non unique values Post 302410963 by dinjo_jo on Wednesday 7th of April 2010 11:15:58 PM
Old 04-08-2010
Perl Data Structure - Non unique values

I have the perl data structure and what i need to do is find all values in
@{$extractColumns{'2'}{'D'}} which are not there in @{$extractColumns{'2'}{'M'}} but seems like i need to put a flag somewhere and i messed up

Code:
foreach my $order (keys %extractColumns)
{
        foreach my $value (@{$extractColumns{'2'}{'D'}})
        {
                foreach my $detValue (@{$extractColumns{'2'}{'M'}})
                        {
                                chomp($value);
                                chomp($detValue);
                                if ( $value eq $detValue )
                                {      
                                        print "Found\n";
                                }
                                else
                                {
                                    print "Not Found\n";                             
                                }
                        }
                }
        }



---------- Post updated 04-08-10 at 08:45 AM ---------- Previous update was 04-07-10 at 06:37 PM ----------

Anyone ?
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

to retrieve unique values

Hi all, I have a 10.txt file. In this file 2 words are present by name Active and Inactive and these words are repeated 7000 times. I want to take the unique 2 words from this 7000 lines. Thanks Mahalakshmi.A (3 Replies)
Discussion started by: mahalakshmi
3 Replies

2. Programming

Search attributes in one structure using the values from another structure

Hello Groups I am trying to find out ways of comparing a value from a 'c' structure to a value in another 'C' structure. the 'C' structure can be a List or liked list as it contains lot many records. if we loop it in both the structures it is going to consume time. I am looking for a simple... (3 Replies)
Discussion started by: dhanamurthy
3 Replies

3. Shell Programming and Scripting

Getting Unique values in a file

Hi, I have a file like this: Some_String_Here 123 123 123 321 321 321 3432 3221 557 886 321 321 I would like to find only the unique values in the files and get the following output: Some_String_Here 123 321 3432 3221 557 886 I am trying to get this done using awk. Can someone please... (5 Replies)
Discussion started by: Legend986
5 Replies

4. Shell Programming and Scripting

unique storage structure in ksh

hi all, is there a storage structure in ksh which only allows unique values i.e overwrites duplicates values ?? am using an array to hold server names from a 'find' command but some of the names are repeated. Is there an easy way to remove the duplicates ?? ta. (2 Replies)
Discussion started by: cesarNZ
2 Replies

5. Shell Programming and Scripting

perl-extract data from hash values

Hello, I have parsed an xml file using perl to get the hash values and the output looks like this $VAR1 = { 'RT' => { 'List' => { 'String' => ... (1 Reply)
Discussion started by: userscript
1 Replies

6. Shell Programming and Scripting

perl data structure

Hi All, I want to create a data structure like this $VAR1 = { 'testsuite' => { 'DHCP' => { 'failures' => '0', 'errors' => '0', 'time' =>... (3 Replies)
Discussion started by: Damon_Qu
3 Replies

7. Shell Programming and Scripting

AWK, Perl or Shell? Unique strings and their maximum values from 3 column data file

I have a file containing data like so: 2012-01-02 GREEN 4 2012-01-02 GREEN 6 2012-01-02 GREEN 7 2012-01-02 BLUE 4 2012-01-02 BLUE 3 2012-01-02 GREEN 4 2012-01-02 RED 4 2012-01-02 RED 8 2012-01-02 GREEN 4 2012-01-02 YELLOW 5 2012-01-02 YELLOW 2 I can't always predict what the... (4 Replies)
Discussion started by: rich@ardz
4 Replies

8. Shell Programming and Scripting

Finding unique values in a hash (Perl)

Hi, I have a hash with unique keys associated with some data. my %FINALcontigs = ( 'mira_rep_c765:119reads**', 'ctctactggaagactgac', 'mira_rep_c7454:54reads**', 'atggatactgcgctgttgctaactactgga', 'mira_rep_c6803:12reads**', 'atcgactggatgcagggttgtggtttcta', ... (2 Replies)
Discussion started by: jdilts
2 Replies

9. Programming

Sctp api name to retrieve the values of structure sctpassoctable

Hi i want a sctp (lksctp) api which can retrieve the values of the sctp structure "sctpAssocTable" It is sctpassoctable or sctpassocentry. SctpAssocEntry ::= SEQUENCE { sctpAssocId Unsigned32, sctpAssocRemHostName OCTET STRING, sctpAssocLocalPort ... (1 Reply)
Discussion started by: harioum
1 Replies

10. Shell Programming and Scripting

Perl :: reading values from Data Dumper reference in Perl

Hi all, I have written a perl code and stored the data into Data structure using Data::Dumper module. But not sure how to retreive the data from the Data::Dumper. Eg. Based on the key value( Here CRYPTO-6-IKMP_MODE_FAILURE I should be able to access the internal hash elements(keys) ... (1 Reply)
Discussion started by: scriptscript
1 Replies
Git::SVN::Fetcher(3)					User Contributed Perl Documentation				      Git::SVN::Fetcher(3)

NAME
Git::SVN::Fetcher - tree delta consumer for "git svn fetch" SYNOPSIS
use SVN::Core; use SVN::Ra; use Git::SVN; use Git::SVN::Fetcher; use Git; my $gs = Git::SVN->find_by_url($url); my $ra = SVN::Ra->new(url => $url); my $editor = Git::SVN::Fetcher->new($gs); my $reporter = $ra->do_update($SVN::Core::INVALID_REVNUM, '', 1, $editor); $reporter->set_path('', $old_rev, 0); $reporter->finish_report; my $tree = $gs->tmp_index_do(sub { command_oneline('write-tree') }); foreach my $path (keys %{$editor->{dir_prop}) { my $props = $editor->{dir_prop}{$path}; foreach my $prop (keys %$props) { print "property $prop at $path changed to $props->{$prop} "; } } foreach my $path (keys %{$editor->{empty}) { my $action = $editor->{empty}{$path} ? 'added' : 'removed'; print "empty directory $path $action "; } foreach my $path (keys %{$editor->{file_prop}) { ... } foreach my $parent (keys %{$editor->{absent_dir}}) { my @children = @{$editor->{abstent_dir}{$parent}}; print "cannot fetch directory $parent/$_: not authorized? " foreach @children; } foreach my $parent (keys %{$editor->{absent_file}) { ... } DESCRIPTION
This is a subclass of "SVN::Delta::Editor", which means it implements callbacks to act as a consumer of Subversion tree deltas. This particular implementation of those callbacks is meant to store information about the resulting content which git svn fetch could use to populate new commits and new entries for unhandled.log. More specifically: o Additions, removals, and modifications of files are propagated to git-svn's index file $GIT_DIR/svn/$refname/index using git update- index. o Changes in Subversion path properties are recorded in the "dir_prop" and "file_prop" fields (which are hashes). o Addition and removal of empty directories are indicated by entries with value 1 and 0 respectively in the "empty" hash. o Paths that are present but cannot be conveyed (presumably due to permissions) are recorded in the "absent_file" and "absent_dirs" hashes. For each key, the corresponding value is a list of paths under that directory that were present but could not be conveyed. The interface is unstable. Do not use this module unless you are developing git-svn. DEPENDENCIES
SVN::Delta from the Subversion perl bindings, the core Carp, File::Basename, and IO::File modules, and git's Git helper module. "Git::SVN::Fetcher" has not been tested using callers other than git-svn itself. SEE ALSO
SVN::Delta, Git::SVN::Editor. INCOMPATIBILITIES
None reported. BUGS
None. perl v5.16.3 2013-06-10 Git::SVN::Fetcher(3)
All times are GMT -4. The time now is 04:08 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy