#!/usr/bin/perl
my $Zeit=localtime();

my $result = ` C:/Windows/system32/cmd.exe -hrping      `;
#my $result = ` hrping  `;
print OLSR "$Zeit\n\n";

for (@Daten){ s#^.*]\s+(.*)#$1#}

C:/Windows/system32/cmd.exe -hrping

for (@Daten){ s#^.*]\s+(.*)#$1#}

for my $zeile (@Daten)
{
 $zeile=~s/
                ^  # Anfang des Stringes
                .* # kein, ein oder beliebig viele irgendwelche Zeichen, so viele wie möglich.
                ]  # ] ( vorsicht "[  ]" ist eine Zeichengruppe. Perl erkennt zwar,
                   # das hier keine Gruppe gemeint ist, aber das muss nicht immer so sein.)
                \s # Ein Leerzeichen oder Tab
                (  # Match Start (Inhalt wird in $1 stehen)
                .* # siehe oben
                )  # Match Ende
                 /$1/x; # der Ersetzungsteil.
                        # Alles was vorher gefunden wurde wird hier ersetzt.
                        # In diesem Fall durch $1
  # Näheres siehe "reguläre Ausdrücke"
}

my $result = "C:\Windows\system32\cmd\hrping -i1 10.1.1.8";

my $result = qx{ C:\\Windows\\system32\\cmd\\hrping -i1 10.1.1.8 2>&1 };
print $result