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 machen DateTime::Duration Ausgabe nur in Tagen?

Anzahl der Antworten 2 Antworten
Dieser code findet den Unterschied zwischen heute und einem bestimmten Datum. #!/usr/bin/perl use strict; use warnings; use Data::Dumper; use DateTime (); use DateTime::Duration (); use DateTime::Format::Strptime (); my $date = "23/05-2022"; my $parser = DateTime::Format::Strptime->new( pattern =>

%ENV funktioniert nicht und ich kann shared library

Anzahl der Antworten 5 Antworten
Kann ich nicht verwenden %ENV var auf meiner Perl-Skript für die Verwendung von Oracle-libs. BEGIN { $ORACLE_HOME = "/usr/lib/oracle/10.2.0.3/client64"; $LD_LIBRARY_PATH = "$ORACLE_HOME/lib"; $ORACLE_SID="prod"; $ENV{ORACLE_SID}=$ORACLE_SID; $ENV{ORACLE_HOME}= $ORACLE_HOME; $ENV{LD_LIBRARY_PATH}= $LD_LIBRARY_PATH; }; Wenn ich drucken $ENV{'ORACLE_HOME'} und $ENV{'LD_LIBRARY_PATH'} scheint alles

Sollte ich vermeiden Sie verschachtelte if-Anweisungen in Perl?

Anzahl der Antworten 10 Antworten
Mache ich einige Perl-und da mein verschachtelte "wenn" - Aussagen ist das fahren mich verrückt. Ich habe es geschafft zu reduzieren, einige von Ihnen mit guard blockiert, die in einem anderen Abschnitt, aber ich bin hier hängengeblieben.

Perl Spreadsheet::XLSX verweisen auf ein bestimmtes Blatt in der Arbeitsmappe

