need to execute batch file inside perl script after replacing string

[mohankrishna919]

I am new to perl

I need to call batch file inside perl script

I know how to call using system function

but the thing is i need to replace some characters in batch file before calling it.

please advise

 

[mohankrishna919]

my $cod="c:\\Program\\ Files";


system("start $cod");

when i am doing this it throws error
the error indicates its not accepting space between program and files
but my path is c:\program files, there is space between program and files
tried lot of ways
finally popsting here
please help

 

[Annihilannic]

Your second question answered here. Please don't multi-post.

For your first question, can you give an example of what you have before and what you want to replace it with?

Basically you need to read in the batch file, replace the strings using s/before/after/ type operators, and write the batch file again.

Annihilannic
[small]tgmlify - code syntax highlighting for your tek-tips posts[/small]

 

[mohankrishna919]

Thank you very much

you saved my time.

 

[mohankrishna919]

my goal is to execute this .cmd file inside perl script

this is my .cmd file :

"D:\Program Files\Tivoli\TSM\TDPSql\tdpsqlc" backup master FULL /sqlbuff=2 /strip=2 /SQLSERV=test >> D:\logs\test.OUT 2>&1

this is my perl code:

#!/usr/bin/perl

use warnings;
use strict;
use Getopt::Long;
use Win32::SqlServer qw(SCALAR);

GetOptions( 'd=s' => \my $database,
'i=s' => \my $servername,
);

# Log in to server .

my $sqlsrv = Win32::SqlServer::sql_init($servername, $database, 'gentle', 'Northwind');
# Our SQL statement.

my $stmnt = <<SQLEND;
BACKUP database "$database" TO DISK = N'c:\\bak\\master.dmp'
SQLEND

# Run query.
my $result = $sqlsrv->sql($stmnt, SCALAR);

# Print results.
foreach my $name (@$result) {
print "$name\n";
}
now i am calling .cmd file in perl script like this:

my $cod=""D:\Program Files\Tivoli\TSM\TDPSql\tdpsqlc" backup master FULL /sqlbuff=2 /strip=2 /SQLSERV=test >> D:\logs\test.OUT 2>&1";
system("start \"Title\" \"$cod\"");;

now the thing is i need to replace master to $database and test to $servername

I will update you if i had questions in this situation

Thanks for your response.

 

[Annihilannic]

Try this:

my $cod="\"D:\\Program Files\\Tivoli\\TSM\\TDPSql\\tdpsqlc\" backup $database FULL /sqlbuff=2 /strip=2 /SQLSERV=$servername >> D:\\logs\\test.OUT 2>&1";
system("start \"Title\" $cod");

Annihilannic
[small]tgmlify - code syntax highlighting for your tek-tips posts[/small]

 

[mohankrishna919]

Sure will try and update you

Thanks

 

[mohankrishna919]

ran well
can you please suggest about this.

GetOptions( 'd=s' => \my $database,
'i=s' => \my $servername,
'TYPE=s' => \my $type,
'LOCATION=s' => \my $loc,

If im not entering any values while executing this perl code,
how can i set any default valuyes to above parameters.

now im executing like this: perl filename.pl -i name -d name1
-type name2 -location name3

but if i want to execute like perl filename.pl, it should execute with some default values for i,d,type and location.

PLease suggest, tried lot ways

 

[mohankrishna919]

got it by passing default values to parameters inside perl script