Perl script/utility to change html page titles?

[ misa vranje @ 05.04.2005. 21:47 ] @

Evo ti dva scripta koja sam napisao pa ti koristi koji ti vise odgovara(drugi je kraci).Ako si pocetnik pretpostavljam da ce ti prvi script biti jasniji(ne koristi se Tie::File modul) ali medju njima nije neka velika razlika.

###############Prvi script################

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

my @file;
print "Unesi lokaciju stranice koju zelis da promenim:";
my $file=<STDIN>;
open(HTML,$file) or die "Nemogu da otvorim stranicu!!!\n";
while(<HTML>){
chomp;
push @file,$_;
if(/<title>/i){
until(/<\/title>/i){
$_=<HTML>;
chomp;
$file[$#file].=$_
}
print "Unesi novi title za stranicu:";
$_=<STDIN>;
chomp;
$file[$#file]=~s/(<title>).*?(<\/title>)/$1$_$2/;
undef $/;
push @file,<HTML>;
last
}
}
close HTML;
open(HTML,">$file") or die "Nemogu da editujem stranicu!!!\n";
print HTML join("\n",@file);
close HTML

##############Drugi script##################

#!/usr/bin/perl -w
use strict;
use Tie::File;

print "Unesi lokaciju stranice koju zelis da promenim:";
$_=<STDIN>;
chomp;
tie(my @file,'Tie::File',$_) or die "Nemogu da otvorim stranicu!!!\n";
foreach(1..$#file){
if($file[$_]=~/<title>/i){
until($file[$_]=~/<\/title>/i){
$file[$_].=$file[$_+1];
splice(@file,$_+1,1)
}
print "Unesi novi title za stranicu:";
my $title=<STDIN>;
chomp $title;
$file[$_]=~s/(<title>).*?(<\/title>)/$1$title$2/;
last
}
}
untie @file

_{[Ovu poruku je menjao misa vranje dana 06.04.2005. u 22:40 GMT+1]}