perl

10Ciepło

2Odpowiedz

Perl exec ('/ usr/bin/php -v') wisi na CentOS 6.6, chyba że STDIN jest zamknięty najpierw

Moje pytanie brzmi, czy to jest oczekiwane (i dlaczego?) I/lub czy to zachowanie jest widoczne również w innych systemach? Środowisko: # cat /etc/*-release CentOS release 6.6 (Final) ... # perl -v

php perl centos pipe stdin 2015-08-06

---

7Ciepło

2Odpowiedz

Jaki jest najskuteczniejszy sposób eksportowania wszystkich stałych (zmienne tylko do odczytu) z modułu Perla

Szukam najbardziej wydajnego i czytelnego sposobu eksportu wszystkich stałych z mojego osobnego modułu, który jest używany tylko do przechowywania stałych. Na przykład use strict; use warnings; use

perl constants perl-module perl-exporter 2015-08-06

---

7Ciepło

1Odpowiedz

Jak zastosować/użyć Perl :: Tidy z istniejącym projektem Perla?

To pytanie nie tyle techniczne, co szukanie porady, co do właściwego podejścia, które nie zaszkodzi. Zakładając następujące: Mamy duży aplikacja opracowana w Perlu. Chcemy rozpocząć korzystanie perlti

git perl continuous-integration project-management perl-tidy 2015-08-18

---

8Ciepło

2Odpowiedz

nawracaniem w regexp szybszego niż oczekiwano

Według perlre poniższy kod powinien trwać kilka sekund, aby wykonać: $ time perl -E '$_="((()" . ("a") x 18; say "ok" if m{ \(([^()]+|\([^()]* \))+\)}x;' real 0m0.006s user 0m0.000s sys 0m0.005s

regex perl backtracking 2015-08-20

---

8Ciepło

1Odpowiedz

Basic round robin w Perlu różnica między (++/+1)

Ostatnio próbowałem zrobić prosty round robin z Perlem i znalazłem zachowanie, którego nie rozumiem jasno. Tutaj zachowanie: my $a = {index => 0}; for (0 .. 10) { $a->{index} = ($a->{index}++) %

perl 2015-08-20

---

6Ciepło

1Odpowiedz

Perl `$ [", dlaczego baza 42?

Znalazłem this part of an answer naprawdę mylące. Większość odpowiedzi to specjalne przypadki niektórych podstawowych reguł, takich jak "333" + "222" == "333222" but "333" - "222" = 111 javascript, w

perl 2015-08-24

---

7Ciepło

2Odpowiedz

Jaki jest powód użycia znaku "-" do wpisania nazwy skrótu w haśle?

W niektórych modułów perla widzę kod: if (exists $h->{Location}) { %args = (%args, -Status => 302); } Dlaczego autor używa -Status zamiast tylko Status? Dlaczego włamuję się do własnych modułó

perl hash 2015-08-29

---

6Ciepło

2Odpowiedz

„Szeroki znak w wejściu podprogramu” - kodowanie UTF-8 cyrylicy słowa jako sekwencji bajtów

pracuję nad Android grze słownej z dużym słowniku - słów (ponad 700 000) są przechowywane jako oddzielne wiersze w pliku tekstowym (a następnie wstawiane do bazy danych SQLite) Aby uniemożliwić konkur

perl unicode utf-8 md5 cyrillic 2015-08-29

---

8Ciepło

2Odpowiedz

Jak cofnąć pozycję początkową następnego wyszukiwania o 1?

Jak przewinąć początek następnej pozycji wyszukiwania o 1? Załóżmy na przykład, że chcę dopasować wszystkie cyfry między #. Poniższe da mi tylko numery nieparzyste. my $data="#1#2#3#4#"; while ($dat

perl regex-lookarounds 2015-07-21

---

10Ciepło

1Odpowiedz

Benchmarking plik utf8 czytać - wyjaśnienie różnic

tego kodu: #!/usr/bin/env perl use 5.016; use warnings; use autodie; use Path::Tiny; use Encode; use Benchmark qw(:all); my $cnt = 10_000; my $utf = 'utf8.txt'; my $res = timethese($cnt, {

perl utf-8 io encode 2015-07-23

---