tee ( , - ) , tee . , tail -f -s 0.01 ( 100/) / - split --filter='sort -sm' .
tai64n, perl:
tai64n() {
perl -MTime::HiRes=time -pe '
printf "\@4%015x%x%n", split(/\./,time), $c; print 0 x(25-$c) . " "'
}
sh bash, perl:
slow() {
pv -qL 30
}
tai64n_and_tee() {
perl -MTime::HiRes=time -e '
$_ = shift;
open(TEE, "> $_") or die $!;
while (<>) {
$_ = sprintf("\@4%015x%x%n", split(/\./,time), $c) . 0 x(25-$c) . " $_";
print TEE $_;
print $_;
}
' "$1"
}
seq 000 099 | slow | tai64n_and_tee seq.1 &
seq 100 199 | slow | tai64n_and_tee seq.2 &
wait
, perl . perl, tai64n, perl, tee, tai64n.