Opened by Crian at 2004-07-23 13:33
User since
2003-08-04
5875 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5875 Artikel
ModeratorIn
Moin, Esskar hat mir Freitag noch dieses Snippet geschickt, aber ich hab die Mails erst heute wieder abgerufen.
Naja, wenn vielleicht auch spät, man kann dieses Snippet verwenden, um das Problem mit 0d unter Windows zu umgehen:
Das muss jetzt aber auch nicht mehr in alle Lösungen eingebaut werden, je nach Lust und Laune. Die Lösungen poste ich frühestens nach 70 Stunden (muss nachsehen wann ich das Rätsel Freitag gestellt hab) und wenn ich dazu komme, aber auf jeden Fall heute noch. Heute Abend stelle ich sie auch online und trage sie auch ins Wiki ein.
Naja, wenn vielleicht auch spät, man kann dieses Snippet verwenden, um das Problem mit 0d unter Windows zu umgehen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
if(defined $ARGV[0] and -f $ARGV[0])
{
if(open(my $fh, $ARGV[0]))
{
binmode $fh;
my $buffer;
my $len = 0;
while($_ = read($fh, $buffer, 1024, $len)){ $len += $_; }
hexdump($buffer);
}
}
else
{
hexdump(<>);
}
Das muss jetzt aber auch nicht mehr in alle Lösungen eingebaut werden, je nach Lust und Laune. Die Lösungen poste ich frühestens nach 70 Stunden (muss nachsehen wann ich das Rätsel Freitag gestellt hab) und wenn ich dazu komme, aber auf jeden Fall heute noch. Heute Abend stelle ich sie auch online und trage sie auch ins Wiki ein.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite