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

GwenDragon

2010-08-04 14:55

User since
2005-01-17
14837 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 Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

Antworten mit Zitat