#! /usr/bin/perl # # # Converts ISO-8859-1 to full HTML # # # (c) 1997-1998 Emmanuel PIERRE # epierre@e-nef.com # http://www.e-nef.com/users/Emmanuel.PIERRE # # ne convertit pas ce qui se trouve entre # ############# # les accents aigus # $accents{'é'} = 'é'; $accents{'à'} = 'à'; # les accents graves # $accents{'è'} = 'è'; $accents{'ù'} = 'ù'; # les accents circomflexe # $accents{'ê'} = 'ê'; $accents{'î'} = 'î'; $accents{'ô'} = 'ô'; $accents{'û'} = 'û'; # les tremas # $conversion = 1; while( ) { if( /\<\s*SCRIPT\s*.*\>/i ) {$conversion=0;} if( /\<\/SCRIPT\>/ ) {$conversion=1;} if( $conversion ) { foreach $accent (keys %accents) { s/$accent/$accents{$accent};/g; } } print; } print "Thanks for using accents.pl !

\n";