Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

Programma perl

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

Programma perl

Messaggioda jonni125 » ven lug 11, 2008 7:22 pm

Ciao ragazzi premetto che io non sono un conoscitore di linguaggi di programmazione(conosco solo l' html e un po di php) quindi non stupitevi per quello che vi sto per chiedere

Sapete dove posso scaricare quel programma che serve per rendere eseguibile uno script in perl? Magari se c'è per linux?
Grazie
www.jonnicomputer.helloweb.eu
Avatar utente
jonni125
Bronze Member
Bronze Member
 
Messaggi: 914
Iscritto il: ven gen 04, 2008 3:21 pm
Località: Casa mia!

Messaggioda ste_95 » sab lug 12, 2008 5:58 am

I nomi sono quelli...

Perl2Exe:

Perl2Exe is a command line utility for converting Perl scripts to executable files.
«A volte è meglio tacere e sembrare stupidi che aprir bocca e togliere ogni dubbio.» Oscar Wilde
Avatar utente
ste_95
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 17271
Iscritto il: lun ago 06, 2007 11:19 am

Messaggioda Aesir » sab lug 12, 2008 9:12 am

Incredibile... esiste il comando perl [switches] [--] [programfile] [arguments], chi l'avrebbe mai pensato? [sh]
WINDOS -- Windos Is Not a Decent Operating System
Avatar utente
Aesir
Bronze Member
Bronze Member
 
Messaggi: 607
Iscritto il: mer dic 05, 2007 6:06 pm
Località: Prov. di Milano


Re: Programma perl

Messaggioda lll » sab lug 12, 2008 10:31 am

jonni125 ha scritto:Sapete dove posso scaricare quel programma che serve per rendere eseguibile uno script in perl? Magari se c'è per linux?
Grazie

ricordiamo che perl e' un linguaggio perlopiu' interpretato...
Il discorso più lungo può essere detto senza dire una parola: basta scriverlo.
Avatar utente
lll
Senior Member
Senior Member
 
Messaggi: 217
Iscritto il: lun ago 20, 2007 5:43 pm

Messaggioda jonni125 » sab lug 12, 2008 1:17 pm

con l' emulatore per win non mi parte quel programma ne avete uno per linux? oppure con qualcosa da terminale (quella di Aesir non l' ho capita!) [boh]
www.jonnicomputer.helloweb.eu
Avatar utente
jonni125
Bronze Member
Bronze Member
 
Messaggi: 914
Iscritto il: ven gen 04, 2008 3:21 pm
Località: Casa mia!

Messaggioda lll » sab lug 12, 2008 1:26 pm

aesir ti sta dicendo che in linux e' gia' presente un interprete di perl!
L'interprete e' a riga di comando e si chiama, appunto, "perl"
Il discorso più lungo può essere detto senza dire una parola: basta scriverlo.
Avatar utente
lll
Senior Member
Senior Member
 
Messaggi: 217
Iscritto il: lun ago 20, 2007 5:43 pm

Messaggioda jonni125 » sab lug 12, 2008 1:47 pm

si ma come lo uso tipo mettiam che il file si chiama abc.pl ed è nella home come lo dovrei usare questo comando per far funzionare lo script in perl?
www.jonnicomputer.helloweb.eu
Avatar utente
jonni125
Bronze Member
Bronze Member
 
Messaggi: 914
Iscritto il: ven gen 04, 2008 3:21 pm
Località: Casa mia!

Messaggioda lll » dom lug 13, 2008 9:37 am

jonni125 ha scritto:si ma come lo uso tipo mettiam che il file si chiama abc.pl ed è nella home come lo dovrei usare questo comando per far funzionare lo script in perl?
Codice: Seleziona tutto
man perl
Il discorso più lungo può essere detto senza dire una parola: basta scriverlo.
Avatar utente
lll
Senior Member
Senior Member
 
Messaggi: 217
Iscritto il: lun ago 20, 2007 5:43 pm

Messaggioda Aesir » dom lug 13, 2008 11:36 am

Codice: Seleziona tutto
perl nomefile


è probabilmente tutto quello che ti serve...
WINDOS -- Windos Is Not a Decent Operating System
Avatar utente
Aesir
Bronze Member
Bronze Member
 
