Tag: perl

Perl ist eine prozedurale, high-level -, Mehrzweck -, eine dynamische Programmiersprache, bekannt für seine native Unterstützung für reguläre Ausdrücke und string-parsing-Funktionen. Bitte verwenden Sie dieses tag für Fragen zu Perl im Allgemeinen. Für Dinge, die in Zusammenhang mit dem neuen (aber Verwandte) Sprache „Perl 6“, bitte verwenden Sie die perl6-tag. Für Perl-Stil reguläre Ausdrücke in anderen Sprachen, benutzen Sie den regex-tag, oder, wenn Sie auf der PCRE-Bibliothek, die pcre-tag.

Wie kann ich überprüfen, ob ein regex-Muster ist gültig in Perl?

3 Antworten

Erstens, ich Frage mich, ob es irgendeine eingebaute Funktion, die würde überprüfen, um zu sehen, ob ein regex-Muster gültig war oder nicht. Ich will nicht zu überprüfen, um zu sehen, wenn der Ausdruck funktioniert - ich möchte

perl regex

Entfernen der Satzzeichen aus string in Perl

2 Antworten

Wie kann ich entfernen Sie alle Satzzeichen mit Ausnahme von Leerzeichen aus einem string in Perl? InformationsquelleAutor syker | 2010-09-01

perl string

Wie kann ich umwandeln OO Perl zu Java?

3 Antworten

Habe ich geerbt großen monolithischen Körper von OO Perl-code, der muss schrittweise umgebaut, um Java (pro client-Anfrage). Ich kenne beide Sprachen, aber bin eingerostet auf meine Perl-Kenntnisse. Gibt es irgendwelche tools (Eclipse-plugins?) dass Sie die Leute empfehlen

java perl

Automation in Perl-script

3 Antworten

Mir läuft ein perl-Skript. In meinem perl-Skript, ich check das aktuelle Datum und den Namen des Ordners(die auch in das Datum-format, wie zum Beispiel 11-12-07). Dieses perl-Skript automatisch ausgeführt wird, wenn Es prüft das aktuelle Datum mit

perl scripting

In perl, zu töten Kind und seine Kinder, als Kind wurde erstellt mit open

4 Antworten

