roothausen

Entries tagged as regular expression

Umlaut Domains mit Lighty

21:12

Tuesday, May 20. 2008

Vor einiger Zeit hat sich ein Kumpel von mir so eine Umlautdomain angeschafft. Diese sollte dann auch hier auf dem Server gehostet werden. Nun hat sich alledings folgende Frage gestellt: Wie konfiguriert man diese im Webserver?

Die Antwort ist im Endeffekt recht simpel: Man gibt die Domain beim IDNS-Tool der Denic ein, wandelt diesen in einen ACE-String um und arbeitet dann mit dem ACE-String wie mit einer normalen Domain. Hier waere mal ein Beispiel mit der erfundenen Domain "bäääääääärtram.de":

$HTTP["host"] =~ "(^|.*\.)xn--brtram-buaaaaaaaa\.de$" {
....
}

Posted by Sven Pfleiderer in computer | Comments (0) | Trackbacks (0)

Defined tags for this entry: computer, lighttpd, regular expression, server, software

Massen Umbenennung mit Ruby

05:02

Monday, May 12. 2008

Nachdem ich mich in letzter Zeit so nebenbei etwas mit Ruby beschaeftigt habe und mir heute nach dem Download einiger Podcasts die Dateien mit "%20" im Dateinamen praesentiert wurden, wollte ich das mal mit Ruby statt zmv loesen.
Nach etwa zwei Minuten ist dabei dieser Einzeiler, der sich direkt auf der Ruby-Shell (irb) ausfuehren laesst, heraus gekommen:

Dir["*.mp3"].each { |file| File.rename(file, file.gsub(/%20/, "_")) }

Hier wird einfach bei jeder *.mp3 Datei im Verzeichnis das %20 im Dateinamen durch einen Unterstrich ersetzt.

Posted by admin in computer | Comments (4) | Trackbacks (0)

Defined tags for this entry: computer, programming, regular expression, ruby, software, stuff, tail -f /var/log/life

Email Adreesen extrahieren

14:42

Friday, May 2. 2008

Gestern hatte ein Bekannter von mir Probleme aus einer Textdatei oder Shell-Pipeline Email-Adressen zu extrahieren. Ich habe darauf hin ein kleines Perlscript dafuer angefertigt. Falls jemand so etwas brauchen kann, darf er es weiter verwenden.

#!/usr/bin/perl -w
use strict;
use IO::Handle;
my @linearr;
if ($ARGV[0]) {
my $infile = $ARGV[0];
open FILEIN, "< ", $infile or die $!;
@linearr = <FILEIN>;
close FILEIN;
} else {
@linearr = <STDIN>;
}
foreach my $line (@linearr) {
if ( $line =~ m/(\w[-.\w]+\@[-.\w]+\.\w{2,3})\W/) {
print("$1\n");
}
}

Man kann Script auf zwei Arten verwenden: Entweder man uebergibt eine Datei als Parameter "./emailscript.pl /pfad/zur/datei" oder man "piped" die Daten in das Script "cat /pfad/zur/datei | ./emailscript.pl".

Ich wuensche euch viel Spass damit

Posted by admin in computer | Comments (2) | Trackbacks (0)

Defined tags for this entry: linux&unix, opensource, perl, programming, regular expression, software

(Page 1 of 1, totaling 3 entries)

«	February '12					»
Mo	Tu	We	Th	Fr	Sa	Su
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29

Entries tagged as regular expression

Entries tagged as regular expression

Umlaut Domains mit Lighty

Massen Umbenennung mit Ruby

Email Adreesen extrahieren

Calendar

Quicksearch

Kategorien

Archiv

Feeds

Links

Tags

Lizenz