기능 substr() 에서는 Perl

에서는 Perl 프로그래밍 언어가 내장된 기능 substr(). 이 기능을 사용할 수 있습니다 작업을 할 때 문자열입니다. 이 기능을 사용하여,당신은 당신을 얻을 수 있는 부분의 문자열,또는 대체하는 문자열의 일부와는 또 다른 문자열입니다.

여기에는 예의를 받는 일부의 문자열:

▶ Run
#!/usr/bin/perl

my $str = 'Hello, world!';

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

이 프로그램에 텍스트가 표시됩 'world'. 호출 기능 substr($str, 7, 5)말 당신이해야에서 얻을 선 $str 다섯 캐릭터에서 시작,일곱 번째 위치. 이 사용 값 $str 변경되지 않습니다.

을 사용할 때 substr() 과 함께 네 개의 인수 값을 변경하는 변수. 여기에 예를 사용하여 substr() 체:

▶ Run
#!/usr/bin/perl

my $str = 'Hello, world!';

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

출력 프로그램의:

'world'
Hello, you!

반환 값을 호출할 때 substr($str, 7, 5, 'you') 은 정확히 동일한으로 전화할 때 substr($str, 7, 5), 하지만 통과 함께 네 개의 인수와 심지어 변경된 값 변수입니다. 어 world 에 의해 대체되었다 you. 하십시오 참고로 교체를 정확했다는 사실에도 불구하고에서 원래의 말씀과 새로운 단어를 다른 번호 편지입니다.

인수

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

기능 substr() 지정해야 합니다 두,세 개 또는 네 개의 인수입니다.

는 경우에 당신이 시도하는 경우 기능을 사용하려면 substr() 인수 없이,또는 중 인수,그것은 오류가:

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

을 사용할 때는 두 개의 인수 substr($str, $offset) 을 반환됩니다 모든 문자는 문자열에서 $str 문자로 시작하에 위치 $offset 합니다.

을 사용할 때 세 가지 주 substr($str, $offset, $length) 개의 반환됩니다 $length 문자는 문자열에서 $str 개 문자로 시작하에 위치 $offset.

을 사용할 때 substr() 으로 두 개 또는 세 개의 인수,원래의 문자열 값 변경되지 않습니다.

당신이 사용하는 경우 네 개의 인수 substr($str, $offset, $replacement)능 반환합니다 같은 경우에는 세 개의 인수지만,또한 대체 원래의 문자열 값에 의해 얻은 $replacement.

반환 값

기능 substr() 월 중 하나를 반환 undef,또는 문자열입니다.

undef 반환되는 경우에 당신을 얻을 하려고 요소에서 문자열 인덱스보다 더 큰 문자열의 길이. 여기에 샘플 프로그램를 반환하는 undef:

▶ Run
#!/usr/bin/perl

use Data::Dumper;

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

warn Dumper $str1;

에 이벤트는 경우 프로그램 코드의 것 use warnings;,여전히 프로그램 이 밖에 경고 화면:

substr outside of string at script.pl line 8.

부정적인 값 $offset

기능 substr() 을 지정할 수 있습니다 부정적인 값을 위한 두 번째 인수로 합니다. 예제 프로그램:

▶ Run
#!/usr/bin/perl

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

화면 텍스트가 표시됩니다 ld! 은 지난 세 개의 문자열에서 Hello, world!.

부정적인 두 번째 인수 제안하는 위치에서 계산합니다.

항목 substr($str, -3) 매우 유사 substr($str, -3, 3).

부정적인 값 $length

의 값을 세 번째 인수할 수 있습니다.* 여기서의 예:

▶ 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

공식적인 문서

여기에 출력하는 명령의 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.

관련 주제

다른 기사