Fungsi substr() di Perl

Dalam bahasa pemrograman Perl memiliki fungsi built-in substr(). Anda dapat menggunakan fungsi ini ketika bekerja dengan string. Dengan menggunakan fungsi ini, anda bisa mendapatkan bagian dari string, atau untuk mengganti bagian dari suatu string dengan string yang lain.

Berikut adalah contoh dari menerima bagian dari string:

▶ Run
#!/usr/bin/perl

my $str = 'Hello, world!';

print "'" . substr($str, 7, 5) . "'";

Program ini menampilkan teks 'world'. Fungsi panggilan substr($str, 7, 5)kata anda perlu untuk mendapatkan dari garis $str lima karakter, dimulai dari posisi ketujuh. Dalam penggunaan ini nilai $str tidak berubah.

Ketika menggunakan substr() dengan empat argumen perubahan nilai variabel. Berikut adalah contoh menggunakan substr() untuk mengganti:

▶ Run
#!/usr/bin/perl

my $str = 'Hello, world!';

print "'" . substr($str, 7, 5, 'you') . "'\n";
print $str;

Output dari program ini:

'world'
Hello, you!

Nilai kembali ketika anda menelepon substr($str, 7, 5, 'you') adalah persis sama seperti ketika anda menelepon substr($str, 7, 5), tapi panggilan dengan empat argumen dan bahkan mengubah nilai dari variabel. Kata world digantikan oleh you. Silahkan perhatikan bahwa penggantian adalah benar meskipun fakta bahwa kata asli dan kata baru nomor yang berbeda huruf-huruf.

Argumen

my $str1 = substr($str, $offset);
my $str2 = substr($str, $offset, $length);
my $str3 = substr($str, $offset, $replacement);

Fungsi substr() , anda harus menentukan dua, tiga, atau empat argumen.

Dalam kasus jika anda mencoba untuk menggunakan fungsi substr() dengan tidak ada argumen, atau dengan salah satu argumen, maka akan error:

Not enough arguments for substr at script.pl line 3, near "substr()"
Execution of script.pl aborted due to compilation errors.

Bila menggunakan dua argumen substr($str, $offset) kembali fungsi semua karakter dari string $str dimulai dengan karakter pada posisi $offset ke akhir baris.

Ketika menggunakan tiga argumen substr($str, $offset, $length) kembali fungsi $length karakter dari string $str dimulai dengan karakter pada posisi $offset.

Ketika menggunakan substr() dengan dua atau tiga argumen, asli nilai string tidak berubah.

Jika anda menggunakan empat argumen substr($str, $offset, $replacement)fungsi kembali sama seperti pada kasus tiga argumen, tetapi juga mengganti string asli, nilai yang diperoleh oleh $replacement.

Nilai kembali

Fungsi substr() dapat kembali baik undef, atau string.

undef kembali jika anda mencoba untuk mendapatkan elemen dari string indeks yang lebih besar dari panjang string. Berikut ini adalah contoh program yang mengembalikan undef:

▶ Run
#!/usr/bin/perl

use Data::Dumper;

my $str = 'Hello, world!';
my $str1 = substr($str, 10000);

warn Dumper $str1;

Dalam hal jika pada kode program akan use warnings;, program ini masih akan selain itu menempatkan pada layar peringatan:

substr outside of string at script.pl line 8.

Nilai-nilai negatif $offset

Fungsi substr() memungkinkan anda untuk menentukan nilai-nilai negatif untuk argumen kedua. Contoh program:

▶ Run
#!/usr/bin/perl

my $str = 'Hello, world!';
print substr($str, -3);

Layar akan menampilkan teks ld! adalah tiga karakter terakhir dari string Hello, world!.

Negatif argumen kedua menunjukkan bahwa posisi dihitung dari akhir baris.

Entri substr($str, -3) ini sangat mirip substr($str, -3, 3).

Nilai-nilai negatif $length

Nilai argumen ketiga dapat menjadi negatif. Berikut ini adalah contoh dari:

▶ Run
#!/usr/bin/perl

use feature qw(say);

my $str = 'Hello, world!';

say substr($str, 7, -1); # world
say substr($str, 7, -2); # worl
say substr($str, 7, -3); # wor

Dokumentasi resmi

Berikut ini adalah output dari perintah perldoc -f substr:

    substr EXPR,OFFSET,LENGTH,REPLACEMENT
    substr EXPR,OFFSET,LENGTH
    substr EXPR,OFFSET
            Extracts a substring out of EXPR and returns it. First character
            is at offset zero. If OFFSET is negative, starts that far back
            from the end of the string. If LENGTH is omitted, returns
            everything through the end of the string. If LENGTH is negative,
            leaves that many characters off the end of the string.

                my $s = "The black cat climbed the green tree";
                my $color  = substr $s, 4, 5;      # black
                my $middle = substr $s, 4, -11;    # black cat climbed the
                my $end    = substr $s, 14;        # climbed the green tree
                my $tail   = substr $s, -4;        # tree
                my $z      = substr $s, -4, 2;     # tr

            You can use the "substr" function as an lvalue, in which case
            EXPR must itself be an lvalue. If you assign something shorter
            than LENGTH, the string will shrink, and if you assign something
            longer than LENGTH, the string will grow to accommodate it. To
            keep the string the same length, you may need to pad or chop
            your value using "sprintf".

            If OFFSET and LENGTH specify a substring that is partly outside
            the string, only the part within the string is returned. If the
            substring is beyond either end of the string, "substr" returns
            the undefined value and produces a warning. When used as an
            lvalue, specifying a substring that is entirely outside the
            string raises an exception. Here's an example showing the
            behavior for boundary cases:

                my $name = 'fred';
                substr($name, 4) = 'dy';         # $name is now 'freddy'
                my $null = substr $name, 6, 2;   # returns "" (no warning)
                my $oops = substr $name, 7;      # returns undef, with warning
                substr($name, 7) = 'gap';        # raises an exception

            An alternative to using "substr" as an lvalue is to specify the
            replacement string as the 4th argument. This allows you to
            replace parts of the EXPR and return what was there before in
            one operation, just as you can with "splice".

                my $s = "The black cat climbed the green tree";
                my $z = substr $s, 14, 7, "jumped from";    # climbed
                # $s is now "The black cat jumped from the green tree"

            Note that the lvalue returned by the three-argument version of
            "substr" acts as a 'magic bullet'; each time it is assigned to,
            it remembers which part of the original string is being
            modified; for example:

                my $x = '1234';
                for (substr($x,1,2)) {
                    $_ = 'a';   print $x,"\n";    # prints 1a4
                    $_ = 'xyz'; print $x,"\n";    # prints 1xyz4
                    $x = '56789';
                    $_ = 'pq';  print $x,"\n";    # prints 5pq9
                }

            With negative offsets, it remembers its position from the end of
            the string when the target string is modified:

                my $x = '1234';
                for (substr($x, -3, 2)) {
                    $_ = 'a';   print $x,"\n";    # prints 1a4, as above
                    $x = 'abcdefg';
                    print $_,"\n";                # prints f
                }

            Prior to Perl version 5.10, the result of using an lvalue
            multiple times was unspecified. Prior to 5.16, the result with
            negative offsets was unspecified.

Topik terkait

Artikel lainnya