---

Hej
Normalt ville jeg bruge 'tee' kommandoen til at logge en telnet session
i linux.
Nu er det såden at jeg gerne vil ha' en tidsmærkning på vær' linie.

Dette lille program løser dele af problemet:
#!/usr/bin/perl

while (<STDIN>)
{
$input=<STDIN>;
$date=`date`;
chomp($date);

$tester="$date"." "."$input";

open(OUTPUT,">>./out.log");
print OUTPUT "$tester";
print STDOUT "$tester";

close(OUTPUT);
}

Der er bare det problem, at den ikke skiver alle mine kommandoer, og at
prompten med indtastet kommando (hvis den kommer) først kommer frem
efter enter.
Mvh
Jannik

---

In <3B31A8EA.B0A056AE@orangedk.com> jaton <jaton@orangedk.com> writes:

>Hej
>Normalt ville jeg bruge 'tee' kommandoen til at logge en telnet session
>i linux.
>Nu er det såden at jeg gerne vil ha' en tidsmærkning på vær' linie.

>Dette lille program løser dele af problemet:
>#!/usr/bin/perl

$|=1; # for unbuffered input and output.

Proev det.

Mvh
Martin

---

øøøøhh.... hvordan bare i toppen:

#!/usr/bin/perl

$|=1;

Dette giver ikke noget resultat.

Mvh
Jannik


Martin Moller Pedersen wrote:

> In <3B31A8EA.B0A056AE@orangedk.com> jaton <jaton@orangedk.com> writes:
>
> >Hej
> >Normalt ville jeg bruge 'tee' kommandoen til at logge en telnet session
> >i linux.
> >Nu er det såden at jeg gerne vil ha' en tidsmærkning på vær' linie.
>
> >Dette lille program løser dele af problemet:
> >#!/usr/bin/perl
>
> $|=1; # for unbuffered input and output.
>
> Proev det.
>
> Mvh
> Martin

---

In <3B320541.3BA2879D@orangedk.com> jaton <jaton@orangedk.com> writes:

>øøøøhh.... hvordan bare i toppen:

>#!/usr/bin/perl

>$|=1;

>Dette giver ikke noget resultat.

Du skal tilfoeje linien oeverst i dit program.

/Martin

ps. Svar venligst _under_ og ikke over.


>Mvh
>Jannik


>Martin Moller Pedersen wrote:

>> In <3B31A8EA.B0A056AE@orangedk.com> jaton <jaton@orangedk.com> writes:
>>
>> >Hej
>> >Normalt ville jeg bruge 'tee' kommandoen til at logge en telnet session
>> >i linux.
>> >Nu er det såden at jeg gerne vil ha' en tidsmærkning på vær' linie.
>>
>> >Dette lille program løser dele af problemet:
>> >#!/usr/bin/perl
>>
>> $|=1; # for unbuffered input and output.
>>
>> Proev det.
>>
>> Mvh
>> Martin

---

Hej tusk@daimi.au.dk (Martin Moller Pedersen)

>ps. Svar venligst _under_ og ikke over.

... og klip det bort du ikke svarer på.

--
Lars Kim Lund
http://www.net-faq.dk/

---

Martin Moller Pedersen wrote:

> #!/usr/bin/perl#!/usr/bin/perl
> $|=1;

Dette virker tilsyneladende ikke:

#!/usr/bin/perl
$|=1;

`>./out.log`;
while (<STDIN>)
{
$input=<STDIN>;
$date=`date`;
chomp($date);

$tester="$date"." "."$input";

open(OUTPUT,">>./out.log");
print OUTPUT "$tester";
print STDOUT "$input";

close(OUTPUT);
}

Jeg for stadig ikke noget ud som en prompt, prompten kommer først efter jeg
har trykket enter.
Har du andre ideer?

Mvh
Jannik