tagi w HTML-u

[grzek]

chce zamienic tagi html z malych liter na duze, np: <img src="plik.jpg"\> ma wygladac tak <IMG SRC="plik.jpg"\>. Instrukcja tr/a-z/A-Z/ zamienia mi cala linie a nie tylko taga. Dobieram sie do tagow w ten sposob:
open (file,"+<$plikhtml");
while ($line = <file>){
while ($line !~ /(\"[\w\W]*?\")/g){
#jesli nie sa to znaki w "" to zamien cala reszte na duze litery
tr/a-z/A-Z/; #to wlasnie nie dziala
}
}

pozdro

[TQM]

Nie dziala bo zle szukasz... Przekombinowales :-)

Jesli linia nie zawiera WORD, NON-WORD, COKOLWIEK w cudzyslowach to zamien linie na duze litery... a co z trescia strony - chyba interesuje Cie jedynie podmiana tagow HTML?

#!/usr/bin/perl -w
use strict;

sub fixtags {
	my @tmp = split(/"/, $_[0]);
	if ($#tmp == 0) {
		$tmp[0] =~ tr/a-z/A-Z/;
		return $tmp[0];
	} else {
		for (my $k=0;  $k <= $#tmp; $k++) {
			$tmp[$k] =~ tr/a-z/A-Z/  if $k % 2 == 0;
		}			
		return join '"', @tmp;
	}
}

while (<>) {
	chomp;
	s/(<.*?>)/&fixtags($1)/eg;
	print;
}

Teraz to co wyzej zapisac jako np. fixtags.pl i uzywac jako:
cat plik.html | fixtags.pl > fixed_plik.html

Programik specjalnie napisalem dosc prosto - mozna skrocic :-) Calosc z testowaniem to niecale 20 minut...

Milej zabawy...