Datamaskin
  | Hjem | Hardware | Nettverk | Programmering | Software | Feilsøking | Systems | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringsspråk
  • Delphi Programming
  • Java Programming
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl Programming
  • Python Programming
  • Ruby Programming
  • Visual Basics Programming
  •  
    Datamaskin >> Programmering >> Perl Programming >> Content
    Hvordan Rund til et heltall i Perl
    Perl ikke har en innebygd funksjon spesielt utviklet for å avrunde flyttall til heltall , men du kan skrive din egen funksjon som inkorporerer sprintf funksjon å runde disse tallene til nærmeste hele . Den sprintf funksjonen tar to argumenter, et format og en liste . Listen er ganske enkelt nummeret du ønsker å runde opp eller ned. Bruk "% 0,0 f" som format , som forteller funksjon som nummeret er flyttall og du vil avrunde den til null siffer etter desimaltegnet . Instruksjoner
    en

    Åpne et Perl program fil . Skriv inn følgende kode :

    sub intCheck {

    min $ num = shift ;

    avkastning ( $ num = ~ m /^ \\ d + $ /) ;

    }

    Dette skaper en funksjon som heter " intCheck " som først får et argument sendes til det, og lagrer det til en variabel kalt " $ num , " deretter returnerer "true" dersom det tallet er et heltall . eller " false" hvis det ikke er
    2

    Skriv inn følgende kode :

    sub runde {

    min $ var = shift ;
    < p > if ( intCheck ( $ var - 0,5 ) ) {$ var = $ var + 0,1; }

    retur sprintf ( "% 0,0 f" , $ var ) ;

    }

    Dette skaper en funksjon som heter "runde ". Det blir argumentet gått til det og lagrer det i " $ var " variable . Det kaller deretter intCheck funksjon og passerer variabelt antall minus 0,5 . Hvis intCheck funksjonen returnerer "true ", den $ var har 0,1 lagt til. Funksjonen round deretter runder variable til nærmeste hele tall og returnerer det
    3

    Skriv inn følgende kode : .

    Print runde ( 4,49 ) . "\\ n";

    print runde ( 4.51 ) . "\\ n";

    print runde ( 4,5 ) . "\\ n";

    Disse linjene teste runde funksjon . Den første linjen runder ned til fire og de ​​neste to linjer runde opp til fem .
    4

    Lagre Perl -filen.

    früher :

     Weiter:
      Relatert Artike
    ·Hvordan å feilsøke Perl på Windows 
    ·Regular Expressions å matche en XML Element 
    ·Hvordan Inkluder en PerlScript i et HTML-dokument 
    ·Hvordan du manuelt installerer Perl Module på Windows …
    ·Slik installerer Perl DBD - ODBC på AIX 
    ·Slik fjerner du en Carriage Return Fra en String i Perl…
    ·Hvordan lage en fil med Perl 
    ·Hvordan lage et Mens erklæringen i Perl 
    ·Hvordan finne lengden på en Array i Perl 
    ·Hvordan lage en gjøre mens Loop i Perl 
      Anbefalte artikler
    ·Sette inn en Integer Into en String 
    ·Hvordan å omdirigere til en annen side når Session Ti…
    ·Hvordan lage en forestilling for å avslutte et skjema …
    ·Hvordan lage en tekstfil i Visual Basic 6 
    ·Hvordan skrive Binary Fil en Sample kode i C 
    ·Programmering 3D spill i Java 
    ·Slik bruker du en tekstboks for File Name VB6 
    ·Hvordan bruke integrerte rammer med Flash 8 
    ·Hvordan legge til flere numre ved hjelp av Javascript 
    ·Målet avhør i C Programming 
    Copyright ©  Datamaskin  http://www.datamaskin.biz/