Início / coding / Perguntas / 77154306
Accepted
POVR2
Asked: 2023-09-22 08:34:57 +0800 CST

Como adicionar endereço de email a string em Perl? ( "@" personagem )

  • 772

Eu tenho algum código Perl abaixo:

    my $formattedUserEmail = $[UserEmail];
    
    $additionalTestParameters .= "ECJOBLink,$jobLink;ECJOBId,$[jobId];EcJobCounter,$jobCounter,PFUser,$formattedUserEmail";

Quando o código Perl é executado, vejo o conteúdo de cada var abaixo:

    my $formattedUserEmail = [email protected]; 
    
    $additionalTestParameters .= "ECJOBLink,$jobLink;ECJOBId,1111;EcJobCounter,$jobCounter,PFUser,$formattedUserEmail";

Mas quando o código é executado, resulta em erros, acredito por causa do [email protected]endereço de e-mail, especificamente do @caractere, que é um símbolo especial em Perl.

Array found where operator expected at ... line 32, at end of line
syntax error at .... line 32, near "adam@site"
Global symbol "@site" requires explicit package name at C.... line 32.
Execution of ..... aborted due to compilation errors.

Como posso corrigir meu código para que o email var seja adicionado à $additionalTestParametersstring?

perl

2 respostas

  1. Best Answer

    $[UserEmail]parece suspeito.

    Se for um HASH(como o dict do Python), deveria ser ${'UserEmail'}.

    $[UserEmail]é para um ARRAYmembro e UserEmaildeve ser uma chave numérica .

    Sempre:

    use strict;
use warnings;

    em todos os seus scripts, isso ajudará em erros de codificação:

    Array found where operator expected at reply input line 1, near "adam@site"
Bareword "dave" not allowed while "strict subs" in use at reply input line 1.
syntax error at reply input line 1, near "adam@site"
Global symbol "@site" requires explicit package name (did you forget to declare "my @site"?) at reply input line 1.
BEGIN not safe after errors--compilation aborted at reply input line 7.
    • 3

  2. Você está usando alguma linguagem de modelo não especificada. Para conseguir o que deseja, você precisará converter o texto que deseja fornecer ( [email protected]) em uma string literal Perl ( '[email protected]').

    Se a string não contiver aspas ou barras invertidas, você poderá usar

    my $formattedUserEmail = '$[UserEmail]';

    Neste caso, isso produzirá

    my $formattedUserEmail = '[email protected]';

    Observe que isso não é seguro. Se a fonte não for confiável, ela poderá injetar código malicioso. Sem saber mais sobre a linguagem de templates, não posso fornecer uma solução segura.

    • 1

relate perguntas