Chas Owens wrote:
On 1/26/06, JupiterHost.Net <[EMAIL PROTECTED]> wrote:
The problem with defining your own versions of die, warn, croak, and
carp is that only your code uses them. If another module croaks or
Thats why you put it in a module and use it in all your scripts and if
it has not
Bill Peters wrote:
> Hello,
> I hope this question is appropriate to this list:
> I am running ActiveState Perl 5.8 on Windows XP with
> Spreadsheet::ParseExcel and Spreadsheet::WriteExcel::Big. I have 2
> programs I've written using these modules. One program reads from a
> SQL DB and just writes
On 1/26/06, JupiterHost.Net <[EMAIL PROTECTED]> wrote:
> > The problem with defining your own versions of die, warn, croak, and
> > carp is that only your code uses them. If another module croaks or
>
> Thats why you put it in a module and use it in all your scripts and if
> it has not already bee
Hello,
I hope this question is appropriate to this list:
I am running ActiveState Perl 5.8 on Windows XP with Spreadsheet::ParseExcel
and Spreadsheet::WriteExcel::Big. I have 2 programs I've written using these
modules. One program reads from a SQL DB and just writes the data to a
spreadsheet, abou
The problem with defining your own versions of die, warn, croak, and
carp is that only your code uses them. If another module croaks or
Thats why you put it in a module and use it in all your scripts and if
it has not already been done and you can find a proper place for it to
go, out it on C
On 1/26/06, JupiterHost.Net <[EMAIL PROTECTED]> wrote:
snip
> Without trying to sort out the hair ball of code might I recommend
> simplifying you condition?
>
>
> my $ftp = Net::FTP->new(...) or _my_die('Connection failed: ' .
> Net:FTP->message());
>
> $ftp->login($user, $pass) or _my_die('Login
On 1/26/06, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
snip
> ok I read the perldoc and this seems to be the ideal way, but when any
> condition fails, meaning
> a connection fails, a login fails or a cwd fails I want to update the log
> with the appropriate message for each failed
> condition.
My problem seems to be within the Net::FTP module. I have intentionally
modified my password so that my error routines can be tested, but once
the
login
piece fails it continues on, when I would expect that it should die at
the
code in red.
Cool, its all blue in my mail client so the
[EMAIL PROTECTED] wrote:
Tom Phoenix
<[EMAIL PROTECTED]
om>
No, that defines the override of the default behavior of the die()
command (see perldoc -f die). The "|| do { blah };" turns into "or
die 'message';" You put all of the "blah" code in the override.
**
>
> the || do lines in the ftp section
> with a routine call to? :
>
> my $olddie = $SIG{__DIE__};
> $SIG{__DIE__} = sub {
> my $error = shift;
> $olddie->{$error} if ref $olddie;
> mailme($error);
> #other error stuff here
> };
>
snip
No, that defines
On 1/26/06, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
snip
> I appreciate the suggestion, but if there is a problem I want the progam to
> email then die. So I would replace
>
> the || do lines in the ftp section
> with a routine call to? :
>
> my $olddie = $SIG{__DIE__};
> $SIG{__DIE_
snip
> my $ftp = Net::FTP->new($remotehost, Debug => 10)
> || do {print FTPLOG "\nCannot connect to $remotehost:
$!",
> mailme(); return};
snip
This is a bit off topic, but I can't look at code like this without
suggesting the following alternative:
near the top o
snip
> my $ftp = Net::FTP->new($remotehost, Debug => 10)
> || do {print FTPLOG "\nCannot connect to $remotehost: $!",
> mailme(); return};
snip
This is a bit off topic, but I can't look at code like this without
suggesting the following alternative:
near the top of
Hi George,
Are you looking for a TCL script or a PERL regex expression, if you are
using PERL
then try the code what Dmitry Motevich has written if u need in TCL then
try the below
---
set x "Linz_Untauglich Dr."
set result [regexp (_)(
On 1/26/06, Mazhar <[EMAIL PROTECTED]> wrote:
> Hi Folks,
> I have downloaded the tar.gz module from CPAN to ssh a remote unix
> machine. After the same i run the >>perl makefile.pl and below was the
> output of the command
>
> Warnin
Tom Phoenix
<[EMAIL PROTECTED]
om>
Hi Folks,
I have downloaded the tar.gz module from CPAN to ssh a remote unix
machine. After the same i run the >>perl makefile.pl and below was the
output of the command
Warning: prerequisite Convert::ASCII::Armour 1.4 not found.
Warn
18 matches
Mail list logo
