Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl 

...
$ftpobj -> binary; 
$ftpobj -> put ("club_db.tar"); 
$ftpobj -> quit;
  2. or download this
    #!/usr/bin/perl 

...
$ftpobj->binary; 
$ftpobj->put ("club_db.tar"); 
$ftpobj->quit;
  3. or download this
    my $tar = Archive::Tar->new; 
$tar->add_files(
  '/var/lib/mysql/club/foo',
  '/var/lib/mysql/club/bar');
$tar->write('club_db.tar');