Thanks Bill. Yes that works! Much thanks. Again I learned something from this list. Rob Dixon also pointed out some mistakes in my coding also.
Which is better to use:
1) my ( $FTPOBJ ) = @_;
--or--
2) my $FTPOBJ = shift;
I've seen both used a lot.
Dave
| "$Bill Luebkert" <[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED] 05/07/2004 12:06 AM
|
To: [EMAIL PROTECTED] cc: [EMAIL PROTECTED] Subject: Re: undef example |
[EMAIL PROTECTED] wrote:
>
> This may be a lame question and I understand what it's doing, but I
> would like to know if it is possible to undefine a global EXPR if it's
> passed into a subroutine?
>
> Code here reduced to the basics. After the return from routine
> closeFtpConn I want, in this case, $MVSFTP undefined.
>
> .
> my $MVSFTP;
> .
>
> $MVSFTP = Net::FTP->new( $mvsFtpHost, Debug => $myDebugMode )
> or &errout("Cannot connect to $mvsFtpHost;");
> .
> .
> &closeFtpConn ( $MVSFTP );
> .
> .
> __END__
>
>
> sub closeFtpConn ($) {
> my ( $FTPOBJ ) = @_;
> .
> $FTPOBJ->quit;
> .
> .
> undef $FTPOBJ;
> }
Try something like :
use strict;
use Net::FTP;
my $mvsFtpHost = 'wherever.com';
my $MVSFTP = Net::FTP->new($mvsFtpHost, Debug => 1)
or die "Cannot connect to $mvsFtpHost;";
closeFtpConn (\$MVSFTP);
sub closeFtpConn {
my $FTPOBJ = shift;
$$FTPOBJ->quit;
undef $$FTPOBJ;
}
__END__
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
