Webmaster Forum / Perl / Getting Started / November 2007

Can someone spot and explain what I am doing wrong.
I have a script that should read the contents of a CD (on Win32). I
want a summary at the top of the page of what I've found. I use find
to count the files and dirs and I want the total files ($in) to be a

I recently heard about Python. They claimed that it is easier to learn
and to program in Python than in Perl.
Most of my work is relating to transformation of one text file format
to another.

Hi list,
I am having a bad day and would really like some help (the coffee hasn't).
I have a list that looks like:
my @list = (1,2,3,4);

Hi all,
I'v add a perl script in my crontab (To execute with root rigth)
If i execute the perl script in command line, all work fine.
Here the log from /var/log/cron

I am trying to do the following: I have (an) email that is fetched from
an IMAP server
What I want to do is go over this mail and do two things:
- change all "Content-Transfer-Encoding: quoted-printable" or "7bit"

I am writing a perl code to access DCERPC interface, using DCE::RPC
module and i am ending up in error "Usage: DCE::RPC::new (new
DCE::RPC, $auth) at dcerpc.pl"
Kindly help me to resolve the error

Hi again all,
Is there a way that one can use sprintf on a variable and assign the
value back to the variable without having the leading $var= ?
$var = sprintf ("%.2f", (($var /=1024) /=1024)))

Hello there, I'm trying to understand and modify some perl code to
create an index of word. The subroutine I have is in OO Perl, and I'm
just starting to learn normal Perl. So I'd like to transform it. Here
it is:

I am in the process of upgrading Perl on a very old box via:
# perl -MCPAN -e shell
...and have run into something I need advice on.
I need to know before I answer the following question whether the

Hello there. I'm a real beginner and I was wondering if you could be
so kind to help me on this.
I have a text file, containing a number of varying length documents,
all tagged with DOC-START and DOC-END, structured as follows:

I am trying to get this to work, but I am not having any luck?
use strict;
use warnings;
sub commify {

I've got an application which uses the format yyyy-mm-dd hh:mm:ss for its
timestamping.  I'm trying to determine if the time a record was created was 5 or
more minutes before the time the script runs.  Using DateTime->now I get a
timestamp of yyyy-mm-ddThh:mm:ss.  I have no clue ...

sub abc {
    print 'abc';
}
my $f1 = \&abc;

I am trying to modularize some standard MySQL queries that I frequently
do against our RADIUS DB.
The current setup feels very 'kludgy' to me. The code snip below comes
out of the module. I hope there is enough context to see why I think it

ok this is problem going to be real easy for one of you PERL gurus but
my little brain just can't figure it out. From the command line (Solaris
 9) I can do this fine:
echo my little test | mailx -s "Test Message" email@mydomain.com