Resultados da pesquisa a pedido "subroutine"
Como passar nomes de sub-rotinas como argumentos no Fortran?
Qual é a sintaxe para passar nomes de sub-rotinas como argumentos? Esquematicamente: . . call action ( mySubX ( argA, argB ) ) . . subroutine action ( whichSub ( argA, argB ) ) ... call subroutine whichSub ( argA, argB ) ... end ...
Variável declarada externamente (global) no Fortran
Quero saber se é possível declarar uma variável e fazer com que a declaração seja transferida para outra sub-rotina ou programa (portanto, torne-se global) Por exemplo program main implicit none call mysub print *, x end program main ...
Linha truncada, erro de sintaxe na lista de argumentos
Ao compilar o programa abaixo, tenho um erro e um aviso no diretóriocall Coor_Trans linha de comando como Aviso: Linha truncada Erro: erro de sintaxe na lista de argumentos Eu compilo o programa várias vezes, mas ele não funciona. Talvez haja ...
Valores de argumento padrão nas sub-rotinas
Não sei como definir argumentos padrão para sub-rotinas. Aqui está o que eu considerei: sub hello { print @_ || "Hello world"; }Isso funciona bem se tudo o que você precisava era de um argumento. Como você definiria valores padrão para ...
Variável especial Perl "@_" em uma sub-rotina não está funcionando
Esse script retira os URLs de uma página da Web baixada. Eu tive alguns problemas com esse script - quando eu uso o"my $csv_html_line = @_ ;" e depois imprima o"@html_LineArray" - apenas imprime"1's". Quando eu substituo o"my $csv_html_line = @_ ...
Contém declaração
Eu não estou entendendo a importância deCONTÉMdeclaração no fortran 90 Por exemplo PROGRAM BLABLA IMPLICIT NONE INTEGER :: i,j,k i = 1; j = 1;k =1 PRINT *, i,j,k CALL ABC(i,j,k) PRINT *, i,j,k CONTAINS SUBROUTINE ABC(r,s,t) IMPLICIT ...
Obtendo todos os argumentos passados para uma sub-rotina como uma string no Perl
Estou tentando escrever uma função que pode pegar todos os seus argumentos e imprimi-los como uma string exatamente como eles foram inseridos. Por exemplo, usando a seguinte função: test('arg1' => $arg1, 'arg2' => $arg2);Gostaria de obter a ...
No Perl, como posso verificar de qual módulo uma determinada função foi importada?
Eu tenho um código que chama a função Mas não conheço o módulo ao qual essa função pertence. Eu preciso modificar esta função. Como posso verificar?
sub-rotina perl retornando array e str, mas eles estão sendo mesclados
sub process_feed { my ($line) = @_; my @lines; my $last_received = ""; while (1) { if ($line =~/^{(.*?)}(.*)/) { push @lines, $1; $line = $2; } else { $last_received = $line; last; } } print "sending back @lines, $last_received\n"; return ...
Esse é um argumento ou nenhum para um bloco Perl 6?
Qual é a maneira do Perl 6 de dizer a diferença entre um argumento e nenhum argumento em um bloco sem assinatura explícita? Não tenho nenhum uso prático para isso, mas estou curioso. Um bloco sem assinatura explícita coloca o valor em$_: my ...