Perl, o Practical Extraction and Report Language, è un linguaggio di scripting di computer ottimizzato per operazioni su grandi quantità di dati di fantasia. Tuttavia, Perl è in grado di gestire anche i calcoli matematici più normali, come la radice quadrata. Utilizzando pacchetti esterni, la funzione di radice quadrata di Perl può operare su qualsiasi formato di dati numerici disponibili in Perl.

Radice quadrata

Il pacchetto base di Perl contiene diverse funzioni di base matematiche, tra cui la radice quadrata. La funzione sqrt Perl prende la radice quadrata di un numero qualsiasi dato come argomento. Se l'argomento non è incluso, la funzione sqrt () agisce sulla variabile $_.

$result = sqrt($some_number);
stampa $result;

Numeri complessi

Per impostazione predefinita, prendendo una radice quadrata di un numero negativo restituirà un errore in Perl. Tuttavia, se è stato incluso il pacchetto "Math::Complex", tutte le operazioni matematiche possono essere eseguite su numeri complessi. Pacchetti sono inclusi nei file Perl utilizzando il comando use.

utilizzare Math::Complex;
$my_root = sqrt(-144); #returns 12i
stampa $my_root;

Altre radici

Una radice è equivalente a un numero elevato a un esponente frazionario. Per prendere una radice diverso da una radice quadrata in Perl, utilizzare l'operatore esponenziale "* *" con un esponente frazionario. Ad esempio, per prendere la radice cubica di un numero, è possibile utilizzare il codice riportato di seguito.

$cube_root = $my_num * * (1/3);
stampa $cube_root;

Programma di esempio

Per eseguire completamente un programma di esempio in Perl per prendere la piazza o altra radice, eseguire il seguente programma.

! /usr/bin/local/perl

$my_num = 64;
$my_root = 3;

printf ' la radice quadrata di %1 %d è %2 %f. \n ", $my_num, sqrt($my_num);
printf ' la radice di %d di %1% 2 %d è %3 %f. \n ", $my_root, $my_num, ($my_num * * (1 / $my_root));