RDW #3 - Rätsel der Woche Nr. 3 - #84859 (Allgemeines zu Perl)

Crian

2004-07-26 19:01

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=Ronnie,26.07.2004, 16:50]Ich habe leider nicht rausgefunden wieso meine Lösung nicht mit Binärdateien funktioniert. Wenn einem von euch auffällt woran es liegt wüsste ich es sehr gerne.[/quote]
Probier es mal mit Esskars Schnippsel

Code: (dl )

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(<>);
}

statt

Code: (dl )

{
  local $/;
  binmode(STDIN);
  $input = <>;
}

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