Привет эксперты, Существует дискуссия между некоторыми академическими и неакадемическими программистами, особенно во французском мире, о том, следует ли разрывать внутри цикла. Приведенный ниже код иллюстрирует то, что я имею в виду. Как вы думаете, что лучше всего использовать и почему: 1....
этот txt файл содержит шестнадцатеричные значения я хочу изменить это на dec и разделить на li l2 t1 t2 v1 v2 p h это шестнадцатеричные значения4f337d5000000001 4f337d5000000001 0082004600010000 0082004600010000 334f464600010000 334f464600010000 4f33464601000100 4f33464601000100 334f4646000...
use strict; use warnings; use feature qw( say ); my @aa = ("A", "C", "D", "E", "F", "G", "H", "I", "K", "L", "M", "N", "P", "Q", "R", "S", "T", "V", "W", "Y"); my $pair; for my $n1 (@aa) { for my $n2 (@aa) { $pair = $n1 . $n2; } } my $k1=split("' '", $pair); pr...
use strict; se warnings; # syntax is use ??? use feature qw( say ); my @aa = ("A", "C", "D", "E", "F", "G", "H", "I", "K", "L", "M", "N", "P", "Q", "R", "S", "T", "V", "W", "Y"); my $pair; for my $n1 (@aa) { for my $n2 (@aa) { $pair = $n1 . $n2; } } my $k1=sp...
Я создаю файл". inf " с помощью следующей команды с помощью программы perl. system ("secedit /export /areas USER_RIGHTS /cfg". $path); Затем я хочу открыть этот файл и найти строку. Но при открытии этого файла он открывается не в стандартном формате, а в каком-то другом формате,между каждой...
на Perl есть.ПЛ &ГТ; result.txt мой сгенерированный вывод:name:asf192lin1 total slots used:0 total slots free:8 name:asf192lin10 total slots used:7 total slots free:9 name:asf192lin11 total slots used:6 total slots free:10 name:asf192lin12 total slots used:8 total slots free:8 name:...
Всем привет, может ли кто-нибудь сказать мне, как работает URL-адрес объявления? какую информацию приложение / скрипт должно было отправить на url-адрес" анонса"? и что вы получите взамен. например это url-адрес в traker http://torrent.fedoraproject.org:6969/announce[^] а это хэш # = D878A...
Я не могу рекурсивно читать файлы внутри каталогов.Здесь $dir1-это каталог, который рекурсивно содержит имена файлов с заданием.Я хочу удалить те файлы, которые начинаются с задачи рекурсивно.Как я могу это сделать? Ошибка:Use of uninitialized value in pattern match (m//) at ./generate_dcms...
---------- В приведенном ниже скрипте я попытался передать значения в кнопке submit с помощью perl cgi.Но в моем случае это не удается.Заранее спасибо за любую помощь. Вещи, которые я проверил : В браузере я обнаружил, что кнопка submit не загружает значение, которое я передал.Вместо этого ...
16.726--5.670--25.129**16.312--5.718--22.847**14.366--5.258--25.545**16.920--3.457--25.425**19.419--6.712--25.198**18.536--7.602--25.240**19.152--5.518--24.957**15.501--7.808--24.644**16.883--6.024--27.528** I have to split the numbers. Remove those ** and -- between numbers and store in s...
У меня есть файл языка Си с моим алгоритмом в нем, и я сделал аргументы командной строки. Я скомпилировал файл и получил также выходной файл ассемблера. Теперь мне нужно передать значения в мой выходной файл c из скрипта perl и получить обратно значения из файла C. Нужна помощь. заранее сп...
Input line=REVISION_LOCATION:.. / setup/projects/DEMO/space Приведенный ниже код не работает для меня .Это не считается .. Как я могу это сделать?Что я уже пробовал:if ($input_line=/^REVISION_LOCATION:\s*(\S+)/) { $input_line = $1; } ...
Я хочу сопоставить, где вши начинаются с^/. как я могу это сделать? Ошибка:Use of uninitialized value in bitwise xor (^) at Что я уже пробовал: < preopen my $project_file, '<', $input_dir; chomp(my @store_files = <$project_file>); #print @store_files; close $project_file; foreac...
DBI fetchall_hashref: invalid number of arguments: got handle + 0, expected handle + between 1 and 1 Usage: $h->fetchall_hashref($key_field) Что я уже пробовал:sub pending_running_partition { my $str=shift; $DBH=&connect or die "cant connect to the sql server \n"; $DBH->do("USE ...
syntax error at Script line 19, near "queue_name)" syntax error at Script line 39, near "}" Script had compilation errors. syntax error at /proj/in/db.cgi line 879, near "queue_name)" Что я уже пробовал:<pre>sub print_overall_summary { my $str = shift; $DBH = &connect or di...
Мне нравится удалять подчеркивание только перед каждым (.). Как я могу это сделать ? Ввод:DEMO_.config DEMO_.html Ожидаемый: Демо.конфиг DEMO.htmlЧто я уже пробовал:$str =~ tr/a-zA-Z//dc ...
Мой файл:blk3 : 0% : 0% blk1 : 0.68% : 0.99% blk2 : 0.00% : 0.00% OVERALL_STATUS=0.23% PARTIAL_STATUS=0.33% Ожидаемый результат:blk3 : 0% : 0% blk1 : 0.68% : 0.99% blk2 : 0.00% : 0.00% Что я уже пробовал: $href= / ^\s*=. * \n/ / g; ...
Мой файл:blk3 : 0% : 0% blk1 : 0.68% : 0.99% blk2 : 0.00% : 0.00% OVERALL_STATUS=0.23% PARTIAL_STATUS=0.33% Ожидаемый результат:blk3 : 0% : 0% blk1 : 0.68% : 0.99% blk2 : 0.00% : 0.00% Что я уже пробовал: $href= / ^\s*=. * \n/ / g; ...
следующий код выдает ошибку следующим образом:Global symbol "%href_to_what" requires explicit package Как я могу это исправить?Что я уже пробовал:<pre>while (my $line=<$fh>) { chomp $line; for($line) { s/\&//g; s/[\\\_\@\_]//g; s/COMMENT//g; } ...
теперь я хочу удалить все файлы из папки, которая начинается с задачи.Как я могу это сделать с помощью perl?/home/rpasa/demo_checklist `-- DEMO |-- top | |-- DV | | |-- rev1 | | |-- rev2 | | |-- task.config | | `-- task.html | |-- checklist ...