Messaggi: 607
Iscritto il: mer dic 05, 2007 6:06 pm
Località: Prov. di Milano

Messaggioda jonni125 » lun lug 14, 2008 9:06 am

Ma qui mi da un errore alla linea 7 mi potete dire come lo correggo per favore?

Codice: Seleziona tutto
$url = "http://".$page;
$html = get($url);
open FILE ,">>" ,"Page.txt";
print FILE $html;
close FILE;
$fw->Label(-text=>"OK, Download Complete",-background=>"gray",-foreground=>"black")->pack(-anchor=>"n");
}}->pack(-anchor=>"s");
MainLoop;
www.jonnicomputer.helloweb.eu
Avatar utente
jonni125
Bronze Member
Bronze Member
 
Messaggi: 914
Iscritto il: ven gen 04, 2008 3:21 pm
Località: Casa mia!

Re:

Messaggioda The_Big_J0k3R » mar set 15, 2009 4:38 pm

jonni125 ha scritto:Ma qui mi da un errore alla linea 7 mi potete dire come lo correggo per favore?

Codice: Seleziona tutto
$url = "http://".$page;
$html = get($url);
open FILE ,">>" ,"Page.txt";
print FILE $html;
close FILE;
$fw->Label(-text=>"OK, Download Complete",-background=>"gray",-foreground=>"black")->pack(-anchor=>"n");
}}->pack(-anchor=>"s");
MainLoop;

intanto in quel programma dovresti aggiungere #!/usr/bin/perl ed inoltre quelle che si utilizzano li sono librerie grafiche (Tk), come vorresti far partire il programma se non crei nemmeno una finestra? Prima di provare script (non tuoi) impara le basi... e comunque avresti dovuto postare tutto il source...
eccolo qui:
Codice: Seleziona tutto
#!/usr/bin/perl



use Tk;

use LWP::Simple;



$main=MainWindow->new();

$main->minsize(300,100);

$main->maxsize(500,300);

$main->title("...:: Web Page Download Source ::...");

$main->configure(-background=>'grey');



$top=$main->Frame(-background=>'grey')->pack(-side=>'top', -fill=>'x');



$left1=$top->Frame(-background=>'grey')->pack(-side=>'left', -pady=>9, -padx=>8);



$t1=$left1->Label(-text=>'Example:

http://www.google.com',

          -background=>'grey')->pack();



$left2=$top->Frame(-background=>'grey')->pack(-side=>'left', -pady=>2, -padx=>15);



$url1=$left2->Label(-text=>'URL',

                    -background=>'grey')->pack(-anchor=>"n");



$url2=$left2->Entry(-textvariable=>\$url,

                    -background=>"light grey",

                    -foreground=>"red",

                   )->pack();



$right1=$top->Frame(-background=>'grey')->pack(-side=>'left', -pady=>9, -padx=>8);



$t2=$right1->Label(-text=>'File Name', -background=>'grey')->pack();



$t2=$right1->Label(-text=>'File Format', -background=>'grey')->pack();



$right2=$top->Frame(-background=>'grey')->pack(-side=>'right', -pady=>2, -padx=>15);



$t3=$right2->Label(-text=>'File', -background=>'grey')->pack();



$file1=$right2->Entry(-textvariable=>\$file_name)

                       ->pack(-anchor=>"n");



$file2=$right2->Entry(-textvariable=>\$file_format)

                       ->pack(-anchor=>"n");

      

$button=$main->Button(-text=>"Download",

               -background=>"grey",

               -foreground=>"black",

               -activebackground=>"light grey",

               -activeforeground=>"red",

               -command=>sub{

              $source_html = get($url);

                             open FILE ,">>" ,"$file_name.$file_format";

                             print FILE $source_html;

                             close FILE;

              }

                       )->pack();

MainLoop; 

Ora cosa dovresti per farlo partire? semplice... crei un documento di testo copi e incolli il codice e lo salvi in file.pl Dopo apri il terminale e scrivi perl /home/utente/Scrivania/file.pl se hai le Tk installate dovrebbe funzionare il tutto alla perfezione....
Avatar utente
The_Big_J0k3R
Neo Iscritto
Neo Iscritto
 
Messaggi: 22
Iscritto il: ven giu 19, 2009 11:41 am


Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite

cron
Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising