Мой файл: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 ...
В приведенном ниже коде я хочу добавить строку для удаления скрытых каталогов с помощью perl?Что я уже пробовал: sub rename_dirs { #print "process started for renaming directories"; my ( $top_dir, $dir_map ) = @_; opendir (my $dh, $top_dir) or die "Can't open $top_dir: $!"; my...
я попытался прочитать текстовый файл с помощью командной строки aruments и передать его в подпрограмму, но он выдает ошибку с помощью perl? Ошибка:Use of uninitialized value in opendir at ./generate.pl line 50. Use of uninitialized value in concatenation (.) or string at ./generate.pl line ...
я хочу удалить подкаталог или основной каталог везде, где имя каталога начинается с temp.Как я могу это сделать с помощью perl?Что я уже пробовал:#!/usr/local/bin/perl use File::Path; $files_deleted=rmtree('/home/rperiasa/output/*/*/temp*'); #print $files_deleted; unlink $files_deleted; ...
Я хочу сделать две разные подстановки для одной и той же переменной с помощью perl?Как я могу это сделать ?.В приведенном ниже коде я сделал это отдельно .Как я могу сделать его все еще простым с помощью perl?Что я уже пробовал:open my $IN, '<', $data_file or die $!; while (my $line = &l...
Как я могу добавить строку к каждой строке внутри текстового файла с помощью perl? Вход file:t.txt используйте строгий используйте предупреждения выходные данные: используйте строгий используйте предупреждения струна Ожидаемый результат: использовать строгие строка использование предупрежд...
У меня есть приведенный ниже код, как я могу прочитать содержимое текстового файла и проверить с помощью каталогов и подкаталогов имена существуют или нет с помощью perl. Note:result_file.txt имеет содержание.Каждое содержимое обозначает каталоги/подкаталоги в текущем местоположении.Что я у...
<<pre>my $map_file="/home/rpsa/DEMO/mapfile.txt"; open( my $fh, '<', $map_file ) or die( $! ); open( my $fh1, '>', "result_file.txt" ) or die( $! ); while ( my $line = <$fh> ) { next unless ( defined( $line ) && $line ); my @cols = split( /:...
Я хочу создать несколько подключений к базе данных в одной подпрограмме .Как я могу это сделать?.Здесь я дважды использовал одно и то же соединение с двумя разными базами данных.Мне не совсем ясно, правильно ли это делать?Может ли кто-нибудь подсказать мне правильный способ подключения неск...
DBD::ODBC::db do failed: [unixODBC][FreeTDS][SQL Server]Conversion failed when converting the varchar value '$1$testunot$67k/hzg4DQmwcCHSz9IBp1' to data type int. (SQL-22018) at /opt/otrs//Kernel/System/DB.pm otrs 3.1.2, perl v5. 8. 8, mssql 2008 r2 нам показывают эту ошибку при входе в ot...
Привет , Пожалуйста, кто-нибудь может помочь мне в преобразовании кода perl в C#. Я не из Перл-бэкграунда.#!/usr/bin/perl my $csv = "$ARGV[0]"; $filename = $csv; $filename =~ s/.csv//; open(Data,"$csv"); open(testlist, "testlist.txt"); while (<testlist>) { push (@testlist,$_...
я пытаюсь использовать регулярные выражения для извлечения сингулярных SQL-операторов из файла, содержащего несколько sql-операторов и альтернативные разделители/комментарии. я пытаюсь сопоставить следующие шаблоны, чтобы изолировать операторы sql, а затем, изолировав отдельный оператор, оч...