Opened by John Doe at 2011-05-23 12:50
Ein minimales Beispiel mit fehler-bringender URL:
$content = $mech->content(); habe ich mal etwas gekürzt, aber ansonsten ist das die problematische Stelle und ergibt:
perl -v:
Last edited: 2011-05-23 15:50:40 +0200 (CEST)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use Compress::Raw::Zlib;
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', Compress::Raw::Zlib::crc32( $mech->content() ) );
}
print $crc, "\n";
$content = $mech->content(); habe ich mal etwas gekürzt, aber ansonsten ist das die problematische Stelle und ergibt:
Code: (dl
)
Wide character in subroutine entry at D:\mgress\web\minex.pl line 11.
perl -v:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
This is perl 5, version 12, subversion 2 (v5.12.2) built for MSWin32-86-multi-thread
(with 8 registered patches, see perl -V for more detail)
Copyright 1987-2010, Larry Wall
Binary build 1203 [294165] provided by ActiveState http://www.ActiveState.com
Built Dec 9 2010 04:03:28
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
Last edited: 2011-05-23 15:50:40 +0200 (CEST)