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

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: "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)

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

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

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

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

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: "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

"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: 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

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

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

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 __

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

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,

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

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

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