Impressum

Frank Seitz
Industriestraße 31
22880 Wedel

E-Mail: fs

fseitz.de
Telefon: +49 (0)4103 180301
Fax: +49 (0)4103 180302

Kurzprofil
CPAN-Module
Vuvuzela-Time

Donnerstag, 25. März 2010

Perl: Plus / Minus Unendlich

Perl kennt mehrere Zeichenketten, die - numerisch interpretiert - plus und minus Unendlich bedeuten.

Plus Unendlich:	`'+inf'`, `'+infinity'`, `'inf'`, `'infinity'`
Minus Unendlich:	`'-inf'`, `'-infinity'`

Beispiel: Maximum ermitteln

1	my $max = '-inf';
2	for my $n (-100,-10,-50) {
3	$max = $n if $n > $max;
4	}
5	say $max;
6	__END__
7	-10

Aber Achtung: Diese besonderen Werte sind nicht sonderlich gut dokumentiert und scheinen bei einigen Windows-Ports nicht zu funktionieren. Siehe: http://reneeb-perlblog.blogspot.com/2010/03/unendliches-perl.html

Geschrieben von Frank Seitz in Perl um 08:23 | Kommentar (1) | Trackbacks (0)

Donnerstag, 18. März 2010

Perl: Dirhandles objektorientiert

Analog zu lexikalischen Filehandles besitzt Perl lexikalische Dirhandles. Eine Dirhandle ist ein Iterator über einem Verzeichnis. Die Operationen auf Dirhandles lassen sich objektorientiert kapseln.

Hier eine entsprechende Klasse Dirhandle mit drei Methoden: new() (Directory öffnen), close() (Directory schließen) und next() (nächster Directory-Eintrag):

1	package Dirhandle;
2
3	use strict;
4	use warnings;
5
6	sub new {
7	my ($class,$dir) = @_;
8
9	opendir my $dh,$dir or die "ERROR: opendir failed: $dir ($!)\n";
10	return bless $dh,$class;
11	}
12
13	sub close {
14	my $self = shift;
15
16	closedir $self or die "ERROR: closedir failed ($!)\n";
17	return;
18	}
19
20	sub next {
21	return readdir shift;
22	}
23
24	1;
25
26	# eof

Beispiel: Gib alle Einträge des Verzeichnisses $dir auf STDOUT aus

 1 use Dirhandle;
 2 
 3 my $dh = Dirhandle->new($dir);
 4 while (my $entry = $dh->next) {
 5     say $entry;
 6 }
 7 $dh->close;

Das Dirhandle-Objekt $dh kann wie jede normale Dirhandle an die Perl-Builtins readdir(), telldir(), seekdir(), rewinddir(), closedir() übergeben werden.

Geschrieben von Frank Seitz in Perl um 22:41 | Kommentare (0) | Trackbacks (0)

Dienstag, 16. März 2010

Perl: Filehandles objektorientiert

Mit lexikalischen Filehandles ist es in Perl leicht möglich, File-I/O objektorientiert zu kapseln. Hier zur Veranschaulichung eine Klasse Filehandle mit drei Methoden: new() (Datei öffnen), close() (Datei schließen) und slurp() (Datei komplett einlesen):

1	package Filehandle;
2
3	use strict;
4	use warnings;
5
6	sub new {
7	my ($class,$mode,$file) = @_;
8
9	open my $fh,$mode,$file or die "ERROR: open failed: $file ($!)\n";
10	return bless $fh,$class;
11	}
12
13	sub close {
14	my $self = shift;
15
16	close $self or die "ERROR: close failed ($!)\n";
17	return;
18	}
19
20	sub slurp {
21	my $self = shift;
22
23	local $/;
24	return scalar <$self>;
25	}
26
27	1;
28
29	# eof

Beispiel: Lies eine Datei komplett ein und gib sie auf STDOUT aus

 1 use Filehandle;
 2 
 3 my $fh = Filehandle->new('<',$file);
 4 print $fh->slurp;
 5 $fh->close;

Der Clou: Die Filehandle $fh kann unabhängig von der Klasse wie jede andere Perl-Filehandle benutzt werden, z.B. mit dem Diamant-Operator <> oder jeder anderen Filehandle-Operation wie read(), write() usw. Obiges Programm lässt sich also auch so implementieren:

 1 use Filehandle;
 2 
 3 my $fh = Filehandle->new('<',$file);
 4 while (<$fh>) {
 5     print;
 6 }
 7 $fh->close;

Geschrieben von Frank Seitz in Perl um 13:57 | Kommentare (0) | Trackbacks (0)

Freitag, 5. März 2010

Perl: Crash bei Umleitung von STDERR auf Skalare Variable

Ich weiß nicht, wann Perl mir mal abgestürzt ist, aber jetzt bin ich auf einen Fall gestoßen:

1	#!/usr/bin/perl
2
3	use strict;
4	use warnings;
5
6	my $s;
7	close STDERR;
8	open STDERR,'>',\$s or die;
9	warn "a\n";
10	$s =~ s/./xx/g;
11
12	# eof

$ ./test.pl
Segmentation fault

Perl-Version (andere habe ich nicht probiert):

$ perl -v
This is perl, v5.10.1 (*) built for i686-linux

Variationen

Wenn $s kein In-Memory File ist, geht es.

Bei $s =~ s/./xx/; geht es (ohne g Modifier).

Bei $s =~ s/./x/g; geht es (der String wird nicht länger).

Schließen von STDERR vor dem s/// ändert nichts.

Geschrieben von Frank Seitz in Perl um 09:56 | Kommentare (0) | Trackbacks (0)

(Seite 1 von 1, insgesamt 4 Einträge)

Kalender

Suche

Statistiken

Letzter Artikel:
31.05.2010 16:41

40 Artikel insgesamt

Frank Seitz' Developer Logbuch

Einträge für März 2010