[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 - pre 232 meseci}

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...

Odgovor na temu

misa vranje
Milos Stanojevic
Vranje

Član broj: 15298
Poruke: 127
217.26.66.*

Profil

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

^{05.04.2005. u 21:47 - pre 231 meseci}

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]}

Odgovor na temu

alex
Aleksandar Radulovic
Senior Software Engineer, Spotify
Stockholm, Sweden

Moderator
Član broj: 71
Poruke: 2194
*.in.is.

Jabber: alex@a13x.info
ICQ: -1
Sajt: www.a13x.info

+1 Profil

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

^{06.04.2005. u 11:24 - pre 231 meseci}

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)
tweet.13x ||
linkedin.13x

Odgovor na temu