Matthias Bethke schrieb:

Ein geeigneter Spickzettel ist z. B.

Gruß
Mirko

Hallo zusammen,

ich habe mir einen billigen Fortschrittsanzeiger für die Textkonsole
gebastelt, der mir bei länglichen Operationen (viele Iterationen)
pünktchenmäßig anzeigt, wie weit das Programm jeweils gekommen ist.

Um nicht zu viel Rechenzeit auf die Fortschrittsanzeige zu vergeuden
(viele Iterationen = viele Anzeigeaufrufe), habe ich eine Alternative
geschrieben, die via alarm() in definierbaren Intervallen nachschaut,
wie viele Fort-Schritte zwischenzeitlich aufgelaufen sind und sie
darstellt:

my $pbar = Progressbar::new(...);

$pbar->start(...);
foreach(...)
# mach was Nützliches hier
$enum++; # keine Magie, nur 1 dummen Skalar hochzählen

$pbar->stop;

So weit, so gut.

Hi,

für den Betreff ist mir nichts Besseres eingefallen, wie (wenn überhaupt)
kann ich denn z.B. mehrere Substitutionen in einem Rutsch erledigen?

$text = "a b c d";
$text =~ s/ /_/g; $text =~ s/d/e/;
Unter einer UNIX shell würde ich hier schreiben:
text = "a b c d"
echo $text | sed -e 's/ /_/g' -e 's/d/e/'

Oder auch zu einer Substitution Text hinzufügen:

$text = "a b c d";
$text =~ "Mein Text lautet" . s/ /_/g;

Danke und Gruß, Helmut

On 2008-09-14 23:01, Kai-Martin Knaak wrote:

Hallo,

Da ich aus dem Fehler nicht schlau werde und ihn selbst irgendwie
nicht beheben kann, wollte ich mal hier nachfragen, ob mir jemand
dieses Phänomen erklären kann.

Ich möchte ein Programm schreiben, dass per Zufallsgenerator eine Zahl
ermittelt, die zwei Stellen nach dem Komma hat (Bsp. 0.53).
Wenn das Programm bei 0.00 angekommen ist, soll es aus der Schleife
gehen und eine Ausgabe bringen.

An und für sich habe ich auch das Programm so gut wie fertig, aber es
tritt immer das Phänomen auf, dass Perl nie bei 0.00 ankommt.

Daraufhin habe ich diese Zeilen hier getestet und obwohl es recht
logisch ist, von 1.00 immer 0.10 abzuziehen beginnt Perl mit
irgendwelchen Berechnungen, die mir unbegreiflich sind.

Code:
___________________________________________________________________________________

use strict;

Guten Morgen NG,

ich suche ein Tie::File2, das mir mein File als 2 dimensionales Array
interpretiert, so als Tabelle. Der Spaltentrenner sollte eingestellt
werden können. Kennt da jemand so was, oder muß ich mir das selber
schreiben?

Danke Frank

moin!

Ich suche nach einer Lösung mit der ich 2 bis 3 ping Kommandos von
meinem host zeitgleich abzuschicken kann.

Nach längeren suchen habe ich das Modul
Parallel::ForkManager
entdeckt. Damit läßt sich die Aufgabe relativ einfach skripten,
allerdings ist das Modul schon mehrere Jahre alt, so das es mittlerweile
bestimmt was effektiveres/besseres für perl gibt.

Hat jemand Erfahrung mit der einfachen Parallelisierung unter perl und
kann mir einen Tip geben?

Es gibt natürlich auch diese ganzen Thread:: Module, aber da habe ich
bisher noch nicht so ganz durchgeblickt...

Dank und Gruß!

Klaus

Gegeben sei ein Hash mit Datensätzen wie

2008-09-11 39
2008-09-10 40
2008-09-08 35
2008-09-07 35
2008-09-05 28

Gibt es ein Modul oder anderes einfaches Verfahren das die fehlenden Daten
im Zeitbereich findet und mit Nullwerten auffüllt?
Hinterher soll 's also so aussehen:

2008-09-11 39
2008-09-10 40
2008-09-09 0
2008-09-08 35
2008-09-07 35
2008-09-06 0
2008-09-05 28

Der gegebene Zeitbereich kann dabei natürlich auch Monats oder
Jahresgrenzen überschreiten.

Hallo NG,

vorweg ich habe kaum Kenntnisse in Perl. Kenne mich aber in anderen
Programmiersprachen aus(PHP, C#, Basic).

Vor gut 3 Jahren stand ich vor dem Problem mit das ich einen Gameserver via
PHP starten wollte. Auf dem Root wo der Gameserver läuft sollte kein AMP
laufen. Da auf dem Linux Root eh schon Perl vorhanden war kam ich auf die
Idee einen Miniserver zu schreiben den ich über eine TCP Verbindung
ansprechen kann und der mir dann die Gameserver startet.

Ich habe mir folgendes Perl Script mithilfe des Internets erstellt was
bislang auch hervorragend funktioniert ->
http://axel-schmidt24.de/temp/ng/files/miniserver.txt

Hi,

ich möchte ein diff zweier Dateien in ein Array einlesen und bestimmte
Zeilen ausgeben. Leider ist mir die Syntax noch nicht ganz klar. Wie muss es
richtig heissen?

#!/usr/bin/perl
use strict;

use File::Temp qw(tempfile);
use Text::Diff;

my $line;
my @diff = (diff "/root/a.txt", "/root/b.txt", { STYLE => "Unified" });
foreach $line (@diff) {
if ($line =~ /^\-/) {
print $line . "\n";
}
}
exit 0;