/blog/perl


substr() in Perl
[154172 mal gelesen]
foreach in Perl
[129166 mal gelesen]
Arrays in Perl - Besonderheiten
[125384 mal gelesen]
split() in Perl - Zeichenketten teilen
[113581 mal gelesen]
open() - Dateien öffnen in Perl
[108992 mal gelesen]
grep - Listen durchsuchen in Perl
[94729 mal gelesen]
chomp() in Perl
[93644 mal gelesen]
push in Perl
[90859 mal gelesen]
sleep in Perl - Das aktuelle Script warten lassen
[75984 mal gelesen]
index() in Perl - Zeichenkette in Zeichenkette suchen
[59578 mal gelesen]


Arrays
Dateien
HTPC
Hashes
Leistungsoptimiert
PHP
Perl
RegEx
Schleifen
Script
Skalare
Sonstiges
System
Webserver
Zur Startseite




Donnerstag, 3.1.2008, 08:13:26 Uhr

Fortgeschrittenes beschreiben von Dateien - einzelne Zeilen finden und ändern bzw. löschen


Nun, ich gebs ja zu, oft bin ich ja als Grundlagenforscher unterwegs.
Diesmal geht es darum, Dateien möglichst so zu beschreiben, so daß beim Einlesen bestimmte Zeilen besonders schnell wiedergefunden werden können.

Na gut, ein Beispiel
Ich habe 1000 fortlaufende Rechnungsnummern, dazu jeweils 1000 Brief-Texte, die ich in einer Datei speichern will.
Später will ich möglichst effektiv auf jeweils beliebige Rechnungsnummern plus Brief-Texte zugreifen.
Weiterlesen...


Dieser Beitrag wurde 7338 mal gelesen.

  Vollen Beitrag lesen    Nach oben





Montag, 31.12.2007, 18:27:33 Uhr

Auch von mir ein frohes neues Jahr 2008



Nachdem in diesem Jahr wieder so viel schönes (und auch unschönes) passiert ist und das das Jahr 2007 unweigerlich zu Ende geht, wünsche ich allen Lesern meines Blogs ein frohes und gesundes Jahr 2008.

Ich würde mich freuen, wenn auch im neuen Jahr wieder so viele Besucher durch ihre Anregungen und Kommentare an meinem Blog teilnehmen!

Weiterlesen...


Dieser Beitrag wurde 3884 mal gelesen.

  Vollen Beitrag lesen    Nach oben





Donnerstag, 20.12.2007, 05:57:34 Uhr

until in Perl



The until-command repeats a block, until a expression is true.

A simple example:

$i=0;

until ($i==10){print "$i\n";
$i++;
}


Weiterlesen...


Dieser Beitrag wurde 4901 mal gelesen.

  Vollen Beitrag lesen    Nach oben





Montag, 17.12.2007, 13:00:03 Uhr

Dateiendung herausfinden mit Perl


Also, wieder einmal etwas aus (meiner) Praxis:
Nachdem ich mich ja immer noch mit dem Verarbeiten von Webseiten beschäftigte, tauchte das Problem auf, daß ich Dateiendungen in <img...> oder <link...>-Tags herausfinden wollte.

Die einzelne Extraktion hab ich ja schon hier beschrieben, also wie man zum Beispiel an den Dateiname kommt.
Weiterlesen...


Dieser Beitrag wurde 11787 mal gelesen.

  Vollen Beitrag lesen    Nach oben





Samstag, 15.12.2007, 15:52:52 Uhr

Eine nette kleine RegEx


Ich bin gerade die Tage über eine kleine, nette RegEx gestolpert, die zwar nichts weltbewegendes ist, die ich aber trotzdem erwähnenswert finde.
Und zwar ging es wieder mal darum, aus einer Website einen Link zu extrahieren.

Die folgende kleine Regex holt dann zum Beispiel den href-Teil aus dem <a...>-Tag:

