wchristian

Tut mir leid dass es länger gedauert hat.

> Mir ist vor allem klar, dass Fukushima nach Three Mile Island (1979) und Tschernobyl (1986) nun schon der 3. (Super-)GAU innerhalb von gut 30 Jahren war.

Vergleichst du allen Ernstes ein Vorkommen bei dem mindestens 5000 Tote zu beklagen waren mit einem bei dem die Anzahl der Todesopfer unter zehn liegt (welche alle durch physische Ursachen kamen)? (Mal ganz zu schweigen von den Unterschieden in der Strahlungsausbreitung.) Du bist ja in dem erstem Post den ich zitiert habe ganz knapp dran vorbei geschlittert, aber dass du dich soweit aus dem Fenster lehnst hätte ich nicht erwartet.

Ganz ehrlich, ich hoffe ich muss jetzt nicht erklären warum dieser Vergleich über alle Masse überzogen und unpassend ist.

> Damit wäre in meiner ganz persönlichen Lebenszeit bereits 3x ein Ereignis aufgetreten, mit dem statistisch nur alle paar tausend Jahre rechnen muss (selbst das wäre mir zuviel).

wchristian

use strict;
use warnings;

package prereqs;

use Perl::PrereqScanner 0.100830; # bugfixes
use PPI;
use Version::Requirements 0.100630;  # merge with 0-min bug
use version;

wchristian

[root@data-stats ~]#  iptables -L --line-numbers
Chain INPUT (policy ACCEPT)
num  target     prot opt source               destination
1    ACCEPT     all  --  anywhere             anywhere            state RELATED,ESTABLISHED
2    ACCEPT     icmp --  anywhere             anywhere
3    ACCEPT     all  --  anywhere             anywhere
4    ACCEPT     tcp  --  80.81.255.97         anywhere            state NEW tcp dpt:ssh
5    ACCEPT     tcp  --  80.81.255.99         anywhere            state NEW tcp dpt:ssh
6    ACCEPT     tcp  --  80.81.255.97         anywhere            state NEW tcp dpt:http
7    REJECT     all  --  anywhere             anywhere            reject-with icmp-host-prohibited

wchristian

[root@speedy-personal-dev ~]# perl -e '-e $_ && print "$_\n " for@INC'
/usr/lib/perl5
 /usr/share/perl5
 /usr/lib/perl5
 /usr/share/perl5
 /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi
 /usr/lib/perl5/vendor_perl/5.10.0
 /usr/lib/perl5/vendor_perl

wchristian

; zeige alle Probleme
severity   = 1

; gib sehr viele Informationen aus
verbose    = 5

; suche nur nach den unten genannten Problemen
only       = 1

; gib nur die 20 schlimmsten Probleme aus

wchristian

package Bundle::Traffics;
$VERSION = '0.1';
1;

__END__

=head1 NAME

Bundle::Traffics

wchristian

###
### important bits in lines: 257, 263, 461
###

D:\>cpan MSCHWERN/ExtUtils-MakeMaker-6.57_07.tar.gz
Set up gcc environment - 3.4.5 (mingw-vista special r3)
CPAN: LWP::UserAgent loaded ok (v5.834)
CPAN: Time::HiRes loaded ok (v1.9719)
Fetching with LWP:
  http://ppm.activestate.com/CPAN/authors/01mailrc.txt.gz

wchristian

use strict;
use warnings;

package compare_reports;

use CPAN::Reporter::History;    # _split_history
use File::Slurp qw'read_file write_file';
use List::Util 'min';
use CPANDB;
use DBIx::Class::Schema::Loader 0.05;

wchristian

  CPAN.pm: Going to build L/LE/LEONT/ExtUtils-Helpers-0.001.tar.gz

CPAN: CPAN::Reporter loaded ok (v1.1902)
Checking if your kit is complete...
Looks good
Writing Makefile for ExtUtils::Helpers
Writing MYMETA.yml and MYMETA.json
(C:\Perl10\bin\perl.exe Makefile.PL INSTALLDIRS=site exited with 0)
CPAN::Reporter: Makefile.PL result is 'pass', No errors.
cp lib/ExtUtils/Helpers.pm blib\lib\ExtUtils\Helpers.pm

wchristian

C:\Perl10>cpan

cpan shell -- CPAN exploration and modules installation (v1.9402)
Enter 'h' for help.

cpan[1]> look Params::Classify
Going to read 1029 yaml files from C:\Perl10/cpan/build/
............................................................................DONE
Restored the state of 130 (in 1.1000 secs)