Programma perl

[jonni125]

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

[ste_95]

I nomi sono quelli...

Perl2Exe:

Perl2Exe is a command line utility for converting Perl scripts to executable files.

[Aesir]

Incredibile... esiste il comando perl [switches] [--] [programfile] [arguments], chi l'avrebbe mai pensato?

[lll]

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

[jonni125]

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!)

[lll]

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"

[jonni125]

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?

[lll]

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

[Aesir]

Codice: Seleziona tutto

perl nomefile

è probabilmente tutto quello che ti serve...

[jonni125]

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;

[The_Big_J0k3R]

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