Ako zaokrúhliť na celé číslo v Perlu

Perl nemá vstavané funkcie špeciálne navrhnutý tak , aby zaokrúhľovať čísla s plávajúcou desatinnou čiarkou na celé čísla , ale môžete napísať svoj ​​vlastný funkciu , ktorá zahŕňa funkcie sprintf zaokrúhliť tieto čísla na najbližšie celé . Funkcie sprintf prijíma dva argumenty , formát a zoznam . Zoznam je jednoducho číslo , ktoré chcete zaokrúhliť smerom nahor alebo nadol . Použite " % 0,0 f " ako formát , ktorý rozpráva o funkciu , ktorá je číslo s plávajúcou desatinnou čiarkou a chcete zaokrúhliť ho na nulu číslic za desatinnou čiarkou . Pokyny dovolená 1

Otvorte súbor programu v Perlu . Zadajte nasledujúci kód :

sub intCheck {

my $ num = shift ;

vrátiť ( $ num = ~ m /^ \\ d + $ /) ;

}

To vytvára funkciu s názvom " intCheck " , ktorý ako prvý dostane argument odovzdaný k nemu a uloží ju do premennej s názvom " $ num , " vráti " true " , ak toto číslo je celé číslo alebo " false " , ak to nie je
2

zadajte nasledujúci kód : .

sub kolo {

my $ var = shift ;

if ( intCheck ( $ var - 0,5 ) ) { $ var = $ var + 0,1 ; }

návrat sprintf ( " % .0 f " , $ var ) ;

}

To vytvára funkciu s názvom " kolo . " To dostane argument odovzdaný k nemu a uloží ho do " $ var " premenné . Potom zavolá funkciu intCheck a prechádza premenný počet mínus 0,5 . Keď je funkcia intCheck vracia " true " , $ var má 0,1 do nej pridať . Kolo funkcie potom zaokrúhli premennej na najbližšie celé číslo a vráti ho
3

zadajte nasledujúci kód : .

Tlač guľatý ( 4.49 ) . " \\ N " ;

tlač kolo ( 4.51 ) . " \\ N " ;

tlač kolo ( 4.5 ) . " \\ N " ;

Tieto riadky otestovať guľatý funkciu . Prvý riadok zaokrúhli nadol na štyri a ďalšie dva riadky zaokrúhliť na päť .
4

Uložte súbor Perl .

• Predchádzajúca strana: Ako zistiť , koľko prvkov v poli pomocou Perlu 
• Ďalšia strana: Ako odstrániť HTML súbory v adresári v Perle