09-27-2011
@Skrynesaver,
Thanks for the quick reply.
Point taken about the i modifier.
In the example of course it had to be field1 iso Field1.
With "a hash keyed on fieldname" you mean something like this ?
$FieldValue{ 'field2' } = 'value2'
Reading the first line builds the hash and then the next lines fill the hash.
For example 1 I can imagine where this is going, but not for example 2.
Not into keyed hashes and hashed keyed hashes yet :-)
Got some more hints ?
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
i have these values inside variable $blah
BUNGA TERATAI 3 5055 ITH 1 0 0 0 1 1
JADE TRADER 143W ITH 4 0 0 0 4 4
MOL SPLENDOR 0307A ITH 3 0 0 0 3 3
so how do I split them into array with the... (4 Replies)
Discussion started by: finalight
4 Replies
2. Shell Programming and Scripting
Hi all,
I have a file with little blocks beginning with a number 761XXXXXX, and 0, 1, 2 or 3 lines below of it beginning with STUS as follow:
761625820
STUS ACTIVE 16778294
STUS NOT ACTIVE
761157389
STUS ACTIVE 16778294
761554921
STUS ACTIVE 16778294
STUS NOT ACTIVE
STUS ACTIVE OP... (4 Replies)
Discussion started by: cgkmal
4 Replies
3. Shell Programming and Scripting
Dear All,
I want to split single line into two line or three lines wherever “|” separated values comes using
Input line
test,DEMTEMPUT20100404010012,,,,,,,,|0070086|0070087,
output shoule be
test,DEMTEMPUT20100404010012,,,,,,,,0070086,
test,DEMTEMPUT20100404010012,,,,,,,,0070087, (14 Replies)
Discussion started by: arvindng
14 Replies
4. Shell Programming and Scripting
Hi,
I have a file which contains 1000's of lines. Each line is a log which is pretty long. So i want to split the each line based on 3 category.
1> Date
2><REQUEST>
3><RESPONSE>
So below is the example of a line.
2010-11-16 00:45:12,314<REQUEST><VALIDATION-ERROR><soapenv:Envelope... (16 Replies)
Discussion started by: raghunsi
16 Replies
5. Shell Programming and Scripting
im having an array @check which contains text ..i want to open the array and i have to delete lines starting from a word called "check1" till "check2"
for eg:-
check1 Use descriptive titles when posting. For example, do not post questions with subjects like "Help Me!", "Urgent!!" or "Doubt".... (0 Replies)
Discussion started by: rajkrishna89
0 Replies
6. Shell Programming and Scripting
Hi
I have stored a command output in an array like below
@a = `xyz`;
actually xyz comnad will give the output like this
tracker
date
xxxxxxx
xxxxxxx
---------------------
1 a
2 b
----------------------
i have stored the "xyz" output to an... (3 Replies)
Discussion started by: siva kumar
3 Replies
7. Shell Programming and Scripting
Hi, This might be simple question. But i couldn't find the answer.
#$ra is having a value which i have got from some other file
I want the first occurrence of the line having the value that is in variable "$ra"
This is what i have tried.
while ( $iop = <TST>)
{
if($iop =~ /$ra/)
{
... (6 Replies)
Discussion started by: twistedpair
6 Replies
8. Shell Programming and Scripting
Example input:
John:Shepherd:770-767-4040:U.S.A:New York
Mo Jo:Jo Jo: 666-666-6666:U.S.A:Townsville
Expected Output:
First Name: John
Last Name: Shepherd
Phone Number: 770-767-4040
Country: U.S.A
State: New York
First Name: Mo Jo
Last Name: Jo Jo
Phone Number: 666-666-6666... (10 Replies)
Discussion started by: Camrikron
10 Replies
9. Shell Programming and Scripting
Hi,
I need help to split any lines that contain ; or ,
input.txtAc020 Not a good chemical process
AC030 many has failed, 3 still maintained
AC040 Putative; epithelial cells
AC050 Predicted binding activity
AC060 rodC Putative; upregulated in 48;h biofilm vs planktonic
The output... (8 Replies)
Discussion started by: redse171
8 Replies
10. Shell Programming and Scripting
Hi All,
Greetings everyone !!!
I have a file which has many lines, out of which one line is as below.
I need to search for pattern "varchar(30) Select" and if exists, then split the line as below.
I am trying to achieve this in ksh. Can anyone help me on this. (8 Replies)
Discussion started by: Pradhikshan
8 Replies
LEARN ABOUT DEBIAN
hash::case
Hash::Case(3pm) User Contributed Perl Documentation Hash::Case(3pm)
NAME
Hash::Case - base class for hashes with key-casing requirements
INHERITANCE
Hash::Case
is a Tie::StdHash
Hash::Case is extended by
Hash::Case::Lower
Hash::Case::Preserve
Hash::Case::Upper
SYNOPSIS
use Hash::Case::Lower;
tie my(%lchash), 'Hash::Case::Lower';
$lchash{StraNGeKeY} = 3;
print keys %lchash; # strangekey
DESCRIPTION
Hash::Case is the base class for various classes which tie special treatment for the casing of keys. Be aware of the differences in
implementation: "Lower" and "Upper" are tied native hashes: these hashes have no need for hidden fields or other assisting data structured.
A case "Preserve" hash will actually create three hashes.
The following strategies are implemented:
o Hash::Case::Lower (native hash)
Keys are always considered lower case. The internals of this module translate any incoming key to lower case before it is used.
o Hash::Case::Upper (native hash)
Like the ::Lower, but then all keys are always translated into upper case. This module can be of use for some databases, which do
translate everything to capitals as well. To avoid confusion, you may want to have you own internal Perl hash do this as well.
o Hash::Case::Preserve
The actual casing is ignored, but not forgotten.
METHODS
Constructors
$obj->addHashData(HASH)
Add the data of a hash (passed as reference) to the created tied hash. The existing values in the hash remain, the keys are adapted to
the needs of the the casing.
$obj->addPairs(PAIRS)
Specify an even length list of alternating key and value to be stored in the hash.
$obj->setHash(HASH)
The functionality differs for native and wrapper hashes. For native hashes, this is the same as first clearing the hash, and then a
call to addHashData(). Wrapper hashes will use the hash you specify here to store the data, and re-create the mapping hash.
tie(HASH, TIE, [VALUES,] OPTIONS)
Tie the HASH with the TIE package which extends Hash::Case. The OPTIONS differ per implementation: read the manual page for the
package you actually use. The VALUES is a reference to an array containing key-value pairs, or a reference to a hash: they fill the
initial hash.
example:
my %x;
tie %x, 'Hash::Case::Lower';
$x{Upper} = 3;
print keys %x; # 'upper'
my @y = (ABC => 3, DeF => 4);
tie %x, 'Hash::Case::Lower', @y;
print keys %x; # 'abc' 'def'
my %z = (ABC => 3, DeF => 4);
tie %x, 'Hash::Case::Lower', \%z;
SEE ALSO
This module is part of Hash-Case distribution version 1.02, built on March 09, 2012. Website: http://perl.overmeer.net/hash-case/
LICENSE
Copyrights 2002-2003,2007-2012 by Mark Overmeer. For other contributors see ChangeLog.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See
http://www.perl.com/perl/misc/Artistic.html
perl v5.14.2 2012-03-09 Hash::Case(3pm)