---

Hej!

Jeg kalder et perl-script på en anden maskine via SSH - problemet er, at
scriptet smider noget output, og også forventer noget input. I øjeblikket må
jeg taste i "blinde", da outputtet fra perl-scriptet først kommer, når
scriptet/ssh-forbindelsen lukkes igen... Hvorfor ?

Perl scriptet bruger standard print ""; og ReadLine(0) statements - men
intet ryger over med det samme i SSH-forbindelsen... Den æder godt nok mit
input (fra ReadLine(0)) - men hvor er de ting fra print ""; blevet af, siden
de først dukker op til sidst ?

Mvh.

/Brian

---

"Brian Ipsen" <bipsen@andebakken.dk> wrote in message
news:3f55bf26$0$13187$edfadb0f@dread15.news.tele.dk...

> Jeg kalder et perl-script på en anden maskine via SSH - problemet er, at
> scriptet smider noget output, og også forventer noget input. I øjeblikket
må
> jeg taste i "blinde", da outputtet fra perl-scriptet først kommer, når
> scriptet/ssh-forbindelsen lukkes igen... Hvorfor ?
>
> Perl scriptet bruger standard print ""; og ReadLine(0) statements - men
> intet ryger over med det samme i SSH-forbindelsen... Den æder godt nok mit
> input (fra ReadLine(0)) - men hvor er de ting fra print ""; blevet af,
siden
> de først dukker op til sidst ?

Dette simple script illusterer problemet:

#!/usr/bin/perl
use Term::ReadKey;
print "test\n\n";
my $rr = ReadLine(0);
print "test2\n";

Når scriptet kører via SSH står det bare og venter - så kan jeg skrive
f.eks. ff og trykke enter ... og så kommer følgende på min skræm:

# ssh root@test-pc /root/script/test.pl
ff
test

test2


Hvorfor får jeg ikke "test" tilbage på min maskine, før scriptet vil have
input ?

/Brian

---

"Brian Ipsen" <bipsen@andebakken.dk> writes:

> #!/usr/bin/perl
> use Term::ReadKey;
> print "test\n\n";
> my $rr = ReadLine(0);
> print "test2\n";
>
> Når scriptet kører via SSH står det bare og venter - så kan jeg skrive
> f.eks. ff og trykke enter ... og så kommer følgende på min skræm:

Prøv om det hjælper at sætte $| = 1.

--
Peter Makholm | I have no caps-lock but I must scream...
peter@makholm.net | -- Greg
http://hacking.dk |

---

"Peter Makholm" <peter@makholm.net> wrote in message
news:87d6eigneb.fsf@xyzzy.adsl.dk...

> > #!/usr/bin/perl
> > use Term::ReadKey;
> > print "test\n\n";
> > my $rr = ReadLine(0);
> > print "test2\n";
> >
> > Når scriptet kører via SSH står det bare og venter - så kan jeg skrive
> > f.eks. ff og trykke enter ... og så kommer følgende på min skræm:
>
> Prøv om det hjælper at sætte $| = 1.

Det løste problemet - mange tak!

/Brian

---

"Brian Ipsen" <bipsen@andebakken.dk> writes:

>> Prøv om det hjælper at sætte $| = 1.
>
> Det løste problemet - mange tak!

Ok, problemet er/var at STDOUT bliver buffret. Ovenstående gør at perl
flusher denne buffer efter hver print-komando.

--
Peter Makholm | Why does the entertainment industry wants us to
peter@makholm.net | believe that a society base on full surveillance
http://hacking.dk | is bad?
| Do they have something to hide?