1
2
3
4
5
6
7
8
9
10
11
my @cmd_mtime_file_bmw = (
qw( ssh -T -l ),
$xx_user,
$xx_host,
qw ( "stat (" ),
$actual_a3db_xx_pfad[$k],
qw ( ")" ),
qw ([9] ),
);
$mtime_file_xx = system( @cmd_mtime_file_xx );
1
2
3
4
5
$ perl -wle '$, = " | "; print qw( "Hallo Welt");'
"Hallo | Welt"
$ perl -wle '$, = " | "; print qw( "Hallo\ Welt");'
"Hallo\ | Welt"
1 2 3 4 5 6 7
my $size = qx{ ssh -T -l $xx_user $xx_host "stat -c '%c' $dateiname" }; if ( $? == 0 ) { # Erfolg, tu was mit $size } else { # Misserfolg, tu was anderes }