alarm Output auf AIX (gelöst) (Allgemeines zu Perl)

[thread]19553[/thread]

alarm Output auf AIX [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+5 replies

peterb

2015-03-11 16:16

User since
2010-05-19
42 Artikel
BenutzerIn
[default_avatar]

Hi

Ich habe das alarm Sample aus der Perl Dokomentation gefunden um ein Kommando mit Timeout auszuführen. Das funktioniert wunderbar, jedoch möchte ich auch den Output des Kommandos haben, wenn es in das Timeout läuft.

Scheinbar dürfte durch das die im eval Block der Output flöten gehen.

Könnt ihr mir hier behilflich sein?

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $cmd         = '/etc/ping';
my $host        = '127.0.0.1';
my $timeout = 3;
my @cmd = ();

eval {
local $SIG{ALRM} = sub { die "alarm\n" }; 
  alarm $timeout;  
  print "fuehre exec aus: $cmd -c 5 $host\n";
  @cmd = `$cmd -c 5 $host`;
  alarm 0;
 };

if ($@) {
        foreach (@cmd){
                print;
        }

        print "TimedOut - $@\n";
        warn unless $@ eq "alarm\n";  
} else {
        foreach (@cmd){
                print;
        }
        print "Timed Nicht Out\n";
}

Vielen Dank
Peter
Last edited: 2015-03-11 16:36:08 +0100 (CET)

+2 replies
rosti

2015-03-11 16:37

User since
2011-03-19
3214 Artikel
BenutzerIn

die und warn schicken die Ausgabe nach STDERR.
- peterb
  
  2015-03-12 07:31
  User since
  2010-05-19
  42 Artikel
  BenutzerIn
  Hi Rosti
  
  Danke für deine Antwort. Ich habe versucht den STDOUT und STDERR in ein File umzuleiten, doch der Output kommt hier leider auch nicht heraus.
  
  Code (perl): (dl )
  
  1 2
  
  open(STDOUT, ">>log.txt"); open(STDERR, ">>log.txt");
  
  Wie sollte das aussehen?
  
  LG
  Peter
+2 replies

Linuxer

2015-03-11 16:52

User since
2006-01-27
3875 Artikel
HausmeisterIn

user image

Ich vermute, dass die Ausgabe des Kommandos gepuffert wird, bevor sie an die Variable @cmd gegeben wird.
Tritt nun der Alarm-Event auf, findet leider die Übergabe vom Puffer an die Variable nicht statt.
Daher enthält @cmd dann nicht die bisherigen Ausgaben.

EDIT:

Möglicher Workaround: Öffne Dein externes Kommando via Pipe und lese z.B. zeilenweise ein:

Code (perl): (dl )

#!/usr/bin/perl

# https://www.perl-community.de/bat/poard/thread/19553

use strict;
use warnings;

my $cmd     = 'ping';
my $host    = '127.0.0.1';
my $timeout = 3;
my @cmd     = ( "no output yet" );

eval {
  local $SIG{ALRM} = sub { die "alarm\n" };
  alarm $timeout;

  open my $pipe, '-|', "$cmd -c 5 $host"
    or die "Could not open pipe: $!";
  while ( my $line = <$pipe> ) {
    push @cmd, $line;
  }
  close $pipe;

  alarm 0;
 };

if ($@) {
        print "Output: @cmd\n";

        print "timed out - $@\n";
        warn unless $@ eq "alarm\n";
} else {
        print "Output: @cmd\n";

        print "No time out\n";
}

Last edited: 2015-03-11 16:58:17 +0100 (CET)

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

peterb

2015-03-12 07:32

User since
2010-05-19
42 Artikel
BenutzerIn

Hi Linuxer!

Vielen Dank für deine Antwort, das klappt wunderbar.

LG
Peter

View all threads created 2015-03-11 16:16.