Anzahl der Antworten 1 Antworten
Immer noch lernen zu laufen (kriechen?) in Perl. Habe ich den Perl-code, wo ich bin im Grunde versucht, um eine Schleife durch array-strings und finden diese Blätter in meiner Arbeitsmappe (für jetzt, ich bin 100% sicher es

Was bedeutet das Perl -p-Befehlszeilenoption tun?

Anzahl der Antworten 6 Antworten
perl -p -i.bak -e 's/search_str/replace_str/g' filename Was tun -p, -i.bak s/ und /g bedeuten? InformationsquelleAutor Bharath | 2010-03-19

Ist es möglich, Parameter für die ein Perl-Modul geladen wird?

Anzahl der Antworten 2 Antworten
Ich bin derzeit auf der Entwicklung einer multi-Umgebung die perl-Skript. Wie Sie alle wissen werden, Umwelt Konfiguration jonglieren könnte durchaus ein Schmerz, wenn schlecht gemacht. Als mein perl-script erlauben muß, einige Kommandozeilen-Parameter in einer Konfiguration Wert überlastung

Perl regex ersetzen von zahlen mit sich selbst, nur eins höher

Anzahl der Antworten 1 Antworten
Ich habe einen text, wie kann ich ersetzen Sie alle zahlen mit sich selbst, nur eins höher? Ich habe versucht, Dinge wie die folgenden: $buffer_content=~s/(\d)/($1++)/g; Was hast du als Antwort in diesem Versuch? Nur die Zeichenkette "2++"?

Perl - Sammeln Sie alle von STDIN, bis leere Zeile oder EOF

Anzahl der Antworten 4 Antworten
Wie kann ich Sie sammeln alle Zeilen von STDIN Zeilen, bis eine leere Zeile oder EOF, je nachdem, was zuerst kommt. Es würde so Aussehen: my @lines; while(<> ne EOF || <> not blank) { chomp; push(@lines,

Das Parsen einer XML Datei mit dem Perl-XMLSimple

Anzahl der Antworten 2 Antworten
Ich versuche zu analysieren, eine XML-wie-Datei mit der folgenden Struktur: Bearbeiten: Ich versuchte weglassen, die meisten der riesigen xml-Datei zu vereinfachen, aber alles c/p-ed-zu Unrecht. Hier die vollständige Datei (900 Kb!) tatsächlich hat dieses Problem: https://docs.google.com/file/d/0B3ustNI1qZh1UURrYWZJQk0wVlU/edit?usp=sharing <CIM

Perl: Ziehen Paare von Werten aus einem array

Anzahl der Antworten 5 Antworten
Betrachten #!/usr/bin/perl use strict; use warnings; while(<DATA>) { my($t1,$t2,$value); ($t1,$t2)=qw(A P); $value = $1 if /^$t1.*$t2=(.)/; ($t1,$t2)=qw(B Q); $value = $1 if /^$t1.*$t2=(.)/; ($t1,$t2)=qw(C R); $value = $1 if /^$t1.*$t2=(.)/; print "$value\n"; } __DATA__ A P=1 Q=2

Warum nginx mit Katalysator/Schwarz/Starman?

Anzahl der Antworten 3 Antworten
Ich versuche zum bereitstellen von meine kleine Katalysator-web-app mit Schwarz/Starman. Alle Unterlagen, die zu suggerieren scheint, möchte ich diese in Kombination mit nginx. Was sind die Vorteile dieser? Warum nicht Starman gerade auf port 80? InformationsquelleAutor Eric

Elch "generator" vs "Standard"

Anzahl der Antworten 3 Antworten
Ich verstehen, dass die Verwendung builder ermöglicht es Unterklassen zu überschreiben Attribut Standardwerte leicht und die Rollen können require Sie. Dies kann auch erreicht werden mit default etwa so: has 'foo' => is => 'rw', isa =>

Benötigen, senden Sie eine JSON-request in perl

Anzahl der Antworten 1 Antworten
Bin ich habe Probleme bei dieser Arbeit habe ich immer einen 400 bad request-response. Jede Hilfe wird sehr geschätzt, da dies mein Erster Versuch an beiden coding perl und der Verwendung von JSON. Ich hatte zu entfernen,

Perl system ruft beim ausführen als anderer Benutzer mit sudo

Anzahl der Antworten 2 Antworten
Entwickelt ich ein perl-Skript, das bietet eine menügesteuerte Funktionen, um Benutzern zu erlauben die Durchführung ein paar einfache Aufgaben. Muss ich die Benutzer in der Lage sein, Aufgaben wie das kopieren von Dateien (halten Sie das aktuelle

Perl Möglichkeit des Durchsuchens 2 arrays in parallel

Anzahl der Antworten 3 Antworten
Ich verwendet Use List::MoreUtils qw(each_array); my $it = each_array( @input_dump_arr, @created_dump_arr); while ( my ($first, $second) = $it->()) { } Wäre diese Arbeit in einem Standard-perl-Konfiguration? Eine breitere Frage, gibt es Richtlinien zum schreiben von "portable" perl-Skripts?

Welche Geschmacksrichtung der reguläre Ausdruck ist grep?

Anzahl der Antworten 6 Antworten
Ich vermute, es ist nicht ein Perl-Kompatiblen, Regulären Ausdruck, da es eine Besondere Art von grep die speziell PCRE. Was grep meisten ähnlich? Gibt es irgendwelche besonderen Macken grep dass ich wissen muss? (Ich bin verwendet, um

Wie kann ich analysieren eine raw SNMP-trap in Perl?

Anzahl der Antworten 3 Antworten
Vor ein paar Wochen schrieb ich einen SNMP-relayer für unser ops-Gruppe. Sie haben einige dumme Geräte, die nur senden von traps an eine einzige IP, und wir haben ein monitoring-system überwacht, auf mehrere IPs für die Verfügbarkeit.

Perl-Regex-match-Linien, die mehrere Wörter enthalten

Anzahl der Antworten 2 Antworten
Ich versuche zu entwickeln, die eine ziemlich schnelle Volltextsuche. Es wird der index gelesen wird, und sollte idealerweise führen Sie den Abgleich in nur einem regex. Deshalb brauche ich eine regex, die Spiele Linien nur dann, wenn

Parser-Fehler : Eröffnungs-und End-tag mismatch:

Anzahl der Antworten 1 Antworten
Ich habe ein problem beim Lesen der XML-Datei. Wenn Sie bitte schauen Sie unter xml im folgenden finden Sie element <fl> ?fl> statt <fl></fl>. Ich erhalte error opening und ending tag mismatch. Wie: Es gibt einen Fehler

Wie kann ich einen debugger anfügen an einen Laufenden Perl-Prozess?

Anzahl der Antworten 3 Antworten
Ich ein Perl-Prozess, der stecken geblieben ist, möchte ich stecken im inneren mit einem debugger, um zu sehen, was falsch ist. Ich kann nicht den Prozess starten. Kann ich den debugger an den Laufenden Prozess? Ich wissen Sie,

Perl: extrahieren von Daten aus text mit regex

Anzahl der Antworten 3 Antworten
Ich bin mit Perl zu tun Textverarbeitung mit regex. Ich habe keine Kontrolle über die Eingabe. Ich habe gezeigt, einige Beispiele für die Eingabe unten. Wie Sie sehen können die Elemente B und C können in den

wie Sie abschneiden, einen string mit Hilfe regulärer Ausdruck in perl

Anzahl der Antworten 5 Antworten
Ich habe folgenden string in einer Datei und wollen, kürzen Sie die Zeichenfolge, um nicht mehr als 6 char. wie zu tun, dass die Verwendung regulärer Ausdruck in perl? die original-Datei ist: Katze shortstring.in: <value>[email protected]</value> <value>[email protected]</value> Möchte

Perl-Skript zum Zusammenführen mehrerer Dateien Zeile für Zeile

Anzahl der Antworten 3 Antworten
Kann jemand bitte helfen Sie mir mit dem schreiben ein Perl-Skript, die als input 5 text-Dateien, und erstellen Sie eine neue text-Datei mit der Zusammenführung jede Zeile alle 5 Dateien. Sollte dies durch die Eröffnung von 5

Sie versuchen zum ausführen von perl-Skripts mit fast-cgi und lighttpd, aber Datei-downloads

Anzahl der Antworten 4 Antworten
Das problem ist, mein .pl-Skript wird heruntergeladen, wenn Sie eine leere Datei anstatt ausgeführt. Habe ich gelesen: http://redmine.lighttpd.net/wiki/lighttpd/ApplicationsUsingLighttpd Mein Versand.fcgi ist folgende: (es liegt in usr/bin/ #!perl #!/usr/bin/perl use strict; use CGI::Fast; use Embed::Persistent; { my $p

Mit hash als Referenz ist veraltet

Anzahl der Antworten 4 Antworten
Suchte ich ALSO vor diese Frage zu stellen, ich bin völlig neu hier und habe keine Ahnung, wie man diese Fehler. Damit meine ich Perl-Sprache. Wenn ich diese %name->{@id[$#id]} = $temp; Bekomme ich die Fehlermeldung Using a

In Perl können wir geben Sie zwei Werte für den gleichen Schlüssel in einem hash ohne zu verlieren(überschreiben) ersten?

Anzahl der Antworten 4 Antworten
nachdem ich deklariere ein hash in perl %hash1=(a=>"turkey", b=>"india", c=>"england", d=>"usa") wenn ich einen neuen Wert zuweisen, um bereits vorhandene Schlüssel wie $hash1{d}="australia"; ich verliere den vorherigen Wert mit der Taste 'd' ich.e "usa", weil wenn ich

Wie lösche ich die read-only-flag aus einer Datei in Perl?

Anzahl der Antworten 2 Antworten
Muss ich klar das read-only-flag einer Datei in meinem Perl-Programm, das auf Windows läuft. Ich weiß system("attrib -r $filename") funktionieren würde, aber ich Frage mich, ob es gibt keine eingebaute option in Perl, es zu tun. chmod

Perl: Löschen mehrerer Zeilen aus text Datei mit einem bestimmten string

Anzahl der Antworten 3 Antworten
Ich habe eine text Datei mit Daten im unten angeführten format.. @rectype='ABC' @recname='123' @rec_id='1K2j' etc... @rectype='DEF' @recname='matin' @rec_id='458i' etc... @rectype='ABC' @recname='John' @rec_id='lom0' etc... @rectype='GHI' @recname='Kalme, @rec_id='pl90' etc... @rectype='KLM' @recname='Kitty' @rec_id='987k' etc... @rectype='ABC' @recname='OMR' @rec_id='lo09' etc... Nun, ich

Perl: command-line-Verarbeitung mit GetOptions

Anzahl der Antworten 2 Antworten
Problem: Ich habe ein Skript, das aufgerufen werden kann, in eine der folgenden Arten: ./script.pl -a ./script.pl [-w] -<i|d|r|t> Bedeutung, die -w flag ist optional, aber entweder -i oder -d oder -r oder -t muss angegeben werden.

Perl-Compilation Error: “Can ' T locate local/lib.Uhr"

Anzahl der Antworten 1 Antworten
Als Perl-Neuling, ich habe einen rookie-Fehler. Ich war an einem Projekt arbeiten, das benötigt einen HTML-parser, so dass ich dachte, ich hätte die Installation von Perl HTML::TreeBuilder::XPath-Modul, so dass ich tauchte in cpan und perlbrew ohne ein

wie zum ausführen von code kurz vor der Ausfahrt perl-Skript

Anzahl der Antworten 3 Antworten
In meinem script, ich brauche zu laden, ein paar Infos von disk-Datei und beim ausführen von Skript die Informationen möglicherweise geändert werden.Zu halten die Konsistenz der Datei in der Festplatte und es in den Speicher zu kopieren,

Finden, wenn das system ist little-endian oder big-endian mit perl

Anzahl der Antworten 2 Antworten
Ist es eine option, um zu finden, wenn mein system ist little endian oder big-endian-byte-Reihenfolge mit Perl? InformationsquelleAutor oren | 2010-04-09

Perl-Skript zur Verknüpfung mehrerer Linien in einzelnen Linie nach einem Trennzeichen

Anzahl der Antworten 2 Antworten
Mir immer die Nachrichten von dem remote-system , die Reaktion sind multi line und ich haben, es zu konvertieren in eine einzige Linie auf der Grundlage der Trennzeichen. den Inhalt des stream-reader sind wie unten Iam in

Perl-Prozess stecken bleibt, mit «*** glibc detected *** perl: corrupted double-linked list: 0x0000000001474b40 ***» - wie kann ich es kündigen?

Anzahl der Antworten 2 Antworten
Ich habe versucht zu Debuggen, ein memory corruption-problem mit Perl 5 und XML::LibXML (die ich jetzt halten). Nun, hier ist, was ich immer bin: [email protected]:~/progs/perl/cpan/XML/LibXML/bugs/perl-xml-libxml-bugs/XML-LibXML-reader-segfault$ make test XML_CATALOG_FILES="`pwd`/sgml-lib/catalog.xml" perl find_ascii_quotes.pl index.html *** glibc detected *** perl: corrupted

Warum sind manche hashes initialisiert mit geschweiften Klammern, und einige mit Klammern?

Anzahl der Antworten 3 Antworten
Ich bin auf der Suche in der folgende code demonstriert verschachtelte hashes: my %HoH = ( flintstones => { husband => "fred", pal => "barney", }, jetsons => { husband => "george", wife => "jane", "his boy"

Warum sollte ich nicht UNIVERSAL::isa?

Anzahl der Antworten 6 Antworten
Gemäß dieser http://perldoc.perl.org/UNIVERSAL.html Ich soll nicht mit UNIVERSAL::isa() und sollte stattdessen mit $obj->isa() oder KLASSE->isa(). Dies bedeutet, dass, um herauszufinden, ob etwas eine Referenz in den ersten Platz, und dann ist die Referenz zu dieser Klasse zu

Wie konvertiere ich einen string in einen regulären Ausdruck übereinstimmt, selbst in Perl?

Anzahl der Antworten 5 Antworten
Wie konvertiere ich einen string mit einem regulären Ausdruck übereinstimmt, selbst in Perl? Habe ich eine Reihe von Zeichenfolgen wie diese: Enter your selection: Enter Code (Navigate, Abandon, Copy, Exit, ?): und ich will wandeln Sie reguläre

Wie kann ich Benutzereingaben, ohne zu warten, geben Sie in Perl?

Anzahl der Antworten 2 Antworten
Ich versuche, ein interaktives shell-Skript in Perl. Die einzige Benutzereingabe, die ich finden kann ist folgende: $name = <STDIN>; print STDOUT "Hello $name\n"; Aber in diesem der Nutzer muss immer enter drücken, damit die änderungen wirksam werden.

So ändern Sie Standard-perl-installation, die man installiert macports

Anzahl der Antworten 4 Antworten
Ich installiert perl5.14 via macports. Durch Eingabe which perl Bekomme ich /usr/bin/perl Wie ändere ich die perl um die macports ein. Meine .Profil: # MacPorts Installer addition on 2012-02-02_at_14:42:32: adding an appropriate PATH variable for use with

Warum funktioniert mein Perl-Programm zu warnen, über einen nicht initialisierten Wert?

Anzahl der Antworten 3 Antworten
Habe ich geschrieben ein Perl-Skript, das unten erzeugt eine Warnung und ich kann nicht herausfinden, warum. #!/usr/local/bin/perl -w $status = $ENV{ 'STATUS' }; if ( $status eq "" ) { $status = 0; } else { $status

Perl Konvertierung von Binär-stream an hex

Anzahl der Antworten 2 Antworten
Das problem, das ich habe ist, wenn ich ein Perl-Skript zum Auslesen der Daten (PE EXE-Datei) über STDIN und der stream enthält ein Zeilenende-Zeichen "0A" bei der Konvertierung zu hex findet es. Wenn ich dann konvertieren des

Das senden einer trap mit Perl Net::SNMP

Anzahl der Antworten 1 Antworten
Ich versuche einen trap senden als Teil einer größeren Perl-Skript. Ich habe kopiert die trapsending code in einer anderen Datei, und verwende es selbst. Der code scheint zu denken, dass die Falle schickt erfolgreich, aber ich bin

Warum wird Perl sich beschweren, über die "Verwendung von nicht initialisierten Wert" in mein CGI-Skript?

Anzahl der Antworten 3 Antworten
Bin ich die Reinigung meines Perl-code, die für die Produktion freigeben und stieß dabei auf eine seltsame Warnung in der Apache-error-log. Er sagt: [Thu Nov 5 15:19:02 2009] Clouds.pm: Use of uninitialized value $name in substitution (s///)

Sparen Sie Abgestimmt Perl-Regex-Variable

Anzahl der Antworten 4 Antworten
Habe ich ein einfaches Perl-regex, die ich brauche, zu retten, als eine variable. Wenn ich es ausdrucken: print($html_data =~ m/<iframe id="pdfDocument" src=.(.*)pdf/g); Er druckt, was ich will, um zu sparen, aber wenn man versucht, es zu retten

Verwendung von nicht initialisierten Wert in substitution (s///) Fehler in PERL

Anzahl der Antworten 2 Antworten
Ich bin nicht verwendet, um Perl-hatte aber zum erstellen dieser Funktion. sub getPrice { my $url = shift; my $prdid = shift; my $count = shift; my $totcount = shift; print "($count/$totcount) Fetching Product Price : $prdid

Die Anerkennung der macht der "moderne" regexes

Anzahl der Antworten 1 Antworten
Welche Klasse von Sprachen, für die wirkliche moderne regexes eigentlich erkennen? Wann immer es gibt eine unbegrenzte Länge erfassende Gruppe mit einem back-Referenz (z.B. (.*)_\1) ein regex ist jetzt matching eine nicht-reguläre Sprache. Aber dies alleine ist

Wie kann ich überprüfen, ob ein Perl-Skript in einem terminal?

Anzahl der Antworten 5 Antworten
Ich bin versucht zu bestimmen, innerhalb ein Perl-Skript unter Linux, ob es läuft in einem terminal. Ist, muss ich code: gibt true zurück, wenn einfach ausführen auf der Kommandozeile auch true zurück, wenn ausgeführt ./myscript.pl | less

Perl Lesen von zwei Dateien und schreiben in eine Dritte

Anzahl der Antworten 1 Antworten
Ich habe Probleme damit, mein Programm zu arbeiten. Im Grunde lese ich aus beiden Dateien, dann schreiben Sie die Daten in eine. Kann mir jemand erklären, was das problem ist? Ich bekomme den Fehler über die Instanziierung

Nächster Schritt nach PHP: Perl oder Python?

Anzahl der Antworten 14 Antworten
Könnte es scheinen, es wurde gefragt, mehrfach, aber in der Tat es nicht. Ich habe meine Forschung, und ich bin nun begierig zu hören die Meinungen anderer. Ich habe Erfahrung mit PHP 5, sowohl mit der funktionalen

Wie um zu überprüfen, ob die Perl-DBI-Modul in meinem system?

Anzahl der Antworten 4 Antworten
Ich bin mit Perl in XAMPP für server-side-scripting. Ich möchte die access-Datenbank von Perl. Ich bin mit use DBI;. Wie um zu überprüfen, ob die Perl-DBI vorhanden ist, in meinem system? Ich bin immer Server-Error. Error 500.