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

pomoc oko perl skripte

[es] :: Perl :: pomoc oko perl skripte

[ Pregleda: 4771 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Cykke
Rijeka, Croatia

Član broj: 15129
Poruke: 35
*.cmu.carnet.hr

Sajt: www.mmcpwd.tk


Profil

icon pomoc oko perl skripte07.09.2004. u 09:42 - pre 238 meseci
Tek sam poceo sa perlom, tako da vecinom primam errore 500
Dakle...
Imam html stranicu gdje upisem 3 podatka te proslijedim na pl skriptu.
Ono sta zelim, jest da skripta ta tri podatka upise u jedan txt file koji je na tom istom web serveru ili na nekom drugom. Je li to moguce?

U html-u sa ta tri podatka nazvao ime, prezime i grad

Code:

#!/usr/bin/perl 
$ime = $field{'ime'} ;     
$prezime = $field{'prezime'} ;     
$grad = $field{'grad'} ;    
open (OUT, "http://www.imehosta.com/cgi-bin/podaci.txt"); 
print OUT $ime; 
print OUT "/n";
print OUT $prezime; 
print OUT "/n"; 
print OUT $grad;
print OUT "/n"; 
print OUT "-------------/n"; 
close OUT; 


Nadam se da razumijete sto zelim uciniti.
Buduci da mi je ovo prva skripta koju pokusavam modificirati svojim potrebama, a imam jaako malo perl znanja, u skripti vjerovatno ima pun kufer gresaka.
Pa bih vas molio da mi pomognete
 
Odgovor na temu

VRider
Marković Damir
(BGD/SD Karaburma)/Pirot

Član broj: 1510
Poruke: 4132
212.200.53.*

Jabber: damirm | gmail | com
ICQ: 134002435


+13 Profil

icon Re: pomoc oko perl skripte07.09.2004. u 15:06 - pre 238 meseci
Ja koristim druge funkcije za preuzimanje podataka tako da tu ne mogu da kazem imas li greske, ali ova je ocigledna:
Code:
open (OUT, "http://www.imehosta.com/cgi-bin/podaci.txt"); 

Umesto toga, treba da otvaras fajl ovako
Code:
open (OUT, ">> /var/www/cgi-bin/podaci.txt"); 

A na windowsu
Code:
$putanja = "c:\\putanja\\do\\fajla\\podaci.txt";
open (OUT, ">> $putanja"); 

JaFreelancer.com
 
Odgovor na temu

Cykke
Rijeka, Croatia

Član broj: 15129
Poruke: 35
*.cmu.carnet.hr

Sajt: www.mmcpwd.tk


Profil

icon Re: pomoc oko perl skripte09.09.2004. u 10:17 - pre 238 meseci
hvala na pomoci
 
Odgovor na temu

Malcolm
CEO
Lyctum
Zemun

Član broj: 516
Poruke: 503
195.252.86.*

Sajt: www.lyctum.com/pvc-prozor..


+1 Profil

icon Re: pomoc oko perl skripte09.09.2004. u 14:55 - pre 238 meseci
Uglavnom uz svaku scriptu imas readme.
procitaj bice ti od koristi dok ne savladas osnovne stvari.

Pozdrav
 
Odgovor na temu

Cykke
Rijeka, Croatia

Član broj: 15129
Poruke: 35
*.cmu.carnet.hr

Sajt: www.mmcpwd.tk


Profil

icon Re: pomoc oko perl skripte09.09.2004. u 18:31 - pre 238 meseci
Well, nije meni problem za skripte koje idem modificirat...
Ali ovu sam ja isao raditi ;)
 
Odgovor na temu

Free_Sex
Aleksandar
Beograd

Član broj: 9601
Poruke: 616
*.vdial.verat.net



Profil

icon Re: pomoc oko perl skripte10.09.2004. u 22:53 - pre 237 meseci
Code:

#!/usr/bin/perl 
$ime = $field{'ime'} ; 


A sta kao ovo treba da ti vrati vrednost koja je upisana u formular ?!?

Evo ti jedan minimum perl script koji ja koristim kao template za sve skripte koje radim (manje vise...)

Code:

#!usr/bin/perl

use CGI::Carp qw{fatalsToBrowser}; # ovo kako ti nebi izbacio samo error 500
# vec i sta je greska !!
use CGI; # ako ovo ne koristis za CGI programiranje ti si lood

use strict; # ako ovo ne koristis kasnije rabijas glavu ako pogresno otkucas
#ime neke promenljive ...

my $q = CGI->new(); # sad u $q imas objekat tipa CGI ;)

print $q->header(); # odstampa ti content type ...etc to je prva stvar koju
# cgi skripta mora da odstampa u svakom slucaju !!!

my $f = $q->Vars(); # sad u $f imas hashref na sadrzaj formulara

