Wide character in Compress::Raw::Zlib::crc32 - #149202 (Allgemeines zu Perl)

bianca

2011-05-27 12:37

User since
2009-09-13
6978 Artikel
BenutzerIn

user image

Aber wenn man das macht kommt eine andere komische Fehlermeldung:

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;
use WWW::Mechanize;
use Compress::Raw::Zlib;
my ($d, $status) = new Compress::Raw::Zlib::Deflate ( -CRC32 => 1, ) ;
my $mech = WWW::Mechanize->new();
$mech->get( 'http://audiologie-phoniatrie.charite.de/forschung/schwerpunkte/phaenotypische_variablitaet_pathologischer_kommunikation/forschungsprojekte/metas/impressum' );
my $crc;
{
    use bytes;
    $crc = sprintf( '%x', $d->crc32( $mech->content() ) );
}
print $crc, "\n";

ergibt:

Code: (dl )

Usage: Compress::Raw::Zlib::deflateStream::crc32(s) at test.pl line 12.

Dieses deflateStream ist nicht dokumentiert auf CPAN, kann ich nichts mit anfangen. Aber vielleicht hilft es dir weiter?

10 print "Hallo"
20 goto 10