Close
Duke shfaqur rezultatin -9 deri 0 prej 4
  1. #1
    i/e regjistruar
    Anëtarësuar
    06-09-2004
    Postime
    253

    Skript për regjistrimin e vizitorëve në PERL

    mirepres pergjigje per kete ushtrim

    Jepet skripti i meposhtem i shkruar ne gjuhen Perl. Supozojme se perdorusi qe ekzekuton skriptin ndodhet ne makinen me IP 80.78.23.56 dhe emer domain www.vizioninfo.com

    #!/usr/bin/perl
    sub writeCgiEntry
    {
    my ($logfile)="cgi.log";
    my ($name)=$ENV(`REMOTE_HOST `);
    my ($addr) = $ENV( ` REMOTE_ADDR ` );
    open (LOGFILE, ">>$logfile") or die("Skedari s'mund te hapet!");
    print LOGFILE("$name, $addr \n");
    }
    writeCgiEntry();

    Peshkruani:
    - qellimin e skriptit
    - si funksionon
    - veprimin rezultant te tij

  2. #2
    mos e luaj; I DEBUAR! Maska e qoska
    Anëtarësuar
    17-05-2004
    Vendndodhja
    tirane
    Postime
    837
    ky ben ruajtjen e te gjitha adresave ip qe lidhen ne serverin tend ne faqen cgi me modul perl te aktivizuar ne filen cgi.log dhe sa here e therret si funksion shkruan nje rresht te ri ne ate file qe ndodhet ne te njejten direktori si scripti.

    ti do te dish sa veta dine perl ne forum apo se kupton vete ???

    FUNKSIONIMI:
    deklarohen tre variabla
    emrin e filet
    dhe lexon dy te tjera nga abmienti i shellit te serverit pasi jane dy variabla shelli te serverit sidomos apache dhe kryen funksione te thjeshta si open file dhe pastaj shkruan me te ne print.

    gjithsesi duhet thirrur si funksinon nga nje faqe cgi qe te punoje.

  3. #3
    Programues Softueresh Maska e edspace
    Anëtarësuar
    04-04-2002
    Vendndodhja
    Filadelfia, SHBA
    Postime
    2,565
    Qëllimi i skriptit është që të regjistrojë emrat dhe IP e përdoruesve që ekzekutojnë skriptin më lart në skedarin cgi.log.

    Kodi PHP:
    #!/usr/bin/perl
    sub writeCgiEntry
    {
    # emri i regjistrit
    my ($logfile)="cgi.log";  

    # emri i kompjuterit, psh: vizioninfo.com ose forumishqiptar.com
    # ndonjehere serveri nuk e gjen dot emrin dhe kjo variabel eshte bosh
    my ($name)=$ENV(`REMOTE_HOST `); 

    # adresa IP e kompjuterit qe ekzekuton skriptin
    # ndonjehere mund te jete IP e proxy-t (psh: IP e albtelecom)
    my ($addr) = $ENV( ` REMOTE_ADDR ` );

    # hapim skedarin cgi.log
    # >> ka kuptimin "shtese" (append), dmth ruajme te dhenat qe ka ne 
    # skedar dhe vetem sa shtojme te dhena te tjera ne fund
    open (LOGFILE">>$logfile") or die("Skedari s'mund te hapet!");

    # shkruajme nje rresht me emrin e kompjuterit dhe adresen IP
    # te ndara me presje
    # \n mbyll rreshtin
    print LOGFILE("$name$addr \n");

    }

    # ketu therasim funksionin me lart
    writeCgiEntry(); 
    Ja një shembull i regjistrit cgi.log
    Kodi:
    forumishqiptar.com, 69.72.56.115
    vizioninfo.com, 80.78.23.56
    albtelecom.al, 210.30.112.35
    forumishqiptar.com, 69.72.56.115
    , 192.168.0.1
    localhost, 127.0.0.1
    , 192.168.0.1 => s'ka emër sepse serveri nuk e gjeti dot
    localhost, 127.0.0.1 => localhost tregon se skripti është ekzekutuar nga vetë severi që e përmban atë (psh nga aministratori)
    Edi

  4. #4
    i/e regjistruar
    Anëtarësuar
    06-09-2004
    Postime
    253
    po, flm per pergjigjet, ky ishte si ushtrim ne nje teze provimi te lendes "programim i sistemeve te shperndare" qe duhet te jap, ndaj pyeta njehere

Tema të Ngjashme

  1. PHP - Skript për vargje të rastit
    Nga Mendimi_Juaj në forumin Arti i programimit
    Përgjigje: 3
    Postimi i Fundit: 26-09-2006, 22:22
  2. Prindërve dhe vizitorëve të vegjël
    Nga Arbushi në forumin Grupmoshat e komunitetit
    Përgjigje: 0
    Postimi i Fundit: 01-05-2002, 17:08

Regullat e Postimit

  • Ju nuk mund të hapni tema të reja.
  • Ju nuk mund të postoni në tema.
  • Ju nuk mund të bashkëngjitni skedarë.
  • Ju nuk mund të ndryshoni postimet tuaja.
  •