Perl: question de base, fonctionnalité fonctionnelle

Question

Que fait cette fonction?

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

Answer 1

Ce qu'on appelle un "here-document", et est utilisé pour briser les chaînes au-dessus de plusieurs lignes comme une alternative à la concaténation ou les opérations de liste:

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"; 

Vous pouvez en savoir plus sur ici-documents dans le manuel: voir perldoc perlop.

Answer 2

Il utilise ce qu'on appelle un Here Document pour retourner une chaîne « 0030 \ t0039 »

Answer 3

Renvoie la chaîne "0030\t0039\n" (\t étant un onglet et \n un saut de ligne qui est ajouté car la ligne se termine par un saut de ligne (évidemment)).

<<FOO 
sometext 
FOO 

Est-ce un soi-disant heredoc, une façon d'écrire facilement des chaînes multi-lignes (mais ici il est utilisé avec une seule ligne).

Answer 4

Vous pouvez vous aider en essayant une expérience simple:

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

use strict; use warnings; 

print MyDigit(); 

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

Sortie:

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

Maintenant, dans votre cas, le END n'est pas aligné au début de la ligne, donc vous devriez avoir le message:

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

Answer 5

Vous avez tous manqué le point!

Il définit une propriété définie par l'utilisateur à utiliser dans \p{MyDigit} et \P{MyDigit} en utilisant des expressions régulières.

Il est comme ces:

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

Sinon, vous pouvez le définir en termes de noms de propriété existants:

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

Vous pouvez également faire la soustraction définies à l'aide d'un "C < ->" préfixe . Supposons que vous seulement voulez les caractères réels, pas seulement les plages de blocs de caractères. Vous pouvez éliminer tous les non définis comme ceci:

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

Vous pouvez également commencer par un caractère complété défini à l'aide du préfixe « C »:

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

Je me dis que je dois être juste, puisque Je parle ex camelis. :)