>800 Dateien ändern

[jak]

Selbe Situation wie da: http://www.wcm.at/forum/showthread.php?threadid=114431

Gibt es eine Methode um in vielen Dateien folgendes zu ändern:
"Wenn das was rechts von WIDTH= zwischen " und " steht größer als 800 ist soll es, und das was nach HEIGHT= zwischen " und " steht halbiert werden.

Bin für jeden tip dankbar

Jak

[käptn]

Steht height immer nach width?

~

[jak]

Ja, eine Zeile hat immer diese Form:
[img]irgendetwas[/img]
z.B.:
[img]large/photo.jpg[/img]

Jak

[käptn]

PHP-Code:

$path = '/my/path/'; // trailing slash!

function _w($w,$h)
{
    if ($w > 800) {
        $w = round($w/2);
        $h = round($w/2);
    }

    return ' width="' . $w . '" height="'. $h .'" ';
}

$dir = dir($path);
while ($file = $dir->read()) {
    $file = $path.$file;
    if(is_dir($file)) continue;
    $new = preg_replace(
        '/\\swidth="?(\\d+)"?\\s+height="?(\\d+)"?/ie',
        '_w(\\\\1,\\\\2)',
        implode('', file($file))
    );

    $fh = fopen($file, 'w');
    fputs($fh, $new);
    fclose($fh);
} 


Ähnlich in Perl, wahrscheinlich etwas kürzer...

~

[jak]

Vielen Dank, hat einwandfrei funktioniert. (Obwohl sich ein Tippfehler eingeschlichen hat:

if ($w > 800) { 
        $w = round($w/2); 
        $h = round($h/2); //nicht $w/2
    }

Jak