Opened by tribbiani at 2006-07-21 17:55
User since
2006-01-27
3891 Artikel
HausmeisterIn
2006-01-27
3891 Artikel
HausmeisterIn
Hi,
die Zeitangaben sind doch eigentlich die letzten 4 Zeilen auf STDERR. Entferne sie aus @stderr und packe sie in @time.
Doku: perldoc -f splice
\n\n
<!--EDIT|Linuxer|1153505408-->
die Zeitangaben sind doch eigentlich die letzten 4 Zeilen auf STDERR. Entferne sie aus @stderr und packe sie in @time.
Doku: perldoc -f splice
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;
use vars qw/@stdout @stderr $commandline @time /;
$commandline = 'perl sapr.pl';
open (CMD, "(time $commandline | sed 's/^/STDOUT:/') 2>&1 |");
while (<CMD>) {
if (s/^STDOUT://) {
push @stdout, $_;
}
else {
push @stderr, $_;
}
}
close CMD;
@time = splice(@stderr, -4, 4);
print "@time", $/;
<!--EDIT|Linuxer|1153505408-->
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!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!