snippetsmania.com

Connect to FTP server in Perl example

#!/usr/bin/perl
 
use strict;
use warnings;
use Net::FTP;
 
my $ftp = Net::FTP->new($host,Timeout=>1) or die;
$ftp->login('anonymous', 'test@test.com');
 
$ftp->cwd('/some_dir');
 
my @files = $ftp->dir;
 
$ftp->quit;
 
 

Tags

Using MySQL in Perl with DBI example

#! /usr/bin/perl -w
use strict;
use DBI;
 
my $database = "yourdatabase";
my $user = "user1";
my $passwd = "hidden"; 
my $count = 0;
 
my $select="
  select a,b,c from perlTest ";
 my $dsn = "DBI:mysql:host=localhost;database=${database}";
my $dbh = DBI->connect ($dsn, $user, $passwd)
  or die "Cannot connect to server\n";
 
my $s = $dbh->prepare($select);
$s->execute();
 
while (my @val = $s->fetchrow_array()) {
  print " $val[0]  $val[1]  $val[2]\n";
  ++$count;
}
 
$s->finish();
$dbh->disconnect ( );
 
exit (0);

Uses DBI module to query a MySQL database.

Tags