allagn encoding se html

[Mihalis Tsoukalos]

On Sat, 27 Feb 1999, Antonis Tsolomitis wrote:

> Date: Sat, 27 Feb 1999 17:09:36 +0200 (EET)
> From: Antonis Tsolomitis <atsol1 at iris.math.aegean.gr>
> Reply-To: linux-greek-users at hellug.gr
> To: linux-greek-users at hellug.gr
> Subject: Re: allagn encoding se html
> 
> Mnmpws 0a mporouse kapoia metatropn se auto pou egrapses
> va diabazei diadoxika ta epomeva directories?
> Giati to latex2html paragei eva gia ka0e arxeio pou
> epeksergazetai. kati sav -r dnladn.

Me to parakato perl script kai mia entoli
find . -name "files_you_want" -exec scriptname {} \;

tha koitaksei kai osa directories theleis.

mixalis.

-----------------------------------

#!/usr/bin/perl -w

$filename = shift @ARGV;
# The extention of the new file
$EXT = 'tmp';

rename ( $filename, "$filename.$EXT" ) || die "Error renaming files: $!";

open (INPUT, "<$filename.$EXT" ) || die "Error opening $filename.$EXT: $!";
open (OUTPUT,">$filename" ) || die "Error opening $filename: $!";

while ( defined ($line = <INPUT>) )
{

	$line =~ s/searchstring/replacestring/;
	print OUTPUT $line;
}

close(INPUT);
close(OUTPUT);
# Finally delete the $filename.$EXT file
unlink( "$filename.$EXT" ) || die "Error on unlinking: $!";

exit 0;

--
====================================================================
Gia boithia (h na diagrafhte) e-mail sto majordomo at hellug.gr
Ta archives tis listas einai sto http://lists.hellug.gr
prin steilete kapoia erothsh psakte mipos exei hdh apanththei.
Gia opoiodipote problima stilte e-mail ston owner-linux-greek-users
====================================================================