Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl: How to delete an entry from hash of lists?
Top Forums Shell Programming and Scripting Perl: How to delete an entry from hash of lists? Post 302570248 by radoulov on Wednesday 2nd of November 2011 06:10:11 PM
Old 11-02-2011
Code:
% perl -MData::Dumper -le'
  %lists = (
       "111" => [ "01", "10" ],
       "222" => [ "20", "10", "12" ],
       "333" => [ "33" ],
     );

print "before:\n";

print Dumper \%lists;

splice @{$lists{222}}, 1, 1;

print "after:\n";

print Dumper \%lists;
'
before:

$VAR1 = {
          '333' => [
                     '33'
                   ],
          '111' => [
                     '01',
                     '10'
                   ],
          '222' => [
                     '20',
                     '10',
                     '12'
                   ]
        };

after:

$VAR1 = {
          '333' => [
                     '33'
                   ],
          '111' => [
                     '01',
                     '10'
                   ],
          '222' => [
                     '20',
                     '12'
                   ]
        };

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

delete entry from /etc/hosts file ?

Hi there I have a requirement where i have to globally remove a hosts file entry from all boxes e.g. 10.01.10.1 my_server1 normally for 'in-line' editing of files without passing it out to another fle and copying it back etc which is messy, Ive been using the fantastic "perl -pi... (1 Reply)
Discussion started by: hcclnoodles
1 Replies

2. UNIX for Dummies Questions & Answers

Compare these two lines and delete the old entry

I have a unique situation here which looks easier at first but I am not able to solve it. # SSort UNIX 10/14/2005 10/13/2010 "tox" "9000/800" 16 * * * V849-6-1 # SSort UNIX 11/31/1996 11/02/2010 "tox" "9000/800" 16 * * * W237-S-2 I have a text file with two or multiple values like this and... (1 Reply)
Discussion started by: pareshan
1 Replies

3. Shell Programming and Scripting

Need to delete duplicate lease entry

Hi *, I need to delete duplicate lease entries in file according to MAC/IP. I'm having tempfile which contains many lease info and need to have one entry for each IP(not more than that), if it contains more than one entry for same set, need to be deleted that entry... EX: lease... (4 Replies)
Discussion started by: SMNK
4 Replies

4. Shell Programming and Scripting

Perl Hash:Can not keep hash data in the same order that it was inserted

Can Someone explain me why even using Tie::IxHash I can not get the output data in the same order that it was inserted? See code below. #!/usr/bin/perl use warnings; use Tie::IxHash; use strict; tie (my %programs, "Tie::IxHash"); while (my $line = <DATA>) { chomp $line; my(... (1 Reply)
Discussion started by: jgfcoimbra
1 Replies

5. Shell Programming and Scripting

perl hash - using a range as a hash key.

Hi, In Perl, is it possible to use a range of numbers with '..' as a key in a hash? Something in like: %hash = ( '768..1536' => '1G', '1537..2560' => '2G' ); That is, the range operation is evaluated, and all members of the range are... (3 Replies)
Discussion started by: dsw
3 Replies

6. UNIX for Dummies Questions & Answers

Not able to delete this file/directory/entry

Hello UNIX gurus, I noticed this file or whatever in one of our directories, and somehow I am not able to proceed with my work, without deleting this one. .insert--- 1 siebload intrface 0 Feb 22 01:25 Testfile I am confused, as it doesnt appear to be a file, and on doing any... (2 Replies)
Discussion started by: ppathak1234
2 Replies

7. Shell Programming and Scripting

Compare two lists with perl

Hi everybody! I'm trying to delete some elements from a list with two elements on each row agreeing with the elements in another list. Pratically I want a perl script able to take each element of the second list (that is a single column list), compare it with both elements of each row from the... (3 Replies)
Discussion started by: gabrysfe
3 Replies

8. Shell Programming and Scripting

Compare values of hashes of hash for n number of hash in perl without sorting.

Hi, I have an hashes of hash, where hash is dynamic, it can be n number of hash. i need to compare data_count values of all . my %result ( $abc => { 'data_count' => '10', 'ID' => 'ABC122', } $def => { 'data_count' => '20', 'ID' => 'defASe', ... (1 Reply)
Discussion started by: asak
1 Replies

9. Programming

Perl: restrict perl from automaticaly creating a hash branches on check

My issue is that the perl script (as I have done it so far) created empty branches when I try to check some branches on existence. I am using multydimentional hashes: found it as the best way for information that I need to handle. Saing multidimentional I means hash of hashes ... So, I have ... (2 Replies)
Discussion started by: alex_5161
2 Replies

10. How to Post in the The UNIX and Linux Forums

Help me, write a bash script to delete parent entry with all their child entry in LDAP UNIX server

Hi All, Please help me and guide me to write a bash/shell script on Linux box to delete parent entry with all their child entries. example: Parent is : ---------- dn: email=yogesh.kumar@wipro.com, o=wipro, o=in child is: ---------- dn: cn: yogesh kumar, email=yogesh.kumar@wipro.com,... (1 Reply)
Discussion started by: Chand
1 Replies

LEARN ABOUT DEBIAN

marc::charset::code

MARC::Charset::Code(3pm)				User Contributed Perl Documentation				  MARC::Charset::Code(3pm)

NAME

       MARC::Charset::Code - represents a MARC-8/UTF-8 mapping

SYNOPSIS

DESCRIPTION

       Each mapping from a MARC-8 value to a UTF-8 value is represented by a MARC::Charset::Code object in a MARC::Charset::Table.

METHODS

   new()
       The constructor.

   name()
       A descriptive name for the code point.

   marc()
       A string representing the MARC-8 bytes codes.

   ucs()
       A string representing the UCS code point in hex.

   charset_code()
       The MARC-8 character set code.

   is_combining()
       Returns true/false to tell if the character is a combining character.

   to_string()
       A stringified version of the object suitable for pretty printing.

   char_value()
       Returns the unicode character. Essentially just a helper around ucs().

   marc_value()
       The string representing the MARC-8 encoding.

   charset_name()
       Returns the name of the character set, instead of the code.

   to_string()
       Returns a stringified version of the object.

   marc8_hash_code()
       Returns a hash code for this Code object for looking up the object using MARC8. First portion is the character set code and the second is
       the MARC-8 value.

   utf8_hash_code()
       Returns a hash code for uniquely identifying a Code by it's UCS value.

   default_charset_group
       Returns 'G0' or 'G1' indicating where the character is typicalling used in the MARC-8 environment.

   get_marc8_escape
       Returns an escape sequence to move to the Code from another marc-8 character set.

   charset_value
       Returns the charset value, not the hex sequence.

perl v5.12.4							    2010-03-29						  MARC::Charset::Code(3pm)
All times are GMT -4. The time now is 12:35 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy