Fungsi abs() di Perl

Dalam bahasa pemrograman Perl memiliki fungsi built-in abs(). Fungsi ini mengembalikan nilai modulus argumen.

Berikut ini sebuah contoh:

▶ Run
#!/usr/bin/perl

print abs( -3.14159265358979 );

Program ini menampilkan 3.14159265358979.

Argumen

my $abs_value = abs($value);

Jika fungsi abs() untuk lulus satu argumen, fungsi akan beroperasi pada itu.

Jika anda tidak lulus setiap argumen, fungsi akan bekerja dengan default variabel $_. Berikut adalah contoh (program menampilkan jumlah 8):

▶ Run
#!/usr/bin/perl

$_ = -8;

print abs();

Jika fungsi abs() lulus lebih dari satu argumen, maka akan error:

Too many arguments for abs at script.pl line 3, near "2)"
Execution of script.pl aborted due to compilation errors.

Jika fungsi berlalu string, itu diubah menjadi angka. Baca lebih lanjut tentang bagaimana Perl mengkonversi string ke bilangan.

Berikut adalah contoh kode di mana fungsi abs() bekerja dengan string:

▶ Run
#!/usr/bin/perl

use strict;
use warnings;
use feature qw(say);

say abs('Hello');
say abs('-100asdf');
say abs(' -123JK');

Program ini akan menampilkan:

0
100
123
Argument "Hello" isn't numeric in abs at script.pl line 7.
Argument "-100asdf" isn't numeric in abs at script.pl line 8.
Argument " -123JK" isn't numeric in abs at script.pl line 9.

Jika argumen untuk menggunakan undef, fungsi ini akan mengembalikan jumlah 0, tapi jika kode telah use warnings;, anda akan melihat peringatan Use of uninitialized value in abs at script.pl line 6..

Nilai kembali

Fungsi abs() selalu kembali non-angka negatif.

Dokumentasi resmi

Berikut ini adalah output dari perintah perldoc -f abs:

    abs VALUE
    abs     Returns the absolute value of its argument. If VALUE is omitted,
            uses $_.

Topik terkait

Artikel lainnya