Perl , eller praktiske Extraction and Report Language , er en datamaskin skriptspråk optimalisert for operasjoner på store mengder mønstrede data . Imidlertid kan Perl også håndtere de fleste normale matematiske beregninger , for eksempel kvadratroten . Ved å bruke eksterne pakker , kan Perl kvadratroten funksjon til å fungere på alle formater av numeriske data er tilgjengelige i Perl. Square Root

Perl grunnpakken inneholder flere grunnleggende matematiske funksjoner , inkludert kvadratroten . Perl sqrt ( )-funksjonen tar kvadratroten av et tall gitt som argument . Hvis argumentet er ikke inkludert , den sqrt ( )-funksjonen opererer på $ _ variabelen

$ resultat = sqrt ( $ some_number ); . Print $ resultat ;
komplekse tall

Som standard tar kvadratroten av et negativt tall vil returnere en feil i Perl. Men hvis du har tatt den " Math :: Complex "-pakken, kan alle matematiske operasjoner utføres på komplekse tall. Pakker er inkludert i Perl filer ved hjelp av bruk kommandoen

bruk Math :: Complex ; . $ My_root = sqrt ( -144 ) ; # Returnerer 12iprint $ my_root ;
andre Roots

en rot tilsvarer et tall opphøyd i en brøk eksponent . Å ta en rot annet enn en kvadratroten i Perl , bruker den eksponentielle operatør " **" med en brøk eksponent . For eksempel , for å ta kubikkroten av et tall, bruker du følgende kode

$ cube_root = $ my_num ** (1/3 ) ; . Print $ cube_root ;
Sample program

å få fullt kjøre et prøveprogram i Perl å ta plassen eller annet rot , utføre følgende program .

#! /usr /bin /local /perl

$ my_num = 64 , $ my_root = 3;

printf 'The kvadratroten av % 1 % d er% 2 % f \\ n ". , $ my_num , sqrt ( $ my_num ) ; printf ' . % 1 % d roten av % 2 % d er% 3 % f \\ n ", $ my_root , $ my_num , ($ my_num ** ( 1 /$ my_root ) ) ;