🚀 go-pugleaf

Ha scritto hansmbg@algonet.se (Hans Malmberg):
>Men, n�r jag �ppnar filen och g�r in i en while-slinga m�ste jag
>'sl� vagnretur' f�r varje hopp genom slingan. Jag f�rst�r inte
>varf�r while-slingan v�nar p� vagnretur. 

Men det g�r jag. :-)

>#!/usr/local/bin/perl
># skapa fil
>`checktime -l > tidsfil`;
>$i = 0;
>open(TIDER,"tidsfil");
>while(<>) {

"while (<>)" �r en kortform f�r:

    while ($_ = <STDIN>)

Dvs du l�ser en rad fr�n STDIN och l�gger den i $_. Och STDIN �r din 
terminal, s� du m�ste vagnretur f�r varje rad.

Vad du vill s�ga �r:

   while ($buffer = <TIDER>) 

Du kan ocks� skippa tidsfilen. F�ljande g�r alldeles utm�rkt:

   open(TIDER, "checktime -l|")

D� l�ser du direkt fr�n utmatningen p� checktime.

>   $buffer = <TIDER>;
>   print "$buffer\n";

Det h�r ser underligt ut. Det finns ju redan ett radslut i $buffer, s�
varf�r l�gga till ett i print-satsen. Eller vill du ha en blank rad 
mellan varje rad?

>   print "$pieces[1] $pieces[2] $pieces[3] $pieces[4] $pieces[12]\n";

eller 

    print "@pieces[1..4, 12]\n";

Som sagt, du skulle nog fundera p� den d�r Perl-boken. Jag tror du skulle
ha stort utbyte av den.


--
Erland Sommarskog, Stockholm, sommar@algonet.se
"Carl Bildt s�ger mer �n tusen ord" - Ny Teknik 47/95.