Hi All,

I have written once Perl script to perform certain task. In that script
I have defined one function to create the log file.

The issue is that whenever I am running that script it is executing fine
but the moment it reaches to log () function it throws me following
error.

Can't take log of 0 at /usr/tools/deployment/scripts/merge line 392,
line 6

Entire Perl script has been attached for your reference.

Please help.

Regards,

Irfan

#! /usr/tools/deployment/bin/perl

is there some lib can do image compare thank you

while () {
my($file1,$file2,$file3,$file4,$file5,$file6,$file10,$file25,$file27)
= (split( /\|/, $_))[3,4,6,7,12,40,41,42,43,46,56,64]
}

while doing above, what is the easiest way to make sure all the variable
that's being given a value is true and if not
assign something default value (such as 'default' or 'X') ?

I was doing (after the while loop)

$file |= 'default'
$file2 |= 'default2'
$file3 |= 'default3'

but I stopped and thought this cannot be so repetitious

so I didn't want to but tried( I didn't want to put them in array since
I need to use individual named variable later)

reader@newsguy.com wrote:

Can soneone show me how to convert unix time to something else using
Date:: Manip?

AFter looking at the Docs in perldoc Date::Manip I thought maybe (from
the examples) something like script below would work. The first two
(now commented) worked as expected but the one with unix date produces
a blank line only:

#!/usr/local/bin/perl

use strict;
use warnings;
use Date::Manip;

my $date;
# print $date = ParseDate("05/12/08") . "\n";
# print $date = ParseDate("today") . "\n";
print $date = ParseDate("1210628919") . "\n";

What is the right syntax?

I tried this on Friday afternoon - thought I'd try again...

I keep running into a brick wall when installing the perl module
IO::Socket::SSL. During the install, I get an error message that makes
the install fail. The message happens when cpan is running external
tests, so it seems like there is some kind of problem with a setting
somewhere. I googled the error, I saw that other people have had
problems with their DNS settings, but everything is fine as far as I
know. Anyone know what kinds of issues might produce errors like this,
or anyone know what kinds of settings need to be in place when dealing
with sockets?

Error message:

Use of uninitialized value in subroutine entry at
/m1/shared/perl/5.8.5-09/lib/5.8.5/sun4-solaris/Socket.pm line 373.

Bad arg length for Socket::pack_sockaddr_in, length is 0, should be 4 at
/m1/shared/perl/5.8.5-09/lib/5.8.5/sun4-solaris/Socket.pm line 373.

I have no idea what I'm doing, but thanks,

John W.

I am in the process of logging referring URLs that result in end users
being directed to a 4xx error page. What I have noticed is that other
items such as a missing CSS, a reference to a non-existing image, etc.
that does not necessarily result in the user seeing the 4xx page is
still makes an entry in my log file. What I am looking for is a
parameter that I can add to my PERL script that will specify the file
call that resulted in the log entry.

Thanks,

Steve

lHi All
ooking to done some work whit CGI forms in perl, primarily connecting
to a database and inserting, deleting and showing values in a
database, While looking not to reinvent the wheel, whats out there
that I can easily use that would do this for me ?

looking at the CGI module... but I think I can mix that up with HTML easly

Thanks in advance
Pat

Hi all!

i'm running the following dummy program which just opens a file and I get an
error (die message)

#!/usr/bin/perl

if ( @ARGV[0] eq '' )
{
print "\nUSAGE:\n\t genenames.pl genes.txt \n\n";
exit;
}

my $file = $ARGV[0];
open(FICH,"$file") or die "cannot open $file";

I've tried to pass the input parameter ARGV[0] with / with \ with relative
path ... but nothing

any idea?

Thanks a lot!
T