В приведенном ниже коде я хочу добавить строку для удаления скрытых каталогов с помощью 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, а затем, изолировав отдельный оператор, оч...
какова логика кодирования этого вопроса ? там есть n магазинов, каждый магазин даст купен с некоторым номером на нем. если вы берете купен из магазина, то вы не можете взять купен из следующих k магазинов. в конце концов вы должны обладать максимальным количеством купенов. Входные данные:-...
<?php $имя_сервера = 'localhost'; $username = 'root'; $password = 'helloworld'; $dbname = 'кампус'; // Создать соединение $Конн = mysqli_connect($имя_сервера, $имя пользователя, $пароль $имя_бд); // Проверить подключение ini_set('display_errors', 1); предназначенных(...
I am in need of below Java code converted to PERL script. Can anyone help me in this context? <pre> public static String hex(byte[] bytes) { char[] c = new char[bytes.length * 2]; for (int i = 0; i < bytes.length; i++) { int j = (bytes.length - i - 1) * 2; c...
Пример моего требования: если веб-страница имеет форму, и когда вы отправляете форму, эта страница будет извлекать некоторые данные из базы данных, а затем отображать выходные данные. При извлечении данных ему требуется 9-10 секунд времени. В этот конкретный момент мне нужен загрузчик или и...
Я использую Mac osx. Я знаю, что этот код в терминале заменит все txt-файлы, включающие "hello", на "hiThere" в папке с именем "world":perl -pi -w -e 's/hello/hiThere/g;' ~/Desktop/world/*.txt Но внутри этой папки мира есть другие папки, в которых есть другие txt-файлы, и они не проходят ч...
я хочу разработать html 5 базовый видеочат с чего начать ?? ...
Я хочу спросить об использовании мультиязыка в проекте: я хочу знать, в чем его польза и почему он распространен в современных приложениях. и еще я хотел бы знать о механизме распределения. Я также хотел бы знать, как лучше всего это сделать, и какие языки программирования я должен изучить,...
Вот это самое registry.xml файл<?xml version="1.0" encoding="UTF-8"?> <p:Complex xmlns:p="http://www.openwave.com/OAM/ConfigData-v1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" DocPath="" Name="Openwave" XSDVersion="1.4" xsi:schemaLocation="http://www.openwave.com/OAM/Con...
Вот это самое registry.xml файл<?xml version="1.0" encoding="UTF-8"?> <p:Complex xmlns:p="http://www.openwave.com/OAM/ConfigData-v1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" DocPath="" Name="Openwave" XSDVersion="1.4" xsi:schemaLocation="http://www.openwave.com/OAM/Con...