print $f->{ime}; # ovo stampa sadrzaj polja ime iz formulara


Dakle posle ovoga ti pristupas sa $f->{nesto_ovde} polju koje se zove nesto_ovde ...

E kazem ti VRider-u onakvi tutorijali dusu dali za ovakve ljude koji tek pocinju.
Neko se ovde sa forum aponudio da ih prevodi na srpski ...
 
Odgovor na temu

VRider
Marković Damir
(BGD/SD Karaburma)/Pirot

Član broj: 1510
Poruke: 4132
212.200.53.*

Jabber: damirm | gmail | com
ICQ: 134002435


+13 Profil

icon Re: pomoc oko perl skripte11.09.2004. u 00:54 - pre 237 meseci
Code:
use CGI::Carp qw{fatalsToBrowser}; # ovo kako ti nebi izbacio samo error 500

Za ovo nisam znao. Do sada sam uvek tail-ovao log. Covek svaki dan nauci nesto novo.
Code:
print $q->header(); 

Ovo nije lose, ali ja vise volim to rucno, zajedno sa cookiejem, jer su ove perlove funkcije cesto davale svakakve rezultate (proveo sam pre par meseci dok sam radio maturski 6 sati trazeci gresku, i na kraju se ispostavilo da je nesto do perla).
Code:
my $f = $q->Vars(); # sad u $f imas hashref na sadrzaj formulara
print $f->{ime};

Umesto ovoga ja koristim ovo
Code:
print $q->param{ime}


JaFreelancer.com
 
Odgovor na temu

Free_Sex
Aleksandar
Beograd

Član broj: 9601
Poruke: 616
*.vdial.verat.net



Profil

icon Re: pomoc oko perl skripte11.09.2004. u 08:59 - pre 237 meseci
E daj ne zezaj da nisi znao za Carp modul....
Doduse i ja sam se zezao sa veratovim error logom dok to nisam negde video.
Ali ti si kao duze u perl vodama od mene :)

Sto se tice header, ni ja ne koristim vise ovaj pristup. Jer idem preko CGI:Application modula. Pa onda tamo definisem header samo ako treba da se redirektuje ili recimo izbaci neka slicica, ovaj obican on sam po default-u pravi.

A ovo poslednje je zgodno kada pravis formular. Pa ti treba ispravka istog. Samo prosledis $f -> HTML::Template-u ;)
 
Odgovor na temu

OmerBeg

Član broj: 34822
Poruke: 18
*.versanet.de

Sajt: www.oglasi.com


Profil

icon Re: pomoc oko perl skripte18.09.2004. u 11:54 - pre 237 meseci
Citat:
VRider
Code:
Code:
print $q->header(); 

Ovo nije lose, ali ja vise volim to rucno, zajedno sa cookiejem, jer su ove perlove funkcije cesto davale svakakve rezultate (proveo sam pre par meseci dok sam radio maturski 6 sati trazeci gresku, i na kraju se ispostavilo da je nesto do perla).


taj dio koda (gdje kazes da je do perla) bih volio da vidim !


SdP,
OmerBeg !!!!

www.oglasi.com - najveci izbor nekretnina na Balkanu !!!!
 
Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.omega.bg



+6455 Profil

icon Re: pomoc oko perl skripte18.09.2004. u 12:20 - pre 237 meseci
Ovaj tvoj code ima mnogo propusta:

Original:
Code:
#!/usr/bin/perl 
$ime = $field{'ime'} ;     
$prezime = $field{'prezime'} ;     
$grad = $field{'grad'} ;    
open (OUT, "http://www.imehosta.com/cgi-bin/podaci.txt"); 
print OUT $ime; 
print OUT "/n";
print OUT $prezime; 
print OUT "/n"; 
print OUT $grad;
print OUT "/n"; 
print OUT "-------------/n"; 
close OUT; 






Pravilno:
Code:

#!/usr/bin/perl --

print "Content-type: text/html\n\n"; # Ovo je da bi sprecio pojavljivanje Server error 500

require "cgi-lib.pl"; # Inicijaliziras funksije za parsovanje
&ReadParse(*field); # Ucitavas ono sto si uneo preko forma, i tek onda

$ime = $field{'ime'}; # sledi ovaj tvoj deo    
$prezime = $field{'prezime'};     
$grad = $field{'grad'};    

open(OUT, ">>/tmp/podaci.txt") or dienice("Ne mogu da otvorim file: $!");

# sa >> radis append a sa > radis overwrite
# path ti mora biti u sistemskom formatu znaci 
# ~/directory/filename.txt ili ./filename.txt ili ../dir/filename.txt 

print OUT $ime; 
print OUT "/n";
print OUT $prezime; 
print OUT "/n"; 
print OUT $grad;
print OUT "/n"; 
print OUT "-------------/n"; 
close OUT; 

