Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Perl script/utility to change html page titles?

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

[ Pregleda: 2733 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

moebius
vladimir moebius

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

Sajt: work in progress


Profil

icon Perl script/utility to change html page titles?22.03.2005. u 17:47 - pre 3558 dana i 8h

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

icon Re: Perl script/utility to change html page titles?05.04.2005. u 21:47 - pre 3544 dana i 5h
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


Profil

icon Re: Perl script/utility to change html page titles?06.04.2005. u 11:24 - pre 3543 dana i 15h
Laptopovi

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

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

[ Pregleda: 2733 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.