compare speed problem

Hi all I have some code (seen below) and for some reason it runs really, sllo. I have narrowed it down to the $p110rm0X eq $roomName. In the subroutine compareRmNames So basically my question is, is there a way to quicken the compare the two strings. I have commented out the adding

MIME::Parser

Hi Guys, I need help with MIME::Parser. I have a script downloading mail, it takes the attachments and saves them with MIME::Parser. It uses the filename it gets from the header. I need to save it with a custom filename though. How do I do this. Below is the script so far. #!/usr

reference to subroutines

Hi all Would someone be so kind to explain the following code. my $subclasses = { 'rejects' => \&_reject_html, 'deferrals' => \&_deferral_html, 'errors' => \&_error_html, 'deliveries' => \&_delivery_html, 'unknow

Re: reference to subroutines

On Aug 8, Brent Clark said: Would someone be so kind to explain the following code. my $subclasses = { 'rejects' => \&_reject_html, 'deferrals' => \&_deferral_html, 'errors' => \&_error_html, 'deliveries' => \&_delivery_html,

RE: MIME::Parser

David Foley <[EMAIL PROTECTED]> asked: > I need help with MIME::Parser. I have a script > downloading mail, it takes the attachments and saves them > with MIME::Parser. It uses the filename it gets from the > header. I need to save it with a custom filename though. How > do I do t

Ann : Delphi

Hi Friends, If anybody is interested in Delphi Training, check the complete details of the training programs at the beta version of the following website: http://akreatik.tripod.com/homepage.htm Looking forward to your reply, thanks & regards, Atul Ashpalia __

Help with hash of dates

Hello everyone, I'm trying to come up with a way to automatically create a hash like the following: use Tie::IxHash; tie my %pairs, "Tie::IxHash"; %pairs = ( '1' => { 'start' => '04/24/05', 'end' => '04/30/05' }, '2

Re: Encoding iso-8859-16

On Thu, Aug 04, 2005 at 11:51:44AM +0530, Sastry wrote: > Hi > > I am running the following script on EBCDIC > > use Encode; > $string = "a"; > $enc_string = encode("iso-8859-16", $string); > print "\n String: $string\n"; > print "\n enc_string: $enc_string\n"; > > > The output: > > String: a

Re: Help with hash of dates

p2, $e[0]), ]; } package main; tie my(%WEEK), 'Tie::Week'; my ($begin, $end) = @{ $WEEK{'2005/08/08'} }; print "$begin -> $end\n"; Another exercise left to the reader is the ability to cache the return value for ALL days in the week provided. T

"Join" Function

hi, In the following code which reads a file.txt (SEE ATTACHMENT) where I am trying to understand how to put the DNA sequence in to a single string... print "enter file with DNA sequence: "; $seqfile = ; chomp $seqfile; unless ( open(DNAFILE, $seqfile) ) { print "can't open!!\n"; exit; } @dna =

RE: "Join" Function

Vineet Pande wrote: > hi, > In the following code which reads a file.txt (SEE ATTACHMENT) where I > am trying to understand how to put the DNA sequence in to a single > string... > > print "enter file with DNA sequence: "; > $seqfile = ; > chomp $seqfile; > unless ( op

Re: "Join" Function

>>> "Vineet Pande" <[EMAIL PROTECTED]> 08/08/2005 9:39:00 am >>> >@dna = ; [snip] >$dna = join( '', @dna); >print "$dna\n"; >THE OUTPUT IS EXACTLY THE SAME AS IN file.txt.Why don't we get the >string joined...of course i agree i must clean whitespace...bu then what is >expected out of join(

Re: Help with hash of dates

On 8/8/05, Jeff 'japhy' Pinyan <[EMAIL PROTECTED]> wrote: > On Aug 8, Kevin Old said: > > > I'm trying to come up with a way to automatically create a hash like > > the following: > > > > It's a hash with the start and end date for each week with the start > > date being Sunday and the end date be

reference to an array

I am a bit confused whether this is possible or not? I would like to have an array reference, the command am using is something like : -- $sth = $dbh->prepare("SELECT * from tablename"); $sth->execute; $aref = $sth->fetchrow_array; -- The last line, viz $aref = $sth->fetchrow_array; I am expec

Re: reference to an array

On 8/8/05, Binish A R <[EMAIL PROTECTED]> wrote: > I am a bit confused whether this is possible or not? > I would like to have an array reference, the command am using is something > like : > > -- > $sth = $dbh->prepare("SELECT * from tablename"); > $sth->execute; > > $aref = $sth->fetchrow_arra

Re: reference to an array

David Baird wrote: On 8/8/05, Binish A R <[EMAIL PROTECTED]> wrote: I am a bit confused whether this is possible or not? I would like to have an array reference, the command am using is something like : -- $sth = $dbh->prepare("SELECT * from tablename"); $sth->execute; $aref = $sth->fetch

Re: Transliteration operator(tr//)on EBCDIC platform

On Thu, Aug 04, 2005 at 11:42:54AM +0530, Sastry wrote: > Hi > > I am trying to run this script on an EBCDIC platform using perl-5.8.6 > > ($a = "\x89\x8a\x8b\x8c\x8d\x8f\x90\x91") =~ tr/\x89-\x91/X/; > is($a, ""); > > > The result I get is > > 'X«»ðý±°X' > > a) Is this happening

Data comparison algorythm

Hello All I have a rather difficult problem I am trying to solve. I have two arrays with a series of request times and response times for some network communication (UDP-SNMP communications). The data is such that I cannot accurately state what response coincides with what request and there can

Re: Data comparison algorythm

These are time-stamps, right? And if so you surely don't mean "response" and "request" in that order i.e. each request time-stamp is *after* the corresponding response?! Are the values being taken from the same "clock"? If not, do you know the offset of one from the other? Making the obvious

RE: perl and java and html

Chris, Thanks for the response. In fact that is exactly what I want to do. And I know it can be done with a local web server. Let me ask you this though. Is there a way for me to utilize Javascript, or other script (such as PHP), in order to avoid using the web server? Basically, like the ori

Re: "Join" Function

Vineet Pande wrote: > hi, Hello, > In the following code which reads a file.txt (SEE ATTACHMENT) where I am > trying to understand how to put the DNA sequence in to a single string... > > print "enter file with DNA sequence: "; > $seqfile = ; > chomp $seqfile; > unless ( open(DNAFILE, $seqfile)

reporting tools

Hi, I would like to create reports for printing them on the printer (under Windows 2000) using perl. I use MySQL as a database and I am wondering what can I use to create those reports as easy as possible. Can I use Crystal Reports? Are there modules for working with it...? Thank you. Teddy

Re: Encoding iso-8859-16

Hi I get 73 printed on EBCDIC platform. I think it is supposed to print 129 as it is the numeric equivalent of 'a'. -Sastry On 8/8/05, Nicholas Clark <[EMAIL PROTECTED]> wrote: > On Thu, Aug 04, 2005 at 11:51:44AM +0530, Sastry wrote: > > Hi > > > > I am running the following script on EBCDI