Perl | Math::BigInt->bone() method

Math::BigInt module in Perl provides objects that represent integers with arbitrary precision and overloaded arithmetical operators. bone() method of Math::BigInt module is used to create a new object with value one and if used on an existing object, it sets it to one.

Syntax: Math::BigInt->bone() Parameter: plus or minus: to set the sign of one as '+' or '-' Returns: object with value one

Example 1:

perl

#!/usr/bin/perl  
  
# Import Math::BigInt module 
use Math::BigInt; 
 
# Create a BigInt object 
$x = Math::BigInt->bone();

# Object created with bone()
print("$x\n");

# Create a BigInt object 
$x = Math::BigInt->bone('-');

# Object created with bone()
print("$x");

Output:

1
-1

Example 2:

perl

#!/usr/bin/perl  
  
# Import Math::BigInt module 
use Math::BigInt; 
  
# Specify number 
$num = 78215936043546; 
  
# Create BigInt object 
$x = Math::BigInt->new($num); 

# Object before function call
print("Before function call: $x\n"); 

# Calling the function
$x->bone();

# Object after function call
print("After function call: $x");

Output:

Before function call: 78215936043546
After function call: 1

Example 3:

perl

#!/usr/bin/perl  
  
# Import Math::BigInt module 
use Math::BigInt; 
  
# Specify number 
$num = 78215936043546; 
  
# Create BigInt object 
$x = Math::BigInt->new($num); 

# Object before function call
print("Before function call: $x\n"); 

# Calling the function with '-' sign
$x->bone('-');

# Object after function call
print("After function call: $x");

Output:

Before function call: 78215936043546
After function call: -1

Perl | Math::BigInt->bone() method

Explore