perl 面向对象举例

<pre name="code" class="sql">Net::FTP(3)           User Contributed Perl Documentation          Net::FTP(3)

NAME
       Net::FTP - FTP Client class

SYNOPSIS
           use Net::FTP;

           $ftp = Net::FTP->new("some.host.name", Debug => 0)
             or die "Cannot connect to some.host.name: $@";  ---创建对象

           $ftp->login("anonymous",'-anonymous@')  ---调用对象的login方法
             or die "Cannot login ", $ftp->message;

           $ftp->cwd("/pub")  --调用对象的cmd方法
             or die "Cannot change working directory ", $ftp->message;

           $ftp->get("that.file")
             or die "get failed ", $ftp->message;

           $ftp->quit;

DESCRIPTION
       "Net::FTP" is a class implementing a simple FTP client in Perl as described in RFC959.  It provides wrappers for a subset of the RFC959