Hier ist mein code, mit Fehlerbehandlung und andere Sachen entfernt, die für Klarheit: sub launch_and_monitor { my ($script, $timeout) = @_; sub REAPER { while ((my $child = waitpid(-1, &WNOHANG)) > 0) {} $SIG{CHLD} = \&REAPER; }

children kill perl

Perl äquivalent zu dem PHP-escapeshellarg

4 Antworten

Flucht aus der Zeichenfolge verwendet werden, die als shell-argument benutzen wir die Funktion escapeshellarg() im PHP. Tut Perl haben eine gleichwertige Funktion ? InformationsquelleAutor Zacky112 | 2010-07-09

perl php

wie Sie mit system-Kommando 'grep' in perl-script

2 Antworten

Ich versuche zu zählen, den passenden Charakter mit grep im Perl-Skript. Unterhalb der Skript zählt ganze Verzeichnis der von mir gewünschten Ausgabe enthalten sollte, wird nur die Anzahl der input-Datei, nicht das ganze Verzeichnis, jemand mir helfen,

command grep perl

Command-line arguments mit mehreren Werten

4 Antworten

Mache ich ein perl-Skript und ich brauche, um mehrere Werte aus der Befehlszeile. Beispiel: perl script.pl --arg1 op1 op2 op3 Bin ich mit Getopt::Long und bekomme ich diese zu arbeiten: perl script.pl --arg1 op1 --arg1 op2 --arg1

arguments command-line perl

Wie kann ich erstellen Sie eine verschachtelte hash als Konstanten in Perl?

4 Antworten

Will ich tun, in Perl, das äquivalent zu den folgenden Ruby-code: class Foo MY_CONST = { 'foo' => 'bar', 'baz' => { 'innerbar' => 'bleh' }, } def some_method a = MY_CONST[ 'foo' ] end end #

constants hash perl perl-data-structures

Perl vergleichen Sie 2 hashes für Unterschiede

3 Antworten

Ich habe diese 2 hashes unten. Erste ist eine Vorlage, die zweite ist die Benutzer-Einstellungen. Ich muss in der Lage sein, um eine Schleife erstellen, geht über den zweiten hash, und wenn es feststellt, dass ein Unterschied

hash perl

Split-string (oder regex match) an der position/index des N-TEN Zeichen in Perl?

6 Antworten

Gibt es eine ähnlich lautende Frage, aber ich denke, dies ist etwas anders. Grundsätzlich sagen, dass ich diese Zeichenfolge: "aa{bb{dccd" Hier möchte ich split den string an der letzten Klammer {; und die Teile, die als ein

perl regex split string

Rekursive Verzeichnis-traversal in Perl

3 Antworten

Ich versuche, ein Skript zu schreiben, die druckt die Datei-Struktur, beginnend bei dem Ordner das script liegt in der. Das Skript funktioniert gut, ohne den rekursiven Aufruf aber mit diesem Anruf es druckt den Inhalt des ersten

perl recursion

In Perl, wie kann ich testen, ob ein string ein Palindrom?

4 Antworten

Ich bin versucht zu schreiben, ein Perl-Programm, um festzustellen, ob ein 7-Zeichen-Benutzer-Eingabe ein Palindrom ist. Ohne Verwendung von array -, string -, oder reverse-Funktionen. Gewünschte Ausgabe: Enter in a 7 character item: 1111111 PALINDROME! Oder Enter in

perl

Rekursiv drucken Datenstrukturen in Perl

8 Antworten

Ich bin zurzeit learning Perl. Ich habe Perl hash, das Referenzen auf hashes und arrays. Die hashes und arrays können wiederum Referenzen auf andere hashes/arrays. Schrieb ich eine Unterroutine, die zum analysieren der hash rekursiv und drucken

oop perl recursion

Perl DBI mysql: how to get return-Wert einer gespeicherten Prozedur?

2 Antworten

Tut DBD::mysql Umsetzung der bind_param_inout Methode? Ich bin immer folgende Fehlermeldungen, wenn Sie versuchen es: DBD::mysql::st bind_param_inout fehlgeschlagen: Ausgabe-Parameter, die nicht implementiert [for-Anweisung "call spCreateTransactionRecord(?, ?)" mit ParamValues: 0=Null!, 1=Null!] bei ./db.pl Zeile 23 Mein code: #!/usr/bin/perl

dbi mysql perl stored-procedures

nicht finden können perl-error-log

1 Antworten

Ich habe eine perl-Datei (eg:test.pl), die nicht einige DB-Operationen. Während des Tests, seine Arbeitsmethoden in Ordnung. Führe ich diese Datei als hintergrund-Prozess mit dem Befehl perl test.pl & Seine Arbeit richtig für einige Tage. Aber nach einigen

centos perl

Wie man linux-Prozess-id allein mit perl

4 Antworten

Wenn ich ausführen den nachstehenden Befehl in der Eingabeaufforderung funktioniert es einwandfrei. aber wenn ich das gleiche in perl-Skript, es zeigt den gesamten Prozess name. ps -ef | grep truecontrol | awk '{print$2}' gibt 4567 3456 Wenn

perl

läuft ein perl-Skript aus der windows-Aufgabenplaner

2 Antworten

Ich habe awstats installiert auf dem windows 2008 server. Ich lege die Updatestats.bat-Datei, die jeden Tag ausgeführt, der task läuft wunderbar ohne Fehler, aber das Skript wird nicht ausgeführt oder wirft eine Fehlermeldung, dass ich nicht sehen

perl windows

Wie kann ich das extrahieren einer Teilzeichenkette bis zum ersten Ziffer?

4 Antworten

Wie finde ich den ersten Teilstring, bis ich die erste Ziffer? Beispiel: my $string = 'AAAA_BBBB_12_13_14' ; Ergebnis erwartet: 'AAAA_BBBB_' Wow. Jede Antwort, so weit ist es falsch. InformationsquelleAutor Jorge | 2012-03-23

perl regex

Was machen die eckigen Klammern bedeuten im folgenden push-syntax in Perl?

2 Antworten

Stieß ich auf diese syntax, während Sie Lesen ein Skript. Ich bin nicht sicher, was ist die Verwendung von eckigen Klammern. push @data, [ split //, $line ]; #printing this array gives crap values Oder in anderen

arrays perl reference

perl regulären Ausdruck nehmen Sie text in Klammern eingeschlossen

7 Antworten

wie verwende ich Perl, um loszuwerden, der text in Klammern? Zum Beispiel: $str = "Dies ist ein (zusätzliches Zeug) string." zu $str = "Dies ist ein string." Ich bin aktuell mit diesem, aber es funktioniert nicht: $str

perl regex

Wie kann ich Parameter übergeben, um die File::Find-Unterroutine, die Prozesse pro Datei?

4 Antworten

Mit File::Find, wie kann ich Parameter übergeben, um die Funktion, die zur Verarbeitung jeder Datei? Habe ich ein Perl-Skript, dass die Traversen Verzeichnisse, um zu konvertieren, einige 3-Kanal TIFF - Dateien in JPEG-Dateien (3 JPEG-Dateien pro TIFF-Datei).

file-find perl

Warum hat die non-capturing group (?:) scheinen nicht zu arbeiten?

3 Antworten

my $str='expire=0'; if ($str =~/expire\s*=\s* (?: 0[1-9]|[1-9][0-9])/){ print " found it "; } seine nicht funktioniert Zustand expire= werden sollte, gefolgt von einer Zahl zwischen 1-99? Warum sind Sie sogar mit einem non-capturing-group in diesem Muster? Zur

perl regex string

Wie kann ich teilen, ein Perl-array in kleinere arrays?

4 Antworten

Gibt es eine Perl-äquivalent für php ist array_chunk()? Ich versuche zu teilen ein großes array in mehrere kleinere. Vielen Dank im Voraus. InformationsquelleAutor Antonio Lopes | 2010-01-14

arrays perl php

REST::Client: wie ignorieren von SSL-Zertifikaten

2 Antworten

Arbeite ich mit REST::Client und meinen code nicht mit SSL Fehler. Hier ist der code: #!usr/bin/perl -w use strict; use REST::Client; my $client = REST::Client->new(); $client->GET("https://something/api/sessions"); print $client->responseContent(); und hier ist die Ausgabe: WP::Protocol::https::Socket: SSL connect attempt

perl

Wie kann ich text markieren in der Scintilla?

3 Antworten

Schreibe ich einen editor mit Scintilla. Ich bin schon mit einem lexer zur automatischen syntax-highlighting, aber jetzt würde ich gerne daneben Suchergebnisse. Wenn ich will mark nur einem Treffer kann ich die Auswahl dort, aber ich möchte

c#ide perl python scintilla

Perl regulärer Ausdruck: gewusst wie: ersetzen Sie alle gewünschten Zeichen außer der ersten ein

3 Antworten

Ich habe einen regulären Ausdruck, der ersetzt alle Sonderzeichen mit % (für die Datenbank-Suche mit LIKE). Es sieht wie folgt aus: $string =~ s/[^ a-zA-Z0-9]/%/g; Allerdings weiß ich nicht wie ich das ändern Ausdruck zu ersetzen Sie

perl

Wie kann ich analysieren IP-Adressen und Adressbereiche mit Perl?

2 Antworten

Ich habe die Liste der IP-Adressen: 238.51.208.96/28 238.51.209.180-199 238.51.209.100-109 238.51.213.2-254 ... Wie kann ich leicht analysieren Sie? Ich brauche erste und die Letzte IP aus dem Bereich. Für die erste Zeile, die ich verwenden kann Net::Netmask CPAN-Modul,

ip-address perl

Lesen einer tab-getrennte Datei in den hash in perl und Suche

4 Antworten

Ich habe eine tab-getrennte Datei (inpFile.txt) als field1 field2 aaa1 aaa2 aaa1 bbb2 aaa1 ccc2 ccc1 ddd2 eee2 aaa2 Ich es Lesen wollen, und speichern Sie es in hash ( hashname ) Einmal meine hash ist bereit,

hash perl search

Video-thumbnail generation imagemagick?

3 Antworten

Habe ich die Suche nach einer alternative zu ffmpeg (ich bin auf einem host, der nicht zulässt, dass ffmpeg oder mencode aufgrund von server-power oder sowas) und ich war auf der Suche in GD oder Imagemagick (die

imagemagick perl php ruby-on-rails thumbnails

Wie kann ich das beheben "unknown terminal type" beim verbinden mit Perl Net::Telnet?

4 Antworten

Ich habe ein problem bei der Verbindung zu einem SUSE-linux-Maschine von Perl ist Net::Telnet Modul. Der code sieht wie folgt aus: my $t = new Net::Telnet (Timeout => 20); $t->open($server); $t->input_log("telnet.log"); $t->login($user, $pass); my @lines=$t->cmd($command); print @lines;

perl telnet

Wie kann ich überprüfen, (peek) STDIN geleitet von Daten in Perl ohne mit select?

2 Antworten

Ich versuche zu verarbeiten, die Möglichkeit, dass keine Argumente und keine weitergeleiteten Daten an ein Perl-Skript. Ich gehe davon aus, dass, wenn es keine Argumente geben wird geleitet über STDIN. Jedoch, wenn der Nutzer keine Argumente und

cross-platform perl perl-select pipe stdin

Entfernen Stückliste aus string mit Perl

4 Antworten

Ich habe Folgendes problem: ich lese aus einer Textdatei in UTF-8 (und das sage ich Perl, dass ich bin damit durch ":encoding(utf-8)"). Die Datei sieht wie diese in einem hex-viewer: EF BB BF 43 6F 6E 66

byte-order-mark perl string text utf-8

Perl-DateTime::TimeZone nicht gefunden (Bugzilla installieren)

4 Antworten

Ich versuche zu installieren Bugzilla auf meinem Centos-server. aber ich bekam diese Fehlermeldung: Checking for DateTime-TimeZone (v0.71) not found und COMMANDS TO INSTALL REQUIRED MODULES (You *must* run all these commands and then re-run this script): /usr/bin/perl

bugzilla centos5 perl

was ist die beste Programmiersprache für Selen?

3 Antworten

Ich bin Planung zu lernen, Selen, was wäre die beste Sprache zu lernen, zusammen mit Selen? Perl oder Ruby oder anderen? Welche Sprachen kennen Sie? Welche Sprachen werden in Ihrem web-apps? Meinst du, welche Sprache ist am

perl ruby selenium

Wie kann ich feststellen, ob mein Perl-script unter Windows läuft?

4 Antworten

Was ist der beste Weg, um programmatisch festzustellen, ob ein Perl-Skript ausgeführt wird auf einem Windows-basierten system (Win9x, WinXP, Vista, Win7, etc.)? Füllen Sie die Felder hier: my $running_under_windows = ... ? 1 : 0; InformationsquelleAutor knorv

perl windows

Wie kann ich einen proxy für lynx

1 Antworten

Ich versuche zu laufen Luchs in meiner perl-cgi-Skript, damit es extrahiert text aus wen Seite. Ich mache es wie in der folgenden Art und Weise in meinem Skript, lynx -source -preparsed "$url" > data.txt Aber ich bekomme

linux lynx perl proxy

Wie kann ich testen, für ein exception-Typ in perl?

1 Antworten

Wie kann ich überprüfen, welche Art von Ausnahme verursacht, das Skript oder die eval block zu beenden? Ich muss wissen, die Art der Fehler und wo die Ausnahme aufgetreten ist. Verwandte: stackoverflow.com/questions/503189/... und stackoverflow.com/questions/2439966/... und stackoverflow.com/questions/2165161/... InformationsquelleAutor

die eval exception perl

Wie kann ich die beseitigen TT ' s "Wide character in print" Warnung?

2 Antworten

Habe ich diese Warnung jedes mal, wenn ich mein CGI-Skript (Leistung wird erbracht von Template::Toolkit): Wide character in print at /usr/local/lib/perl5/site_perl/5.8.9/mach/Template.pm line 163. Was ist der richtige Weg, Sie zu beseitigen? Erstelle ich die tt-Objekt mit dieser

perl template-toolkit unicode

Wie kann ich das löschen von Zeichen zwischen < und > in Perl?

4 Antworten

Muss ich schreiben, ein Perl-Skript zum Lesen in eine Datei, und löschen Sie alles innerhalb < >, auch wenn Sie auf verschiedenen Linien. Das ist, wenn die Eingabe: Hello, world. I <enjoy eating bagels. They are quite

multiline perl regex

Wie kann ich einen selektiven Zugriff auf die Elemente zurückgegeben, die von einer Perl-subroutine?

3 Antworten

Sagen, eine Perl-subroutine ein array zurückgibt: sub arrayoutput { ...some code... return @somearray; } Ich will nur den Zugriff auf ein bestimmtes array-element von diesem, sagen wir die erste. So konnte ich tun: @temparray=arrayoutput(argument); dann finden Sie

arrays perl subroutine

Get return-code und die Ausgabe von Befehl in Perl

2 Antworten

Bin ich zu schreiben versucht, ein Dienstprogramm, das gehen durch eine Datei würde wie folgt Aussehen: # Directory | file name | action | # of days without modification to the file for the command to take

perl return-value

So drucken Sie in zwei Dateien auf einmal?

5 Antworten

Ich habe Probleme dabei, diese Zeile von code zu arbeiten: for my $fh (FH1, FH2, FH3) { print $fh "whatever\n" } Ich fand es am perldoc aber es funktioniert nicht für mich. Den code habe ich bisher:

file perl printing syntax-error

Fehler bei der Installation für DBD::MySQL auf OSX v10.6.6

6 Antworten

Ich bin versucht zu bekommen, DBD::MySQL arbeiten auf Snow Leopard (v10.6.6). Die Standard-Perl-version, die kommt mit dem OS v5.10.0. Da ich gelesen habe, dass die 64-bit -, ich ging voran und Sie heruntergeladen und installiert eine 64-bit-version

dbd dbi mysql osx-snow-leopard perl

Perl command line suchen und ersetzen mit mehreren Ausdrücken

1 Antworten

Ich bin mit Perl suchen und ersetzen mehrere reguläre Ausdrücke: Wenn ich den folgenden Befehl ausführen, bekomme ich eine Fehlermeldung: prompt> find "*.cpp" | xargs perl -i -pe 's/##(\W)/\1/g' -pe 's/(\W)##/\1/g' syntax error at -e line 2,

perl

Ignoriert Whitespace-Zeichen mit Regex(perl)

4 Antworten

Ich bin mit Perl Reguläre Ausdrücke. Wie würde ich mich über das ignorieren Leerzeichen und noch einen test durchführen, um zu sehen, ob ein string passen. Zum Beispiel. $var = " hello "; #I want var to

perl regex

bei der Verwendung von CPAN in linux ubuntu sollte ich es mit sudo / als root oder als Standard-Benutzer

3 Antworten

Bekomme ich Fehler wie dieser Dem ausführen von make install Voranstellen blib/arch und blib/lib der 17 build-dirs zu PERL5LIB; für 'Installation' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ERROR: Can ' T create '/usr/local/man/man3' Nicht schreiben-Berechtigungen für '/usr/local/man/man3' , Die Sie haben können,

configuration install linux perl ubuntu

Was bedeutet das <<'m'=~m>> syntax bedeuten in perl?

2 Antworten

So, ich verstehe, dass perl hat viel ungewöhnliche syntax, aber ich kam über ein code-snippet, das bei der Arbeit, die anderen Tag hat mich verwirrt. Könnte mir jemand bitte erklären, was es bedeutet: <<'m'=~m>> print $a unless

perl

Wie kann ich ein einfaches Menü in Perl?

6 Antworten

Ich arbeite an einem Perl-Skript, erfordert einige grundlegende Menü-Funktionalität. Letztendlich würde ich wie jedes Menü mit ein paar Optionen und dann entweder die option zum zurückkehren zum vorherigen Menü oder beenden. Beispiel: Dies ist ein Menü: Wahl

menu oop perl submenu user-interface

Ist Mojolicious ist "morbo" gut für die Produktion?

2 Antworten

Ist Mojolicious' morbo (Entwicklungs-Webserver) gut genug für die Produktion? Auch ist morbo gut genug, um zu behandeln viele http-requests? Oder muss ich das Apache-mod_perl für die Produktion statt morbo? Sie könnte einen Blick auf "Starman" in Kombination

mojolicious perl