## I naravno skriptu pozivas iz HTML-a GET formom, ili rucno ovako:
## http://localhost/cgi-bin/es.cg...ezime=Vukovic&grad=Beograd


Cgi-Lib.pl imas attachovan uz ovu poruku
Prikačeni fajlovi
 
Odgovor na temu

VRider
Marković Damir
(BGD/SD Karaburma)/Pirot

Član broj: 1510
Poruke: 4132
212.200.53.*

Jabber: damirm | gmail | com
ICQ: 134002435


+13 Profil

icon Re: pomoc oko perl skripte18.09.2004. u 12:48 - pre 237 meseci
@OmerBeg: Problem je bio kad sam slao i kuki. A kod nazalost nemam, jer ne cuvam nista sto ne radi. Nisam kolekcionar.
@ventura:
Code:
require "cgi-lib.pl"; # Inicijaliziras funksije za parsovanje
&ReadParse(*field); # Ucitavas ono sto si uneo preko forma, i tek onda

Ovo je nepotrebno. Vec imas modul CGI koji je standardan.
Code:
print OUT $ime; 
print OUT "/n";

Ovo me vec zabavlja.
Code:
print OUT "$ime\n";

Zar ne?
JaFreelancer.com
 
Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.omega.bg



+6455 Profil

icon Re: pomoc oko perl skripte18.09.2004. u 15:58 - pre 237 meseci
Citat:
@ventura:
Code:

require "cgi-lib.pl"; # Inicijaliziras funksije za parsovanje
&ReadParse(*field); # Ucitavas ono sto si uneo preko forma, i tek onda 


Ovo je nepotrebno. Vec imas modul CGI koji je standardan.


Cenim da nije... Probaj da bez ove dve linije izvrsis skriptu, pa ces da vidis sta ces imati kao rezultat $ime, $prezime i $grad koje popunjava parser...

Ako ostavis samo "&ReadParse(*field);" verovatno ti se ni skripta nece izvrsiti do kraja...
 
Odgovor na temu

OmerBeg

Član broj: 34822
Poruke: 18
*.versanet.de

Sajt: www.oglasi.com


Profil

icon Re: pomoc oko perl skripte18.09.2004. u 16:20 - pre 237 meseci
Citat:
VRider: @OmerBeg: Problem je bio kad sam slao i kuki. A kod nazalost nemam, jer ne cuvam nista sto ne radi. Nisam kolekcionar.


e, steta ... A sta mislis o upotrebi CGI::Cookie .. Inace sam fan CPAN modula ;-) ....
Zato sto samo kvalitetni moduli mogu uci na CPAN i zato sto su mi se u poslu pokazali
kao veliki prijatelji ;-). Neke poslove sam uradio za 1/3 vremena nego da sam sam to
radio ;-)
SdP,
OmerBeg !!!!

www.oglasi.com - najveci izbor nekretnina na Balkanu !!!!
 
Odgovor na temu

VRider
Marković Damir
(BGD/SD Karaburma)/Pirot

Član broj: 1510
Poruke: 4132
212.200.53.*

Jabber: damirm | gmail | com
ICQ: 134002435


+13 Profil

icon Re: pomoc oko perl skripte18.09.2004. u 18:02 - pre 237 meseci
Code:
use CGI;
my $q = CGI->new();
print $q->param{'ime'};

O ovome sam govorio, ventura.

@omerbeg: koristim CGI::Cookie da generisem kuki, ali ga potom isprintam "rucno":
Code:
$cookie = new CGI::Cookie(-name=>'ime',-value=>$vrednost);
        print "Set-Cookie: $cookie\n";

Inace, i ja sam veliki fan CPANa. Programiranje u perlu je dundjerski posao sa CPANom. Sakupis cigle koje ti trebaju, naslazes, i gotovo!
JaFreelancer.com
 
Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.omega.bg



+6455 Profil

icon Re: pomoc oko perl skripte19.09.2004. u 08:27 - pre 237 meseci
Citat:
Inace, i ja sam veliki fan CPANa. Programiranje u perlu je dundjerski posao sa CPANom. Sakupis cigle koje ti trebaju, naslazes, i gotovo!


Da, ali zato posao odradis brzo i kvalitetno!
 
Odgovor na temu

VRider
Marković Damir
(BGD/SD Karaburma)/Pirot

Član broj: 1510
Poruke: 4132
212.200.53.*

Jabber: damirm | gmail | com
ICQ: 134002435


+13 Profil

icon Re: pomoc oko perl skripte19.09.2004. u 12:37 - pre 237 meseci
To kazi svima koji traze perl programera.
JaFreelancer.com
 
Odgovor na temu

[es] :: Perl :: pomoc oko perl skripte

[ Pregleda: 4771 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

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