Perl Data Structure

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

04-08-2010

Registered User

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 ?

dinjo_jo

View Public Profile for dinjo_jo

Find all posts by dinjo_jo

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

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. 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...

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.

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' => ...

6. Shell Programming and Scripting

Hi All, I want to create a data structure like this $VAR1 = { 'testsuite' => { 'DHCP' => { 'failures' => '0', 'errors' => '0', 'time' =>...

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...

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', ...

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 ...

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) ...

LEARN ABOUT DEBIAN

audio::wma

WMA(3pm)						User Contributed Perl Documentation						  WMA(3pm)

NAME

       Audio::WMA - Perl extension for reading WMA/ASF Metadata

SYNOPSIS

	   use Audio::WMA;

	   my $wma  = Audio::WMA->new($file);

	   my $info = $wma->info();

	   foreach (keys %$info) {
	     print "$_: $info->{$_}
";
	   }

	   my $tags = $wma->tags();

	   foreach (keys %$tags) {
	     print "$_: $tags->{$_}
";
	   }

DESCRIPTION

       This module implements access to metadata contained in WMA files.

METHODS

       o   new( $file )

	   Create a new Audio::WMA instance from the data in $file

       o   info( )

	   Get the audio data information in the form of a hash ref.

       o   tags( )

	   Get the metadata / tag information in the form of a hash ref.

       o   stream( )

	   Get the current ASF stream.

       o   parseObject( $asf )

	   Parse a standalone ASF object.

       o   setDebug( 0 | 1 )

	   Toggle debugging.

       o   setConvertTagsToUTF8( 0 | 1 )

	   Toggle Encoding metadata tags as UTF-8

	   Toggle debugging.

SEE ALSO

       Audio::FLAC::Header, <http://getid3.sf.net/>

       http://github.com/dsully/perl-audio/tree/master/Audio-WMA

AUTHOR

       Dan Sully, <daniel | at | cpan.org>

COPYRIGHT AND LICENSE

       Copyright 2003-2008 by Dan Sully & Logitech.

       This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.10.0							    2008-11-29								  WMA(3pm)