[es] - Perl script/utility to change html page titles?

moebius
vladimir moebius

Član broj: 43243
Poruke: 5
*.cardio.on.ca.

Sajt: work in progress

Profil

Perl script/utility to change html page titles?

^{22.03.2005. u 17:47}

Borim se s Perlom ali bezuspesno....

Znate li za neku scriptu sa kojom bih mogao da promenim HTML page titles?

And Now For Something Completely Different...

^{22.03.2005. u 17:47}

misa vranje
Milos Stanojevic
Vranje

Član broj: 15298
Poruke: 122
217.26.66.*

Profil

Re: Perl script/utility to change html page titles?

^{05.04.2005. u 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]}

^{05.04.2005. u 21:47}

alex
Aleksandar Radulovic
Team/Project Manager, Software Development, Síminn hf.
Reykjavik, Iceland

Administrator
Član broj: 71
Poruke: 2101
*.in.is.

Jabber: maurice.chavez@gmail.com
ICQ: -1
Sajt: www.a13x.info

Profil

Re: Perl script/utility to change html page titles?

^{06.04.2005. u 11:24}

Offtopic - Milose, namesti svoj browser da ne pamti naslov teme - svaka poruka koju posaljes ima isti naslov "kako prevesti program.pl u program.exe(HITNO)" - s obzirom da smo tu temu davno resili, regulisi taj browser.

Alex: My favorite site is http://localhost/
R.J. Oppenheimer: "I am become death, destroyer of worlds" (1945 AD)

^{06.04.2005. u 11:24}