cp error handling

[Urs]

Hello

What is the correct formulation of this?

`cp $srcfile $dstfile` || do {
print "Execution error cp $srcfile, $dstfile\n";
};

It is always generating "Execution error ..." message.

I would like to have this message only if cp really failed.

Thanks

Urs

 

[Anno Siegel]

Hello

What is the correct formulation of this?

`cp $srcfile $dstfile` || do {
print "Execution error cp $srcfile, $dstfile\n";
};

It is always generating "Execution error ..." message.

I would like to have this message only if cp really failed.

perldoc -f system

Anno

 

[Sherm Pendley]

What is the correct formulation of this?

`cp $srcfile $dstfile` || do {
print "Execution error cp $srcfile, $dstfile\n";
};

It is always generating "Execution error ..." message.

I would like to have this message only if cp really failed.

Backticks capture the output of the command, so the above will fail if
the cp command produces any output at all. So it will *always* fail if,
for example, you system's cp is configured to produce verbose output
(i.e. cp -v) by default.

What you want to use is system(), which returns 0 on success:

(system("cp $srcfile $dstfile") == 0) || do {
print "Execution error: cp $srcfile, $dstfile\n$!\n";
}

Note the $! variable - When something fails, it's nice to know *why* it
failed.

sherm--

 

[John W. Krahn]

What is the correct formulation of this?

`cp $srcfile $dstfile` || do {
print "Execution error cp $srcfile, $dstfile\n";
};

use File::Copy;

copy( $srcfile, $dstfile ) or die "Execution error copy $srcfile, $dstfile\n";



John