Chức năng substr() trong Perl

Perl ngôn ngữ đã được tích hợp trong chức năng substr(). Bạn có thể sử dụng năng này khi làm việc với dây. Sử dụng năng này, bạn có thể có được một phần của một chuỗi, hoặc để thay thế một phần của một chuỗi với một chuỗi.

Đây là một ví dụ về việc nhận được phần của một chuỗi:

▶ Run
#!/usr/bin/perl

my $str = 'Hello, world!';

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

Này, chương trình hiển thị các văn bản 'world'. Chức năng gọi substr($str, 7, 5)nói bạn cần để có được từ dòng $str năm nhân vật, bắt đầu từ vị trí thứ bảy. Trong việc sử dụng này các giá trị $str không thay đổi.

Khi sử dụng substr() với bốn lập luận thay đổi giá trị của một biến. Đây là một ví dụ sử dụng substr() để thay thế:

▶ Run
#!/usr/bin/perl

my $str = 'Hello, world!';

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

Đầu của chương trình này:

'world'
Hello, you!

Trở lại giá trị khi bạn gọi substr($str, 7, 5, 'you') chính xác là giống như khi bạn gọi substr($str, 7, 5), nhưng các cuộc gọi với bốn lập luận và thậm chí thay đổi giá trị của biến. Từ world đã được thay thế bởi you. Xin vui lòng lưu ý rằng các thay thế là đúng bất chấp thực tế là trong từ ban đầu, và những từ mới, một số khác nhau chữ cái.

Lập luận

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

Chức năng substr() , bạn phải xác định hai, ba, hoặc bốn, lập luận.

Trong trường hợp nếu anh cố gắng sử dụng các chức năng substr() không có lý luận, hoặc với ai tranh luận, nó sẽ lỗi:

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

Khi sử dụng hai lập luận substr($str, $offset) các chức năng trở về tất cả các nhân vật từ những chuỗi $str bắt đầu với các nhân vật ở vị trí $offset đến cuối hàng.

Khi sử dụng ba lập luận substr($str, $offset, $length) các chức năng trở về $length vật từ một chuỗi $str bắt đầu với các nhân vật ở vị trí $offset.

Khi sử dụng substr() với hai hoặc ba tranh luận, các ban đầu chuỗi giá trị không thay đổi.

Nếu bạn sử dụng bốn lập luận substr($str, $offset, $replacement)chức năng trở lại giống như trong trường hợp của ba lập luận, nhưng ngoài ra thay thế trong các ban đầu chuỗi các giá trị thu được bằng $replacement.

Trở lại giá trị

Chức năng substr() có thể trả lại dù undef, hay một chuỗi.

undef được trả lại nếu bạn cố gắng để có được nguyên tố từ chuỗi chỉ số mà là cao hơn so với chiều dài của chuỗi. Đây là một mẫu chương trình trở về undef:

▶ Run
#!/usr/bin/perl

use Data::Dumper;

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

warn Dumper $str1;

Trong những sự kiện nếu trong chương trình mã sẽ được use warnings;, chương trình sẽ vẫn ngoài ra, đặt trên màn hình cảnh báo:

substr outside of string at script.pl line 8.

Tiêu cực giá trị $offset

Chức năng substr() bạn đến xác định giá trị cho các số thứ hai. Chương trình ví dụ:

▶ Run
#!/usr/bin/perl

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

Màn hình hiển thị các văn bản ld! là ba nhân vật cuối cùng từ chuỗi Hello, world!.

Một tiêu cực số thứ hai cho thấy rằng các vị trí sẽ được tính từ cuối hàng.

Mục substr($str, -3) là khá giống substr($str, -3, 3).

Tiêu cực giá trị $length

Các giá trị của số thứ ba có thể là tiêu cực. Đây là ví dụ:

▶ 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

Tài liệu chính thức

Đây là kết quả của sự chỉ huy 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.

Chủ đề liên quan

Các bài viết khác