Thread zum Heulen 2.0 - #140371 (Sonstige Beiträge (auch Spaß und Sinnloses))

GwenDragon

2010-08-04 14:55

User since
2005-01-17
14542 Artikel
Admin1

Oh nein, bloss nicht.
Warnings sind ok.

Nur wenn sie bei mehreren Hundert Requests Webserverlogs zumüllen, wird es grässlich.

Niemals macht man sowas wie in CheckHW. Das habe ich als nur als abschreckendes Beispiel genommen:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
# Testkäse ;)
my @siz1 = Test::Img::CheckWH('<img src="abcdef.jpg">');
my @siz2 = Test::Img::CheckWH('<img src="abcdef.jpg" h=99 w=88>');
1;
package Test::Img;
use warnings;
sub CheckWH {
        my $str = shift;
        my ($h, $w) = $str =~ /h=(.+)\s+w=(.+)/;
        $h = '' if $h eq '*';
        $w = '' if $w eq '*';
        return ($h,$w);
}
1;

Aber solche Fehler sind doch nett.

Da bei wäre ein

Code (perl): (dl )

1
2

$h = '' if $h && $h eq '*';
$w = '' if $w && $w eq '*';

doch so viel sinnvoller.

Ich verrate lieber den bekannten CPAN-Author nicht. Dass Perl-Profis solche Anfängerfehler noch machen!?

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

Antworten mit Zitat