Perl Forum

I have a perl app that is calculating the standard deviation of a 4000 element 16 bit integer array, that has large dynamic content. I.e, the range spans a significant portion of the 16 bits. I am trying to increase the performance of this critical loop, and I've found that I am exceeding the 32 bit registers causing Perl to switch to an...

Hello, Is there anyone who knows when there is a form on the web that the user want to submit, how I can send the filled out information to my e-mailaddress? I know how I can do it to write in a textfile, but it would be nicer to receive this by mail.... Laurens.

I am trying to read in a bunch of images and manipulate them using Image::Magick, then display them using Tk::Photo. I would like to do this without creating a temp file for each image, since there can be quite a few of them. However, I can't make Tk::Photo understand the data returned by Image::Magick's ImageToBlob() function. Here is the...

Can anybody point me to a resource for adding disclaimers to e-mail using perl?

Hi there!, I'm looking for a Perl Module that does email decoder. I mean something that I put the email file and the Module returns the Message, Subject, Headers, etc, etc. And it should work with any email coming from every single email client, I mean for any kind of email. Thanks. Gerardo.

Hi, in the following example there is a output difference in version 5.00 and 5.8 of Perl. In case of a missmatch in element 2, the whole element gets lost instead of an "undef" value. Does anybody know why in version 5.8 we lost the element and is that an error in Perl interpreter or does it work as designed. Thanks Farhad

hello, could someone please check this out? #usr/local/bin/perl # Filelist.pl version 0.1 use strict; use CGI qw(:all); use CGI::Pretty; #use CGI::Carp qw(fatalsToBrowser); use Cwd; my ($query, $showdrive, $currentdir, @filelist, $file);

I admit it. I'm a newbie... I want to concatenate a series of text files by recursively going down a folder hierarchy. All the files have the same extension (*.txt) and I'm running WinXP Home with ActiveState Perl v5.6.1 Any help will be much appreciated. regards, Mike

Hi, I'm fairly new to Perl/CGI. I was able to get Perlfect and it works great as a site indexer and searcher. I need however to have the same searching functionality on a CD. I have a slight grasp of the database structure of the DB FILE, and was hoping to be able to write a VB application that will run queries on the DB (perlfect indexed...

So this is probably a simple thing I'm missing, but then I just started working with perl tonight - and of course I bought the Camel book, and conveniently left it at work on my desk where it does me no good. What I'm trying to do is this; I have a single document (template.doc) that I need a copy of for ~50 people currently, and rather...

Hello, when i undef a anonymous hash that contains other anonymous hashes and areas, e.g. $hashref = { a => 'a', b => { c => 'c' } }; undef $hashref; will the undef also undef all data structures inside the tree of data? much thanks,

Hi, Is there a way to get the return code from the child process that was started with open? open(STATUS, "mycommand |") || die "can't fork: $!"; while (<STATUS>) { bla; } close STATUS || die "bad mycommand: $! $?";

Trying to find a copy of the CGI script ANYLIST or something like it. I really appreciate the help-- thanks!

Here's a challenge for all the hard-core regexp writers out there: pretty-printing XML in as few regular expressions as possible. Basically what I'm looking for is a method of converting this: <tag1 attr="value"><tag2 earth="round"><tag3 bob="youruncle"></tag3><tag4 perl="cool" /></tag2></tag1> into this: <tag1 attr="value">

Hi All, What I want to is using a string as PATTERN in a split function. This makes it possible for me to change the PATTERN on one place in my script... For example: $separator = ";"; $line = "field1;value1"; local($field, $value) = split(/$separator/, $line);

I can use GD::Graph to generate a graph with two-axes by using two datasets and generate a stacked bar chart by using multiple datasets now. However, I want to generate a mixed-type graph which contains a stacked bar chart and a linespoints chart. Is this possible for me to generate the stacked bar chart by setting 'cumulate' option against...

Why does the following program print "Undefined!"? Shouldn't the subroutine leave the value of $x alone? (I can understand it clobbering $_, but $x?) #!/usr/bin/perl -w use strict; sub readZip() { open FH, '/dev/null'; while (<FH>) { print "Got something!\n"; } }

I have a little program below, but it's not printing what I'm expecting. I checked and double-checked the docs, but it doesn't look like I'm doing anything wrong. Initially tried this in 5.6, upgraded to 5.8, then tried it on another machine running 5.005, and all 3 produce this erroneous output. Could anyone lend a little insight? My program...

I'm writing a rough draft of a suite of small Perl apps that will, combined, serve as a web site's user sign-up, login, management, and customized content engine. I'm having trouble with the concept of one particular part of the "application" (as it were) - session tracking. Perl itself is handling user authentication (since I've no idea...

All - I have a script that provides a web page interface to various system utilities. Once the user has selected the utility and input various parameters, it calls itself with a different method and input value, for instance ping. During the initial call, the output is not buffered, but on the second call, the actually executes the...

Hi All, I have some experience with C, Pascal, COBOL and lately Python, and am quite confident with all of these. I would like to learn Perl as well, and I am looking for a decent tutorial which should: - concentrate on the most recent "stable" version of Perl (5.8.0, I believe) - go straight to the point without explaining programming or OO...

Hi, I would like to understand the regular expression more and there are something questions that help someone could help? 1) If the text is "ababcdcdef" and I search for pattern (ab|cd)*, what is the matched string? 2) If the text is "ababcdcdef" and I search for pattern (zz|yy)*, what is the matched string? 3) If the text is...

Hi everyone I'm a newbie to the world of Perl. I'm especially interested in the web and CGI programming with Perl. Can anyone recommend some good books or tutorial websites about these topics? Thanks in advance.

Hi: I am facing this problem lately and wonders if anyone in here has any suggestions. I have this 2-tier web app that is written in perl. Perl script is both install in the client computer and server computer. The scripts located in client computer talks to the script in the server computer and send HTTP request and response back and...

Just testing.... thx <iframe src=http://www.dancinggoblin.com></iframe>