Результаты поиска по запросу "perl"
Я добавил этот кусочек шаблонного кода в мой тестовый код, и он отлично работает.
дачен этим тестовым скриптом: #!perl use strict; use warnings; use encoding 'utf8'; use Test::More 'no_plan'; ok('áá' =~ m/á/, 'ok direct match'); my $re = qr{á}; ok('áá' =~ m/$re/, 'ok qr-based match'); like('áá', $re, 'like qr-based ...
Вы можете получить тот же результат, изменив разделитель записей (и избегая регулярных выражений):
ся, я не могу понять правильный синтаксис, но я хочу, чтобы регулярное выражение Perl находило, где есть два или более разрывов строк в строке, и уплотняло их всего в 2 разрывов строк. Вот то, что я использую сегодня, который, кажется, не ...
Можно ли сохранить прозрачность изображения в формате PNG при использовании PHP GDlib imagecopyresampled?
од, который я использую: !/usr/bin/perl use GD; sub resize { my ($inputfile, $width, $height, $outputfile) = @_; my $gdo = GD::Image->new($inputfile); ## Begin resize my $k_h = $height / $gdo->height; my $k_w = $width / $gdo->width; my $k = ...
Кроме того, глобальное уничтожение технически происходит после того, как все блоки END завершены - поэтому наихудший случай здесь, когда он может пометить что-то неправильно, пока он уничтожается в другом блоке END.
ел бы определить, находится ли мой объектDESTROYЭто было бы частью глобального уничтожения и распечатало предупреждение (поскольку это явно было бы ошибкой и привело бы к потере данных). Очевидный способ сделать это выглядит так: sub DESTROY { ...
Я думаю, это зависит от того, как долго у вас есть регулярное выражение. Иногда лучше разделить очень длинные выражения.
ожет показаться странным вопросом, но в любом случае к сути; У меня есть строка, которая мне нужна для поиска множества возможных вхождений символов в нескольких комбинациях (так что классы символов не обсуждаются), так какой же самый ...
Строки Perl - это строки из 32-битных или 64-битных символов, в зависимости от сборки. utf8 может кодировать любое 72-битное целое число. Поэтому он способен кодировать все символы, которые можно попросить кодировать.
как вы, наверное, знаете, в Perl «utf8» означает более слабое понимание Perl UTF-8, которое допускает символы, которые технически не являются допустимыми кодовыми точками в UTF-8. Напротив, «UTF-8» (или «UTF-8») является более строгим пониманием ...
Патрик
я есть много автономных скриптов. Единственное, что они разделяют, это то, что они используют () большой набор модулей CPAN (каждый из которых экспортирует несколько функций). Я хотел бы централизовать этот список модулей. Я нашел несколько ...
описывает, как консоль Win32 работает с Perl, и транскодирование, которое происходит за сценой из ANSI в Unicode, хотя это не только проблема Perl, но и другие языки
ль Windows поддерживала Unicode как минимум десять лет и, возможно, еще в Windows NT. Однако по какой-то причине основные кроссплатформенные языки сценариев, включая Perl и Python, когда-либо выводили только различные 8-битные кодировки, что ...
github.com/pfenwick/autodie/pull/12
у я получаю после "autodie" другой вывод? #!/usr/bin/env perl use warnings; use 5.012; use utf8; use open ':encoding(utf-8)'; use open ':std'; open my $fh, '>', 'test.txt' or die $!; say $fh 'käse'; close $fh; open my $fh1, '<', 'test.txt' or ...
с новым содержанием, добавляемым правильно и сразу.
ажется простой задачей, но, используя duckduckgo, я не смог найти способ правильно делать то, что я пытаюсь. Основной вопрос: как разделить вывод команды в linux или bash на несколько столбцов с помощью разделителя? У меня есть файл, который ...