Perl Syntax 99_myUtils.pm: (Can't use string ... as an ARRAY ref while)

[Simon74]

Hallo,

die Sub ShutdownWindows funktioniert, beim Aufruf von ShutdownLinux bekomme ich jedoch folgende Meldung:

Code Auswählen Erweitern

Can't use string ("my-pc2") as an ARRAY ref while "strict refs" in use at ./FHEM/99_myUtils.pm line

Meine Subs:

Code Auswählen Erweitern

###############################################################################
# Shutdown Windows-PC
###############################################################################
sub ShutdownWindows
{
my $pc = $_[0];
`net rpc shutdown -C \"Shutdown durch FHEM\" -S $pc -U DOMAIN/Backup%Password -f -t 5`;
}

###############################################################################
# Shutdown Linux-PC
###############################################################################
sub ShutdownLinux
{
my $pc = $_[0];
`ssh -tt ausschalten@$pc 'sudo shutdown -h now'`;
}

Der Aufruf aus dem WOL Modul erfolgt so:

Code Auswählen Erweitern

shutdownCmd {ShutdownLinux("my-pc2")}

[Icinger]

Lass einfach das [ 0 ] weg......

Und das

Code Auswählen Erweitern

`net rpc shutdown -C \"Shutdown durch FHEM\" -S $pc -U DOMAIN/Backup%Password -f -t 5`; musst als system-Befehl aufrufen

also

Code Auswählen Erweitern

system("net rpc shutdown -C \"Shutdown durch FHEM\" -S $pc -U DOMAIN/Backup%Password -f -t 5");

[Simon74]

Danke