my $link=qq~<a href="test.htm" target="_blank">Ein Link</a>~;
if ($link=~ / href\=([\"\']*)(.*?)\1[\s\/>]/is) {
$ergebnis =$2;
}
else
{
$ergebnis='Kein Link da';
}
print $ergebnis;


Weiterlesen...


Dieser Beitrag wurde 8360 mal gelesen.

  Vollen Beitrag lesen    Nach oben





Freitag, 14.12.2007, 21:03:01 Uhr

Neuer Sozialfotografie-Blog online


Ein weiterer Blog, der auf meiner Software basiert, ist heute online gegangen.

Helge Lindau, ein langjähriger Fotograf, widmet sich dort dem Thema Sozialfotografie, im Besonderen dem Leben der Sinti und Roma.

Weiterlesen...


Dieser Beitrag wurde 4336 mal gelesen.

  Vollen Beitrag lesen    Nach oben





Dienstag, 11.12.2007, 11:51:25 Uhr

rindex - Zeichenketten "von rechts" durchsuchen


Also bei index haben wir ja schon gesehen, daß Zeichenketten vom Anfang an (von links) durchsucht werden, und falls vorhanden, die Position zurückgegeben wird.

rindex macht dies nun von der anderen Seite her, nämlich von hinten bzw. von rechts.

my $name='Ich bin Perl';
my $res=rindex($name,"bin");
print $res;


Weiterlesen...


Dieser Beitrag wurde 9367 mal gelesen.

  Vollen Beitrag lesen    Nach oben





Dienstag, 11.12.2007, 11:20:43 Uhr

Nochmal Links testen - mein Modul für Perl


Also ich habe mich ja schon öfters über das Testen von Links auf Webseiten ausgelassen. Da ich anscheinend einen Server habe, der weder das Modul Scraper noch WWW::Mechanize bereithält, bleibt mir eben nichts anderes übrig, als selbst mal wieder in die Tasten zu greifen und mir ein Modul zu schreiben, das Webseiten bzw. in Dateien gespeicherte Webseiten nach Links abgrast und mit alle Parameter der Links bereitstellt.

Herausgekommen ist das Modul, das hier heruntergeladen werden kann. Falls man es benutzen möchte, einfach in das cgi-bin-Verzeichnis kopieren und die Rechte auf 0755 setzen.
Und was kann das Modul?
Also:
Weiterlesen...


Dieser Beitrag wurde 5770 mal gelesen.

  Vollen Beitrag lesen    Nach oben





Donnerstag, 6.12.2007, 17:25:53 Uhr

Google Sitemaps - Script zur Erstellung einer Sitemap-Datei für Google


Googles Sitemaps sollen helfen, daß einzelne Webseiten von Google auch dann gefunden werden, wenn sie nirgends verlinkt sind. Dies ist dann wichtig, wenn man häufig wechselnden Content hat und ältere Beiträge nicht verloren gehen sollen. Zudem verspricht Google, daß die Indizierung dann schneller erfolgt.
Was liegt also näher, als sich ein kleines Perl-Script zu schreiben, das eine solche Sitemap erzeugt, und zwar direkt auf dem Server?

Also machte ich mich mal ran an das Problem, und zwar mit folgenden Vorgaben:
- Leicht zu konfigurieren
Weiterlesen...


Dieser Beitrag wurde 6831 mal gelesen.

  Vollen Beitrag lesen    Nach oben





Mittwoch, 5.12.2007, 15:01:45 Uhr

Die Schwartzsche Transformation - Arrays sortieren nach mehreren Kriterien


Oftmals hat man das Problem, daß man Arrayinhalte sortieren will.

Hat man nur einzelne Werte, wie zum Beispiel Nachnamen, kann dies bequem per sort() erledigt werden.

Etwas komplizierter wird es, wenn man nach mehreren Kriterien sortieren möchte, zum Beispiel nach Nachnamen und Vornamen.
Weiterlesen...


Dieser Beitrag wurde 9503 mal gelesen.

  Vollen Beitrag lesen    Nach oben



B l o o o o o o o o o o o o o o o o o o g
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19


SSD-Festplatte - Wassn das???
Die Transliteration - Nur ein Zeichen in einem Skalar ersetzen
Select - Case in Perl
Windows 7 XP Mode – Wo finde ich den XP-Modus unter Windows 7?
Mac-Adresse beim Apple Macintosh herausfinden
SGN-Funktion für Perl

Eigene IP herausfinden mit Perl
Epoche live in Datum umwandeln
Firefox 3 - Exe-Files downloaden


Gesamtverzeichnis
Februar 2010
Dezember 2009
Oktober 2009
Januar 2009
Dezember 2008
November 2008
September 2008
August 2008
Juli 2008
Juni 2008
Mai 2008
April 2008
Januar 2008
Dezember 2007
November 2007
Oktober 2007
September 2007
August 2007
Juni 2007
Mai 2007
April 2007
März 2007
Februar 2007
Januar 2007
Dezember 2006


Mister Wong

RSS-Feed

Heute ist der
23.11.2024

Es ist
19:13:13 Uhr

Ihre IP:
3.139.87.113

Blog-Einträge: 186

Die letzten 24 Stunden im Überblick


Gelesene Beiträge insgesamt:
4424065


Webseiten vergleichen
Kalender mit Feiertagen - 2028
Links finden und testen
Menschliche Datumsangaben
IP zu Domain herausfinden
Time live in Datum umwandeln
Perl für Windows



Impressum