|
Thema Perl
Samstag, 24.5.2008, 09:18:19 Uhr
Epoche eines bestimmten Datums herausfinden
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...
Sonntag, 20.4.2008, 22:36:47 Uhr
Arrayeinträge zählen und sortiert nach Häufigkeit ausgeben
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);
map {$hash{$_}++} @a;
@sortiert = map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
map { ["$_ $hash{$_}mal", $hash{$_}] } (keys %hash) ;
print join ("\n",@sortiert);
|
Weiterlesen...
Samstag, 19.4.2008, 18:27:38 Uhr
Doppelte Elemente aus Array entfernen - Und die Reihenfolge beibehalten
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.
@a=qw(7 1 2 3 4 5 7 4 6 7 8 9 10);
@new=grep{$hash{$_}++; $hash{$_}<2} @a;
print join("\n",@new);
|
Weiterlesen...
Dienstag, 1.4.2008, 12:28:36 Uhr
Letzte Befehle wiederholen unter Windows Vista - doskey
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...
Dienstag, 22.1.2008, 15:34:57 Uhr
Hash Slices - Was ist das?
Da in letzter Zeit hier öfters das Wort Hash-Slice gefallen ist, dachte ich mir, ich schreibe mal ein bißchen darüber.
Ein Hash besteht ja bekanntermaßen aus einem Key und seinem dazugehörigen Value, also $hash{key}=$value;.
Zusätzlich kann man sagen, daß ein Hash ein Array darstellt, was folgender Code zeigt:
Weiterlesen...
Montag, 21.1.2008, 17:43:25 Uhr
Ein PHPBB-Foum auf einen anderen Server umziehen
Nun, das hat mal so rein gar nichts mit Perl zu tun, aber ich habe doch tatsächlich den halben Sonntag-Nachmittag damit verbracht, das Forum von Frauchen auf nen neuen Server umzuziehen.
Da das aber nicht so einfach geht, dachte ich mir, ich schreib' hier mal drüber.
Vorbereitungen
Natürlich ein neuer Server... nee, aber im Ernst: Auf dem neuen Server muß eine neue MySQL Datenbank angelegt werden. Wichtig: Datenbankname und Passwort am Besten aufschreiben!
Weiterlesen...
Samstag, 19.1.2008, 10:54:40 Uhr
Elemente eines Arrays in einem Hash löschen - Die schnelle Methode
Ich habe ja bereits hier schon einmal darüber geschrieben, wie man doppelte Einträge eines Arrays entfernt, so daß nur noch die übrig bleiben, die einzigartig sind.Dazu fiel mir noch ein, daß sowas ja auch mit Hashes funktionieren könnte.
Die Problemstellung ist die:
Ich habe einen Hash mit irgentwelchen Werten, und will nun alle Hash-Elemente löschen, die in einem Array vorhanden sind.
Weiterlesen...
Dienstag, 15.1.2008, 13:20:34 Uhr
Die Perl-Blog-Software
Ich habe in letzter Zeit öfters mal Emails bekommen, mit Anfragen, mit welcher Software dieser Blog läuft und ob man das Script bekommen könnte.
Dazu muß ich leider sagen: Nein, das Script kann man nicht bekommen!
Ich habe damals mit dem Script angefangen, weil mir Lösungen wie Wordpress zu unflexibel für mich erschienen. Denn: Wordpress läuft nicht auf meinem USB-Stick. Und da ich auch gerne mal so auf der Arbeit, wenn mir gerade etwas einfällt, so nebenher schreibe, war mir eine Lösung wichtig, die überall läuft.
Alles, was hier zu sehen ist, ist also auf meinem Mist gewachsen und nicht im Web oder sonstwo erhältlich.
Weiterlesen...
Dienstag, 15.1.2008, 11:29:20 Uhr
Neue Suchfunktion - die 2.
Ich habe ja gestern endlich ne eigene Suchmaschine eingebaut, die ja bisher auch gut ihre Dienste tut (laut Logdateien), und da ich mich früher schonmal mit dem Thema befaßt habe (nicht hier allerdings), habe ich noch eine kleine Funktion eingebaut, nämlich eine Funktion, die ähnliche Wörter findet.
Hilfreich ist dies, wenn man sich einmal vertippt hat.
So schlägt das Script jetzt bei der Sucheingabe
scrpt
Weiterlesen...
Montag, 14.1.2008, 15:16:39 Uhr
Schande über mich - Ich habe PHP benutzt
Ja, so könnte die Überschrift lauten, wenn man für einen Perl-Blog auf PHP ausweichen muß...
Aber ganz so schlimm ist es ja auch nicht!
Ich habe heute endlich mal 'ne eigene Suchmaschine in diesen Blog eingebaut, und da mir die Probleme mit der Parameterübergabe und shtml-Seiten wohl bekannt waren, bin ich diesmal gleich auf php umgestiegen.
Weiterlesen...
|
RSS-Feed