I'm having a bit of a login performance issue.. wondering if anyone has any ideas where I might look.
Here's the scenario...
Linux Red Hat ES 4 update 5
regardless of where I login from (ssh or on the text console) after providing the password the system seems to pause for between 30... (4 Replies)
I'd like to
1. Check and compare the 10,000 pnt files contains single record from the /$ROOTDIR/scp/inbox/string1 directory against 39 bad pnt files from the /$ROOTDIR/output/tma/pnt/bad/string1 directory based on the fam_id column value start at position 38 to 47 from the record below. Here is... (1 Reply)
Hi,
I have here a script which is used to purge older files/directories based on defined purge period. The script consists of 45 find commands, where each command will need to traverse through more than a million directories. Therefore a single find command executes around 22-25 mins... (7 Replies)
grep -f taking long time to compare for big files, any alternate for fast check
I am using grep -f file1 file2 to check - to ckeck dups/common rows prsents. But my files contains file1 contains 5gb and file 2 contains 50 mb and its taking such a long time to compare the files.
Do we have any... (10 Replies)
Hi ,
We have 20 jobs are scheduled.
In that one of our job is taking long time ,it's not completing.
If we are not terminating it's running infinity time actually the job completion time is 5 minutes.
The job is deleting some records from the table and two insert statements and one select... (7 Replies)
It's almost 3 days now and my resync/re-attach is only at 80%. Is there something I can check in Solaris 10 that would be causing the degradation. It's only a standby machine.
My live system completed in 6hrs. (9 Replies)
Dear All,
OS = Solaris 5.10
Hardware Sun Fire T2000 with 1 Ghz quode core
We have oracle application 11i with 10g database. When ever i am trying to take cold backup of database with 55GB size its taking long time to finish. As the application is down nobody is using the server at all... (8 Replies)
Hi,
All the data are kept on Netapp using NFS. some directories are so fast when doing ls but few of them are slow. After doing few times, it becomes fast. Then again after few minutes, it becomes slow again. Can you advise what's going on?
This one directory I am very interested is giving... (3 Replies)
I have so many (hundreds of thousands) files and directories within this one specific directory that my "rm -rf" command to delete them has been taking forever.
I did this via the SSH, my question is: if my SSH connection times out before rm -rf finishes, will it continue to delete all of those... (5 Replies)
Discussion started by: phpchick
5 Replies
LEARN ABOUT DEBIAN
mail::box::tie::hash
Mail::Box::Tie::HASH(3pm) User Contributed Perl Documentation Mail::Box::Tie::HASH(3pm)NAME
Mail::Box::Tie::HASH - access an existing message folder as a hash
SYNOPSIS
tie my(%inbox), 'Mail::Box::Tie::HASH', $folder;
foreach my $msgid (keys %inbox)
{ print $inbox{$msgid};
delete $inbox{$msgid};
}
$inbox{$msg->messageId} = $msg;
DESCRIPTION
Certainly when you look at a folder as being a set of related messages based on message-id, it is logical to access the folder through a
hash.
For a tied hash, the message-id is used as the key. The message-id is usually unique, but when two or more instances of the same message
are in the same folder, one will be flagged for deletion and the other will be returned.
This implementation uses basic folder access routines which are related to the message-id.
METHODS
Constructors
TIEHASH('Mail::Box::Tie::HASH', FOLDER)
Connects the FOLDER object to a HASH.
example:
my $mgr = Mail::Box::Manager->new;
my $folder = $mgr->open(access => 'rw');
tie my(%inbox), 'Mail::Box::Tie::HASH', $folder;
Tied Interface
$obj->CLEAR()
Remove the contents of the hash. This is not really possible, but all the messages will be flagged for deletion.
example:
%inbox = ();
%inbox = ($msg->messageId, $msg); #before adding msg
$obj->DELETE(MESSAGE-ID)
Remove the message with the specified MESSAGE-ID.
example:
delete $inbox{$msgid};
$obj->EXISTS(MESSAGE-ID)
Check whether a message with a certain MESSAGE-ID exists.
example:
if(exists $inbox{$msgid}) ...
$obj->FETCH(MESSAGEID)
Get the message with the specified id. The returned message may be a dummy if message thread detection is used. Returns "undef" when
there is no message with the specified id.
example:
my $msg = $inbox{$msgid};
if($inbox{$msgid}->isDummy) ...
$obj->FIRSTKEY()
See NEXTKEY().
$obj->NEXTKEY(PREVIOUS)
FIRSTKEY() returns the first message-id/message pair from the folder, and NEXTKEY returns the message-id/message pair for the next
message, in the order in which the message is stored in the folder.
Messages flagged for deletion will not be returned. See the Mail::Box::messages() method of the folder type for more information about
the folder message order.
example:
foreach my $msgid (keys %inbox) ...
foreach my $msg (values %inbox) ...
while(my ($msgid, $msg) = each %inbox) {
$msg->print unless $msg->isDeleted;
}
$obj->STORE(undef, MESSAGE)
Store a message in the folder. The key must be "undef", because the message-id of the specified message is taken. This is shown in
the first example. However, as you see, it is a bit complicated to specify "undef", therefore the string "undef" is accepted as well.
The message may be converted into something which can be stored in the folder type which is at stake. The added instance is returned.
example:
$inbox{ (undef) } = $msg;
$inbox{undef} = $msg;
SEE ALSO
This module is part of Mail-Box distribution version 2.105, built on May 07, 2012. Website: http://perl.overmeer.net/mailbox/
LICENSE
Copyrights 2001-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-05-07 Mail::Box::Tie::HASH(3pm)