Shell Programming and Scripting

#!/usr/bin/perl -w
my $username="system";
my $password = "manager";
my $tns = "DBLOCAL";
 
exp $username/$password@$tns

$ ./testexp.pl
Array found where operator expected at ./testexp.pl line 6, at end of line
(Missing operator before ?)
syntax error at ./testexp.pl line 6, near "$password@"
Execution of ./testexp.pl aborted due to compilation errors.

#!/usr/bin/perl -w

use strict;

my $username = "system";
my $password = "manager";
my $tns = "DBLOCAL";

system "exp $username/$password\@$tns";

open FH, '-|', "exp $username/$password\@$tns";
while (<FH>) {
    tbd
}
close FH;

my $schemaname = "TEST";
my $password = "password";
my $tns = "dblocal";
my $filepath = "c:/";
my $filename = "EXP_".$schemaname".dmp";
my $username = "SYSTEM";

system "exp $username/$password\@$tns file=$filepath$filename owner=$schemaname";

system "exp ${username}/${password}\@$tns file=${filepath}${filename}owner=${schemaname}";

$cmd=". /path/to/profile;exp ${username}/${password}\@$tns file=${filepath}${filename} owner=${schemaname}";

system($cmd);