Manchmal ist es nützlich zu wissen, wie man ein Perl-Script in PHP einbinden kann. So vor Kurzem, als ich in Frauchens PHPbb-Forum eine kleine Funktion einfügen wollte.
Wer sich den Quellcode eines solchen Forums mal angesehen hat, der weiss, daß man da nicht mal so einfach etwas dazuprogrammieren kann, vor allem, wenn man sooo fit in PHP auch nicht ist. Wenn man allerdings das Problem in Perl quasi schon im Kopf gelöst hat, sucht man eben eine Schnittstelle von PHP nach Perl.
Ich stand kürzlich vor dem Problem, daß ich eine einzelne Seite "umziehen" mußte, die wohl ganz gut bei Google stand, die aber an dieser Stelle nicht mehr existieren sollte.
Also brauchte ich einen Befehl, um Google und natürlich auch den Besuchern mitzuteilen, daß diese Seite jetzt an einer anderen Stelle existiert.
Ich habe ja hier schon einmal über die Flip-Flop-Funktion in Perl geschrieben. Damals ging es um das Durchsuchen eines Arrays. Die Tage hatte ich ein ähnliches Problem, diesmal allerdings mit einer Datei. In dieser Datei lagen einige Daten, auf die ab und an mal zugegriffen werden soll, allerdings nur lesend. Das Beschreiben oder Ändern war nicht von Nöten.
Aufgrund der Leseranfrage hier will ich doch natürlich eine kleine Routine vorstellen, die dieses Problem löst. Die Fragestellung war also, wie man ein Datum mit Uhrzeit in Epochen, also Sekunden seit 1.1.1970, 0 Uhr, umwandelt.
Vorbereitung Wichtig ist es, das Datum und die Uhrzeit in einzelne Werte zu zerlegen, also Tag, Monat, Jahr, Stunde, Minute und Sekunde. Weiterlesen...
Also mein Laptop, auf dem Vista installiert ist, braucht bei einem vollständigen Neustart ca. 45 Sekunden, bis alles initialisiert wurde.
Da das manchmal etwas lange ist, hab ich mal so ein bißchen im System herumgestöbert und bin über ein interessantes Feature gestolpert, das ich bisher nicht kannte: Unter msconfig kann die Anzahl der Prozessorkerne, die beim Booten verwendet werden, angegeben werden. Seltsamerweise ist per default 1 eingestellt, es wird also nur Kern verwendet, wenn gebootet wird. Warum nicht 2 oder 4, wenn man sie hat? Weiterlesen...
Ich habe ja hier darüber geschrieben, wie man doppelte Arrayeinträge aussortiert und dabei die Reihenfolge beibehalten kann. Anhand des Beispieles fiel mir dann noch ein kleines Script ein, das man vielleicht öfters mal brauchen kann:Inhalte eines Arrays nach Häufigkeit sortieren.
Mein Script sieht folgendermaßen aus:
@a=qw(peter heiner franzl peter karin heike mia franz mia otto);
Aufgrund einer Leseranfrage, wie man denn doppelte Elemente eines Arrays entfernen kann, die Reihenfolge aber beibehalten werden soll, hier mein kleiner Lösungsvorschlag.
Mit Hash-Slices und so hat dies nichts zu tun, vielmehr wird grep verwendet.
Hallo mal wieder, habe schon lange nichts mehr geschrieben hier, bin anderweitig beschäftigt...
Nichts desto trotz fiel mir heute mal wieder was ein, was glaube ich wert ist, geschrieben zu werden.
Und zwar geht's um folgendes: Wer unter Windows Vista mit Perl programmiert, kommt ja nicht drumrum, ab und an in der Eingabeaufforderung seine Scripte zu testen. So geht's mir auch. Und wenn man da so am Testen und speziell am Fehlersuchen ist, kann es schon mal nerven, daß man ständig das "perl script.pl" eintippen muß, besonders, wenn die Scripte dann noch richtige Namen haben. Weiterlesen...