Вопросы по теме 'subroutine'
Perl — передача аргументов подпрограмме как проблема с парами хеш-значений
Мне нужно передать две ссылки в качестве аргументов подпрограмме (buildRanges) в виде пар ключ-значение хэша, как показано ниже.
Пример:
@array = (“0A0”, “005”, “001”, “004”, “0BC”, “004”, “002”, “001”);
@ranges = ();
$numRanges =...
9592 просмотров
schedule
10.07.2022
Как передать параметры подпрограммам Perl, определенным с помощью eval?
Я использую файл конфигурации (в YAML) для определения типов, которые используются позже для проверки других значений конфигурации, необходимых для моего приложения:
---
action: >
use List::MoreUtils;
my $value = $_;
any...
2286 просмотров
schedule
26.05.2023
Проблема с подпрограммой Applescript
Я довольно исключительный AppleScripter и пишу сценарии в течение долгого времени. Приложение, которое я сейчас создаю, предполагает использование приложения «События базы данных». Я пытаюсь установить значение поля с помощью подпрограммы....
2009 просмотров
schedule
27.07.2022
Как отличить аргумент, который не был передан, от переданного с ложным значением?
Я пытаюсь понять, как лучше всего различать в Perl случаи, когда аргумент не был передан, и когда аргумент был передан как 0, поскольку для меня они означают разные вещи.
(Обычно мне нравится двусмысленность, но в этом случае я генерирую SQL,...
3416 просмотров
schedule
11.06.2023
Правильное использование модулей, подпрограмм и функций в Фортране
Я недавно узнал о интерфейсных блоках при добавлении функции в мою программу на Фортране. Все работает красиво и аккуратно, но теперь я хочу добавить в блок интерфейса вторую функцию.
Вот мой интерфейсный блок:
interface
function...
41803 просмотров
schedule
09.03.2022
Катализатор: как объявить глобальную подпрограмму
Привет, я не хочу повторять один и тот же код в контроллерах, поэтому я создал подпрограмму в основном пакете MyApp:
sub do_stuff {
my $input = shift;
do something
}
Но потом я хочу использовать его в контроллере...
482 просмотров
schedule
05.02.2022
Модуль, вызывающий внешнюю процедуру с неявным интерфейсом
Следующий код, объединяющий процедуры модуля и внешние процедуры :
module module_dummy
implicit none
contains
subroutine foo(a)
real, intent(inout) :: a(:)
call bar(a)
end subroutine foo
end module module_dummy
program...
2036 просмотров
schedule
07.04.2024
local($?) в блоках END. Почему имеет значение, какое значение ему присвоено?
На работе мы столкнулись с ошибкой при взаимодействии с дочерними процессами в деструкторе объекта и в итоге проследили ее до $? переменная перезаписывается во время вызовов ожидания. Это происходит после вызова exit(), поэтому $? дополнительно...
113 просмотров
schedule
12.08.2023
Получение неправильного значения аргумента при использовании @_ в подпрограмме Perl
Я столкнулся со странной ошибкой при использовании @_ для передачи одного аргумента подпрограмме Perl. Значение, переданное подпрограмме, изменяется сразу после входа в подпрограмму.
Пример кода:
my $my_def = 0;
print "my_def = $my_def \n";...
603 просмотров
schedule
09.08.2022
Как связать подпрограмму fortran с основной программой cpp?
Я пытаюсь скомпилировать программу на С++, но она не работает. Во-первых, я должен был сказать, что c++ - это не тот язык, который я действительно знаю, я использую Fortran. Во всяком случае, основная программа на С++ вызывает подпрограмму на...
420 просмотров
schedule
18.03.2022
Есть ли способ поддерживать библиотеку пакетных сценариев?
Я пишу сложный пакетный патч-файл с генерацией других файлов. Я знаю, что эта партия не самая лучшая для этого, но у меня в основном все работает. Однако возникает головная боль, связанная с дублированием всех подпрограмм во всех файлах, если я не...
428 просмотров
schedule
20.10.2022
Рендеринг нескольких CSV-файлов с помощью Perl с использованием одного дескриптора открытия файла?
У меня есть этот код, где я хочу обрабатывать несколько файлов csv (в настоящее время это всего один файл) и использовать perl для отображения его формата перед его отправкой в linux-box и заменяет исходное содержимое файла с помощью соединения...
627 просмотров
schedule
13.10.2023
Передача данных массива в подпрограммы с общими блоками
У меня немного болит голова в связи с передачей массивов функциям и/или подпрограммам. Мой код выглядит примерно так.
program test
implicit none
integer arraySize
parameter (arraySize = 10)
integer myFunction
integer someValue
integer...
832 просмотров
schedule
09.08.2022
Подпрограмма не работает, сообщение об ошибке говорит о том, что переменная не определена
я использую подпрограмму, и я думаю, что это причина моей проблемы, вот мой код:
def sub1():
dob=input('Please enter the date of the person (dd) : ')
while dob not in...
234 просмотров
schedule
13.10.2023
При попытке распечатать массив из sub печатается только первый элемент
Я пишу Perl-скрипт, который требует от меня извлечения целого столбца из файла и манипулирования им. Например, возьмите столбец A и сравните его с другим столбцом в другом файле.
A B C
A B C
A B C
Пока у меня есть:
sub routine1
{
(...
103 просмотров
schedule
16.02.2024
Perl: изменение подпрограммы не печатается вне рутины
Итак, я хочу изменить числа, которые передаю в подпрограмму, а затем сохранить эти изменяемые числа, но, похоже, это не работает.
my $A = 0;
my $T = 0;
my $C = 0;
my $G = 0;
foreach my $bases in (keys %basereads){...
88 просмотров
schedule
11.04.2022
подпрограмма пакетного файла
Я пытаюсь повторно использовать код пакетного файла для выполнения аналогичных задач на страницах меню.
Главное меню состоит из 10+ опций. Когда я захожу внутрь каждого пункта меню, мне нужно отобразить следующее в тексте
Press [C] to Continue...
255 просмотров
schedule
11.05.2023
3146 Ошибка вызова ODBC — Access 2010
Пожалуйста, укажите код ниже...
Private Sub Save_Click()
On Error GoTo err_I9_menu
Dim dba As Database
Dim dba2 As Database
Dim rst As Recordset
Dim rst1 As Recordset
Dim rst2 As Recordset
Dim rst3 As Recordset
Dim SQL As String...
15023 просмотров
schedule
10.08.2023
Неопределенные подпрограммы и основная ошибка в Perl
Я пытаюсь извлечь последовательность ДНК из этого файла FASTA до указанной длины оснований в строке, скажем, 40.
> sample dna (This is a typical fasta header.)
agatggcggcgctgaggggtcttgggggctctaggccggccacctactgg...
16529 просмотров
schedule
15.11.2022
Как передать необязательные аргументы в функцию
Я пытаюсь заставить функцию модуля принимать необязательные аргументы в виде:
function(arg1, optional1 => opt1, optional2 => opt2, ..);
Тем не менее, я не могу найти нигде, что показывает хорошее объяснение, как это сделать. Я придумал...
411 просмотров
schedule
28.08.2022