[rlug] Re: perl yelp...

[zgrim]

On Fri, 25 Jul 2003, Ovidiu G. wrote:

>  Ce ma intereseaza pe mine e cum obtin a doua valoare (btw, aceasta poate fi
>  exprimata si in K sau alte minuni, M/G/T/etc), gen:
> 
>   2076  194K LOG        all  --  *      *       213.154.100.24       0.0.0.0/0       
>    LOG flags 0 level 4
> 

 if ($linie =~ /\d+\s+(\d+)(\w)/){
        use Switch;
        switch ($2) {
                case "K" { print "$1 kile" }
                case "M" { print "$1 megi" }
                etc
        }
        no Switch;
}

 Nu garantez corectitudinea liniilor de mai sus, dar pot fi un punct de 
plecare.

 Bafta.
zgrim