Perl：基本的な質問、関数の機能

Question

この関数の機能は何ですか？

sub MyDigit { 
     return <<END; 
     0030\t0039 
     END 
    } 

Answer 1

：

print "this is ", 
    "one line when printed, ", 
    "because print takes multiple ", 
    "arguments and prints them all!\n"; 
print "however, you can also " . 
    "concatenate strings together " . 
    "and print them all as one string.\n"; 

print <<DOC; 
But if you have a lot of text to print, 
you can use a "here document" and create 
a literal string that runs until the 
delimiter that was declared with <<. 
DOC 
print "..and now we're back to regular code.\n"; 

このマニュアルの詳細は、マニュアルのperldoc perlopを参照してください。

Answer 2

それが何かは、文字列を返すようにHere Documentと呼ばれる使用しています「0030 \ t0039」"here-document"と呼ばれていますし、連結に代替またはリスト操作として複数の行の上に文字列を分割するために使用されている

Answer 3

これは、文字列"0030\t0039\n"（\t）を返します。改行で改行（明らかに）で終わるので、追加される改行は\nです。

<<FOO 
sometext 
FOO 

は、いわゆるヒアドキュメント、（それが唯一のラインで使用され、ここが）便利な複数行の文字列を記述する方法です。

Answer 4

あなたは簡単な実験を試みることによって自分自身を助けることができる：

C:\Temp> cat t.pl 
#!/usr/bin/perl 

use strict; use warnings; 

print MyDigit(); 

sub MyDigit { 
    return <<END; 
    0030\t0039 
END 
} 

出力：

C:\Temp> t | xxd 
0000000: 2020 2020 3030 3330 0930 3033 390d 0a  0030.0039..

さて、あなたの場合には、ENDは、行の先頭に並んでいないので、あなたはメッセージを受け取ったはずです：

Can't find string terminator "END" anywhere before EOF at …

Answer 5

あなたはすべてを逃した！

\p{MyDigit}と\P{MyDigit}で正規表現を使用するためのユーザー定義プロパティを定義しています。

それはこれらのようなものだ：

sub InKana { 
     return <<'END'; 
    3040 309F 
    30A0 30FF 
    END 
    } 

また、既存のプロパティ名の面で、それを定義することができます。

sub InKana { 
     return <<'END'; 
    +utf8::InHiragana 
    +utf8::InKatakana 
    END 
    } 

あなたはまた、 "C < - >" を使用して減算を設定しないことができ接頭辞を。 だけが文字のブロック範囲だけでなく、実際の文字を必要としていたとします。 あなたはこのようなすべての未定義のもの取り除くことができます：

sub IsKana { 
     return <<'END'; 
    +utf8::InHiragana 
    +utf8::InKatakana 
    -utf8::IsCn 
    END 
    } 

をあなたはまた、「C」の接頭辞を使用して補完文字セットで起動することができます。

sub IsNotKana { 
     return <<'END'; 
    !utf8::InHiragana 
    -utf8::InKatakana 
    +utf8::IsCn 
    END 
    } 

私は右でなければならない把握、以来、私はex camelisと話しています。 :)