mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: HTTP Error 405

Utilizzo NT 4 con IIS 3, come posso eliminare il seguente errore che mi
viene restituito all'avvio dei miei script in perl (use cgi;)? Questi ultimi
su un'altra macchina funzionano a dovere!
------
HTTP Error 405
405 Method Not Allowed
The method specified in the Request Line is not allowed for the resource
identified by the request. Please ensure that you have the proper MIME type
set up for the resource you are requesting.
Please contact the server's administrator if this problem persists.
------
Ho provato a settare la cartella con proprieta' execute, ma niete da
fare!Quale altri permessi dovrei avere?
Un grazie e un saluto a tutti.

,

Sent via Deja.com 
http://www.deja.com/
Before you buy.

Newsgroup: it.comp.lang.perl
Titolo: ESECUZIONE SCRIPT PERL

Ho uno script (da me reallizzato) che viene eseguito perfettamente su Apache
che si trova sul mio computer.
Quando lo ho pubblicato sul mio spazio internet (sempre server Apache), lo
script mi restituiva una pagina di errore con la seguente scritta:
        Non si dispone dell'autorizzazione per visualizzare la pagina
        Non si dispone dell'autorizzazione necessaria per visualizzare
        la directory o la pagina utilizzando le credenziali fornite.
        --------------------------------------------------------------------
------------
        Se si ritiene che si debba essere in grado di accedere al sito Web,
provare
        a contattare il sito Web utilizzando l'indirizzo di posta
elettronica o il numero di telefono
        eventualmente elencati nella pagina iniziale ........
        È possibile fare clic sul pulsante  Cerca per ricercare informazioni
su Internet.
        Errore HTTP 403 - Accesso negato
        Internet Explorer
Come mai c'è questo problema?
In generale c'è qualche differenza tra l'Apache del mio computer e quello
del server?
Grazie a chi mi risponde
Andy

        Non si dispone dell'autorizzazione per visualizzare la pagina
Devi probabilmente dare i permessi di lettura ed esecuzione a tutti
del file che costituisce il tuo script. Probabilmente questo file ce
li aveva sul tuo computer ma li ha persi nel trasferimento sul server.
Una volta fatto l'upload del file usa il comando CHMOD del tuo client
FTP. In pratica devi dare i permessi:
RWX R-X R-X
ciao
PSQ

 wrote in message
393a3c7f....@news.libero.it...

Mi potresti delucidare maggiormente su cos'è e come si utilizza il CHMOD
Grazie Andrea Monaco

 wrote in message
JaA_4.92163$VM3.6...@news.infostrada.it...

Newsgroup: it.comp.lang.perl
Titolo: problema di overlapping

ciao. ho bisogno di suggerimenti per risolvere un problema. una 'stringa' di
circa 157000 caratteri è caricata in un array, per cui ogni indice
corrisponde ad un carattere. devo dividere la stringa in frames di 5000
caratteri in modo però che si overlappino all'inizio di 40, cioè gli ultimi
40 caratteri di una stringa devono essere gli stessi dei primi 40 del frame
successivo.
non so ASSOLUTAMENTE come affrontare il problema. una spintarella?
stefano

stefano
Spintarella?
perldoc perldata, cerca dove si parla di slice.
ciao
Stefano

 corrisponde ad un carattere.
questo è decisamente superfluo. Puoi lavorare direttamente sui caratteri
della stringa anziché "caricarla in un array":
$_ = join '', A..Z; #<-solo 26 lettere
my $size = 10; #<- qui sarà 5000
my $overlap = 4; #<- qui sarà 40
my @chunk; #<- array che raccoglie i pezzi
for ( my $off;
      $off < length;
      $off += $size-$overlap )
{ push @chunk, substr $_, $off, $size }
print "@chunk";
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 della stringa anziché "caricarla in un array":
Si hai ragione, è che volevo sfruttare una parte di script già scritto. Il
tuo suggerimento sembra funzionare, benchè riceva il messaggio d'errore
use of uninitialized value in numeric lt (<) at ... line...
la line a cui si riferisce è
for ( my $off; $off < length; $off += $size-$overlap ) { push @chunk, substr
$_, $off, $size;}
cosa significa?
ciao
stefano

> use of uninitialized value in numeric lt (<) at ... line...
vero! Con warnings si lamenta del fatto che deve comparare numericamente
$off che č undef anzichč 0. Tutto funziona comunque, perň per essere pignoli
gli puoi scrivere my $off = 0 cosě sta zitto :-)
 for ( my $off = 0 ; $off < length; $off += $size-$overlap )
Č che se posso elimino sempre tutto l'eliminabile :-)


 Si hai ragione, è che volevo sfruttare una parte di script già scritto. Il
magari ripensa la parte senza usare arrays di una lettera per elemento che
non mi sembra esattamente l'idea del secolo :-)


 non mi sembra esattamente l'idea del secolo :-)
Già fatto! ;-)) volevo solo riciclare uno script per cui tale array è
assolutamente necessario: mi serve per risalire ad esatte posizioni della
stringa (e comunque, mai buttare via il lavoro già fatto!!!!)
ciao
stefano

 stringa (e comunque, mai buttare via il lavoro già fatto!!!!)
se lo puoi fare meglio e imprare qualcosa di nuovo BUTTALO SEMPRE! :-)


 se lo puoi fare meglio e imprare qualcosa di nuovo BUTTALO SEMPRE! :-)
cvd, hai ragione!
stefano
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.perl
Titolo: Scusate !!!

Scusate la mia ignoranza
Da poco mi sto addentrando nello studio del perl
devo dire che mi sta prendendo e' veramente un bel linguaggio !
Pero' ho bisogno di help per esempio come si fa ad utilizzare le librerie pm
e come si fa a sapere cosa fanno,
Esiste un tutorial che mi spieghi i rudimenti del linguaggio ?
e anche altro ?

 wrote:
" Pero' ho bisogno di help per esempio come si fa ad utilizzare le librerie pm
" e come si fa a sapere cosa fanno,
" Esiste un tutorial che mi spieghi i rudimenti del linguaggio ?
C'e` 
http://www.isinet.it/~marco/perl/
 che non dovrebbe pero` avere la parte di
gestione dei .pm .
ciao, .mau.

Grazie Molte ....

e anche altro ?
	C'e' una sezione veramente interessante sugli AppuntiLinux
http://www.pluto.linux.it/ildp/AppuntiLinux/index.html
, sul CD di
Inter.net di questo mese c'e' il mirror completo (formato HTML, PDF,
TXT etc). Il testo non tratta i moduli ma e' una buona guida
introduttiva.
	Ciao
Matteo Marchelli alias John Theo  =8| 
Webmaster del "Centro di Documentazione Betazoide" 
http://www.geocities.com/siliconvalley/park/6856
Per segnalazioni sul sito mailto://
jt...@geocities.com
A Niklaus Wirth, l'ideatore del Pascal, fu richiesta, nel corso di una conferenza, l'esatta pronuncia del suo nome. Egli replico' dicendo: "Mi potete  chiamare per nome e direte Veert o per valore ed allora direte 'Maestro'".
Da questa battuta si capisce immediatamente che Wirth e' un Mangiatore di ciocori'.
          IL VERO PROGRAMMATORE NON USA IL PASCAL, ?
- W A R N I N G On -
La mia arterio galoppa, in caso di mancata risposta entro un giorno, ripostare il messaggio
- W A R N I N G Off -

...

Newsgroup: it.comp.lang.perl
Titolo: Aiutone

Salve a tutti volevo domandarvi se è possibile, una volta letto un file dal
database e estratti i campi che mi interessano, inserire questi campi in una
SELECT di un file html.
grazie a tutti
Michela

 inserire questi campi in una SELECT di un file html.
<code>
	my $sql=q|select id, descr from types order by id|;
	my $options;
 
	if (Sql $db $sql) {
		# dbms connection error handler
	}
 
	while (FetchRow $db) {
		my %hash=DataHash $db;
		$options.=qq|
			<option name="type" 				value="$hash{'id'}">$hash{'descr'}
		|;
	}
 
	# stuffs	
	print qq|<select name="type">$options|;
</code>
	Alla prossima,
		Marco

Grazie per il tuo aiuto, ma io sono alle prime armi con perl (soprattutto
per richiamarlo in un file html) quindi alcune cose non mi sono chiare.
Io ho fatto il mio script di lettura sul database cosě:
#!/usr/bin/perl
use DBI;
$db =
DBI ->connect('dbi:Oracle:host=oracle;sid=prova815;porti=1521','michela/mich
ela');
my $prep = $db->prepare(q{SELECT PNAME FROM PROVA});
my $return = $prep->execute;
while (($PNAME) = $prep->fetchrow_array){
print "$PNAME\n";
}
ora come lo integro con lo script che mi hai mandato tu?
Io lavoro su una macchina AIX con HTTPServer e database oracle (se ti puň
essere di aiuto).
Grazie ancora
Michela

 ora come lo integro con lo script che mi hai mandato tu?
  La variabile $options del mio script contiene tutti i tag <option> che
vanno dentro la <select> con l'opportuna formattazione. Puoi sostituire
la mia riga di codice:
	$options.=qq|<option name="type"
		value="$hash{'id'}">$hash{'descr'}|
con:
	$options.=qq|<option name="pname" value="$PNAME">$PNAME|
  Per quanto riguarda l'uso dei tag <select> ed <option> ti conviene
chiedere in qualche gruppo specifico.
	Alla prossima,
		Marco

 Salve a tutti volevo domandarvi se č possibile, una volta letto un file


Newsgroup: it.comp.lang.perl
Titolo: Socket2

Ekkomi di nuovo =)
voglio fare un prog che mi scanni delle porte, ci ho provato e questo è il 
risultato =)
$host="
ciao.com
";
$primaporta = 21;
$secondaporta =25;
$iaddr = inet_aton($host) || die "ERRORE NEL CONNETTERSI A $host\n";
$proto = getprotobyname('tcp');
for ($z=$primaporta;$z<$sekondaporta;$z++){
   $allport = $z;
   $startoskan = sockaddr_in($allport,$iaddr);
   socket(SOCK, PF_INET, SOCK_STREAM, $proto);
   connect(SOCK, $startoskan);
 }
}
in teoria si dovrebbe connettere alle porte: 21 22 23 24 
come faccio a controllare se una porta è aperta o no?
ho sbagliato/dimenticato qualcosa nel codice?
grazie x l'attenzione

 ho sbagliato/dimenticato qualcosa nel codice?
non mi pare... devi solo controllare che connect abbia avutom successo:
use strict;
use Socket;
my $host='localhost';
my $primaporta = 21;
my $secondaporta = 25;
my $proto = getprotobyname('tcp');
my $iaddr = inet_aton($host);
for my $porta ($primaporta .. $secondaporta) {
    my $startoskan = sockaddr_in($porta,$iaddr);   
    socket SOCK, PF_INET, SOCK_STREAM, $proto or die "Impossibile creare
il socket: $!\n";
    (connect SOCK, $startoskan) ? print "$porta OK\n" : print "$porta
NO: $!\n";
}
sulla mia Slack funge
Newsgroup: it.comp.lang.perl
Titolo: dove trovo degli script GUESTBOOK cgi-bin per il server unix dove risiede il mio sito?

Devo creare un guestbook particolare e quello fornito da chi mi fornisce
spazio web e' pietoso!
dove ne trovo uno decente configurabile?
le richieste devono essere di questo tipo: nome, eta, sesso, messaggio,
ICONA... devo poter far inserire un icona accanto al msg fra quelle presenti
nel sito... per personalizzare i msg
chi mi aiuta?
chi mi spiega in breve cosa sono gli SCRIPT CGI-BIN?
come si possono registrare e consultare dati da una paggina html sul proprio
server unix?
ciao
ps> mi rispondi per posta?

 wrote in message 7n40ts$gvk$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: Una mano per un espressione regolare.

Ciao a tutti,
non sono un mago in espressioni regolari e mi servirebbe una mano per farne
una.
Dovrei verificare se una stringa contiene almeno un carattere diverso dai
seguenti 5 caratteri: "*",".","1"."E"."+".
Per dirla in un altro modo, vorrei verificare se una stringa contiene solo
i miei 5 caratteri, ognuno dei quali puo' essere ripetuto 0 o + volte, in
ordine sparso.
Ho tentanto qualcosa del tipo ($row =~ /[^\*\.1E\+]/) ma non sembra
funzionare.
Ciao,
Alessandro
--
Posted from 
gremg1.net.external.hp.com
 [192.6.111.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 cerchero` un'altra donna dentro ai sogni di Tarzan...

Newsgroup: it.comp.lang.perl
Titolo: Proxy per unix

Ciao a tutti,
dovrei scrivere un proxy per unix in perl che faccia da traduttore
di protocollo, cioč deve far sě che l'autenticazione avvenga tramite
APOP.
Questo proxy dovrebbe essere trasparente agli utenti che
mandano/ricevono e-mail
e dovrebbe provvedere a comunicare con il mailgateway per loro.
Grazie
--
Posted from 
king.madnet.it
 [195.223.65.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

allora? cosa vuoi il progetto di Sistemi Operativi bello e fatto?
forse e' meglio che inizi a lavorare! :)
Ciao
Newsgroup: it.comp.lang.perl
Titolo: Provare CGI sotto Linux, come fare?

Ho trovato un sito in cui si possono mettere script CGI scritti in
perl e farli dunque funzionare.
Però vorrei evitare di dovermi collegare ogni volta per vederli
funzionare, quando li sto costruendo.
Possiedo anche Linux RedHat 6.2 e lì c'è un compilatore perl. I
programmi in perl funzionano bene... però non riesco a trovare il modo
per testare gli script. Non c'è modo di far sì che io possa usare la
pagina html del mio sito (la copia che ho sul computer) che richiama
lo script CGI con i parametri del <form> che c'è su di essa, il tutto
semplicemente con Netscape?
MadMage

semplicemente con Netscape?
Basta utilizzare un web server, che probabilmente e` gia` installato nel
tuo Linux. Per vedere se cosi` e` prova dal browser a caricare la URL:
http://localhost
o:
http://127.0.0.1
Questo web server (che e` quasi sicuramente Apache) preleva i file,
documenti e script, da una directory dell'hard disk che non so bene
quale sia nel caso di RedHat... a te individuarla. ;-)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 MadMage
certo che c'e' modo, ed hai anche tutto cio' che ti serve.
    Se la tua RedHat 6.2 e' installata bene, o piu' specificatamente, se
Apache e' installato bene, cosa che puoi controllare seguendo la procedura
consigliatati sopra da Beltrame, devi solo collocare i tuoi script, con
estensione .pl o .cgi, nella directory /home/httpd/cgi-bin, e richiamarli
dal tuo browser Netscape tramite l'URL
http://127.0.0.1/cgi-bin/nome_del_file.pl
 . Apache fara' cosi' riferimento
al tuo file nella sopra citata directory e l'interprete perl lo eseguira',
con tutto quello che ne consegue (invio di codice html al browser, ecc.).
    Se cio' non dovesse avvenire i motivi possono essere due:
1. lo script ha qualcosa che non va => a) usa sempre lo switch -c per
controllare la sintasi dei tuoi script da console prima di eseguirli dal
browser; b) tieni d'occhio l'error.log di Apache (cat
/var/log/httpd/error.log);
2. Possibilita' mooooooolto remota: nel file di conf
/etc/httpd/conf/httpd.conf non e' settato l'alias per la directory
/home/httpd/cgi-bin (ripeto che e' veramente quasi impossibile dato che
viene settato al momento dell'installazione).
alla prossima,
ciao,
asast

> per testare gli script. Non c'č modo di far sě che io possa usare la


Magari sto diventando un po OT... però Netscape Navigator, quando
avvio lo script, mi dice che è terminato prima di quanto doveva. Ho
controllato lo script e l'ho anche avviato da riga di comando... tutto
a posto.
Che succede, dunque?
MadMage
Newsgroup: it.comp.lang.perl
Titolo: Fare grafici

Salve a tutti.
Sto cercando un modulo che mi permetta di fare dei grafici e salvarli come 
immagini per una appliczione web.
Ho trovato su CPAN GD, non č che c'č un modulo piů specifico per fare 
grafici tipo istogrammi?
Grazie di tutto.

 grafici tipo istogrammi?
Io mi trovo benissimo con GD !
Fare degli istogrammi non e' poi cosi' complesso ...
 Raffaello

  Raffaello
Ho provato GD::Graph ed veramente carina.

Newsgroup: it.comp.lang.perl
Titolo: [Help] DBI: congelamento al medoto execute()

Ciao a tutti,
sto cercando di inviare una semplice query di inserimento ad un db
Sybase utilizzando il modulo DBD:ASAny 1.13 sotto Linux (RH).
Il problema e' che al momento del metodo execute, lo script si
'congela' senza darmi alcun errore e non esce se non con un CTRL-C.
Ovviamente l'insert (ma anche un banale update) non avviene.
Una semplice query di interrogazione (select) invece va a buon fine.
I parametri di connessione sono corretti (dato che la connessione
avviene senza problemi).
Qualcuno ha qualche suggerimento, prima che dia fuoco alla tastiera
dopo averla lanciata violentemente contro un muro?? Ho gia' cercato
lumi sui vari google, cpan, sybase ma non ho trovato granche'.
Grazie 1000
Marino
ecco lo script incriminato:
#!/usr/bin/perl -w
use strict;
use DBI;
my @t = ('aaa','1','2','3','1/1/2004','a');
my $dbh = DBI->connect("DBI:ASAny:miodb","UID=dba;PWD=xxx;ENG=miodb;LOG=./asa_client.log");
my $sth = $dbh->prepare("insert into test_palm values
(?,?,?,?,?,?,NULL)");
$sth->execute(@t);
$dbh->commit;
$sth->finish;
undef $sth;
$dbh->disconnect;


Prima di tutto un po' di consigli generali su come analizzare
un problema di database.
http://www.perlmonks.org/index.pl?node_id=264485
Estrapolo alcune domande che potresti porti:
- Sei sicuro che la tua query funziona se la esegui al di fuori di Perl?
- L'utente che stai usando ha i privilegi per modificare la tabella?
- Sei sicuro che il formato della data sia quello corretto?
- Hai pensato di attivare {RaiseError => 1} nella connessione?
- Hai pensato di controllare il valore della chiamata a $dbh->prepare ?
- Hai pensato ad eseguire le istruzioni critiche sotto "eval"?
- Hai pensato di usare DBI->trace(4) per vedere cosa succede?
Questi sono spunti per proseguire.
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

 
Grazie per le info, gmax.
Comunque ho scoperto dov'era il problema.
In sostanza il mio script perl e' corretto; era invece la console aperta 
di sybase che 'lockava' in qualche modo la tabella, dopo che avevo dato 
un "delete from miatabella" per svuotare i dati prima delle mie prove.
In pratica si risolve in due modi (da console sybase): o utilizzo un 
"delete from" all'interno di una un begin/commit e poi posso 
inserire/aggiornare senza problemi da perl, oppure semplicemente chiudo 
la console di sybase che automaticamente sblocca/libera la tabella.
Ciao
Marino
Newsgroup: it.comp.lang.perl
Titolo: Grafica on the fly: W i database!!!

SALVE A TUTTI GLI APPASSIONATI DI PERL!!! Ho  "preparato" il mio sistema
ad usare DBI e GD.
Attualmente non riesco ancora a stampare il mio primo grafico che prende
i dati da un database PostgreSQL... Se carico il programma (che segue
poco piů giů) nel mio browser, questo mi dice che il documento non
contiene dati. Nell'error_log di Apache ottengo
[Wed Nov  8 15:14:15 2000] 
pg_graph.pl
: Use of uninitialized value at
/usr/lib/perl5/site_perl/5.005/GD/Graph/
pie.pm
 line 232.
[Wed Nov  8 15:14:15 2000] 
pg_graph.pl
: Use of uninitialized value at
/usr/lib/perl5/site_perl/5.005/GD/Graph/
pie.pm
 line 232.
[Wed Nov  8 15:14:15 2000] 
pg_graph.pl
: Use of uninitialized value at
/usr/lib/perl5/site_perl/5.005/GD/Graph/
pie.pm
 line 232.
Il risultato della query al database č :
candidate_name|votes_received
--------------+--------------
Giuseppe      |        562332
Franca        |        567411
Viviana       |         10000
(3 rows)
Il sorgente? Eccolo che aspetta trepidante...
#!/usr/bin/perl -w
use strict;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use GD::Graph::pie;
use DBI;
my $query = CGI::new();
my $dbh = DBI->connect("dbi:Pg:dbname=vote_on_line", "www_data", "") ||
die "Could not connect to".
                                              "database: $DBI::errstr";
#my $dbh = DBI::new("Pg:vote_on_line:5432") || die "Could not connect
to".
                                               #   "database:
$DBI::errstr";
 
my @names;
my @votes;
my $sql = "SELECT * FROM votes";
my $sth = $dbh->prepare($sql) || die "Error preparing $sql:
$DBI::errstr";
my $result = $sth->execute || die "Error execunting $sql: $DBI::errstr";
while ( my $row = $sth->fetchrow_arrayref) {
        (my $name,my $vote) = @$row;
       push @names,  $name;
       push @votes, my $votes;
 
 
   }
 
$sth->finish;
my @data = (\@names, \@votes);
print $query->header(-type=> "image/x-png");
my $graph = GD::Graph::pie->new(400,300);
print $graph->plot(\@data);
$dbh->disconnect;
Spero che qualchuno possa darmi una mano.
Ringrazio e auguro una buona giornata a TUTTI (non solo al mio
potenziale "salvatore").
Giuseppe Ricioppo.

 $dbh->disconnect;
Beh. Mi sembra chiaro che i messaggi di errore dicano chiaramente che stai
passando degli undef alle funzioni di GD, in particolare a quella della riga
232 di 
pie.pm
NON eseguire il tuo script via Web. Provalo dalla riga di comando, con il
debugger di Perl, e guarda dentro i dati che passi alla funzione. Magari
scopri l'inghippo.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: Problemi con Perl2exe

Ho trovato (su 
groups.google.com
) un post su questo ng di richiesta
d'aiuto. Anch'io ho lo stesso problema (perl2exe che produce un eseguibile
(Tk) con caratteri 'incomprensibili' (orientali)).Posso solo contribuire
dicendo comunque che non è un problema della versione trial, perchè io sto
provandone una registrata ...
Se per caso qualcuno avesse già risolto il problema, mi piacerebbe avere
informazioni su come ha fatto, altrimenti appena ho tempo cerco di
risolvere il problema, e faccio sapere ...
Grazie in anticipo !
    Marco
P.S.: se poteste rispondermi anche personalmente ve ne sarei grato, perchè
attualmente non sono sul ng ...
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 provandone una registrata ...
be la prima cosa da fare e contattare indigo: 
sup...@indigostar.com
 
Io stavo su win2k con perl5.8.4 e compilavo i miei script tk con 
perl2exe trial...purtroppo mi venivano le finestre con dei caratteri 
incomprensibili...altri mi dissero che se registravo perl2exe questo 
sarebbe sparito...tu invece stai smentendo tutto,quindi o non è sul 
serio una versione reg, oppure è un gravissimo bug e ti invito a 
contattare la indigo.

Newsgroup: it.comp.lang.perl
Titolo: Net:POP3

Sapete se è possibile collegarmi ad un server POP3 in SSH  (porta 995) 
col modulo Net::POP3 ????
Lo script sotto indicato si connette correttamente al server ma si 
piglia errore al momento dell'autenticazione perchè ovviamente la 
connessione è in chiaro e non in SSH.
Purtroppo non posso installare moduli aggiuntivi sul server dove gira lo 
script, e quindi devo riuscirci coi moduli core perl... HELPZ :(
# MIO SCRIPT IN PERL PER ACCESSO A POP3 :
use Net::POP3;
my $server = "
pop.gmail.com:995
";
my $pop3 = Net::POP3->new($server, Timeout => 10, Debug =>1);
die "Errore di connessione al server\n" unless $pop3;
my $user = "__USER__";
my $password = "_PASS_";
my $num_Messages = $pop3->login($user, $password);
print "$num_Messages\n";
# ERRORE :
Net::POP3: Net::POP3(2.23)
Net::POP3:   Net::Cmd(2.21)
Net::POP3:     Exporter(5.566)
Net::POP3:   IO::Socket::INET(1.26)
Net::POP3:     IO::Socket(1.27)
Net::POP3:       IO::Handle(1.21)
Net::POP3=GLOB(0x19f012c): Timeout at C:\Documents and 
Settings\root\Desktop\pop
.pl line 6
Couldn't log on to server at C:\Documents and 
Settings\root\Desktop\
pop.pl
 line
7.

 col modulo Net::POP3 ????
Presumo tu intenda SSL.
Non so se Net::POP3 consenta la connessione su SSL. Credo di no, perché ne
esiste una variante modificata appositamente:
 
http://www.cgiexpo.com/files/net-pop3_ssl.html
Come alternativa, potresti considerare Mail::POP3Client, che supporta
espressamente SSL.
Max

 con Mail::POP3Client di sicuro.
THNX A LOT!!
Newsgroup: it.comp.lang.perl
Titolo: Pattern Matching

Ciao !!
Gabriele mi ha propoesto questa routine per risolvere il matching:
$stringa=~s/^(\w+\.\w+)/"$1"/;         # mette tra virgolette il primo
campo
$stringa=~s/(\d\d\/\d\d\/\d\d)/"$1"/;  # mette tra virgolette tutto ciò
che sembra una data
$stringa=~s/\./:/g;                    # cambia . in :
$stringa=~s/,/\./g;                    # cambia , in .
$stringa=~s/;/,/g;                     # cambia ; in ,
per convertire la seguente stringa nella successiva.
OL.MI;2,425;28/05/01;13.50;-0,003;2,44;2,465;2,41;8005750
in
"OL.MI",2.425,"28/05/01",13:50,-0.003,2.44,2.465,2.41,8005750
NON SONO RIUSCITO A FARLA FUNZIONARE
Grazie anticipatamente.
Simon

Vero. C'era un difetto.
Prova questa allora:
$stringa=~s/,/\./g;     # cambia subito tutte le virgole in punti
@campo=split /;/, $stringa; # separa i campi sul ';'
$campo[0]="\"$campo[0]\"";  # mette il primo campo fra virgolette
$campo[2]="\"$campo[2]\"";  # idem con il terzo
$campo[3]=~s/\./:/g;        # e nel quarto cambia i '.' in ':'
$stringa=join ',', @campo;   # rimette tutto insieme usando 
                             # la virgola come separatore
Saluti
Gabriele
Newsgroup: it.comp.lang.perl
Titolo: Problema con .htaccess

Salve,
ho provato ad usare .htaccess per proteggere alcune directory. Ho creato
alcuni account che ho memorizzato nel file .htpasswd. Entrambi i files
risiedono nella directory che voglio proteggere. Il problema e' che
quando digito username e password, non risulto come utente autorizzato.
Qualcuno puo' aiutarmi?
Grazie
Donatella  :)
--
Posted from [195.120.213.3] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Donatella  :)
Credo che questo possa esserti utile:
http://hoohoo.ncsa.uiuc.edu/docs/tutorials/user.html
un saluto
wa...@freemail.it

quando digito username e password, non risulto come utente autorizzato.
Inviaci i tuoi file .htaccess e .htpasswd per iniziare. ;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

hai creato il file con htpasswd ???
htpasswd -c /path/del/file/che/contiene/gli/utenti/e/le/password
nomeutente
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------


Salve,come richiesto invio i miei file .htaccess .htpasswd
Il file .htaccess contiene le seguenti righe:
AuthUserFile /pluto/paperino/.htpasswd
AuthGroupFile /dev/null
AuthName "
indirizzo.it
"
AuthType Basic
<Limit GET POST>
require valid-user
</Limit>
Il file .htpasswd contiene le seguenti righe:
pippo:Rj47shXpZILg6
I due file risiedono entrambi nella directory da proteggere ()!
Ho anche modificato il file di configurazione access.conf di Apache aggiungendo le seguenti righe:
<Directory   /directory/da /proteggere/>
AllowOverride AuthConfig
</Directory>
Spero in un vostro aiuto.
Ciao
Donatella  :))

Newsgroup: it.comp.lang.perl
Titolo: problema col "perl porting" ..

Salve a tutti!
Giusto per curiosità:
ma il "perlcc" o il "pp" non dovrebbero rendere il "compilato" che si 
ottiene eseguibile su qualunque S.O. (in questo caso intendo solo 
famiglia *NIX)?
Ed allora, perchè il "perlcc" non completa neanche la compilazione e 
tira fuori un bel:
___
[mum@MandraMuM tmp]$ perlcc -o tele3_pl 
tele.pl
pccevue7.c:68377: initializer element is not constant
pccevue7.c:68377: (near initialization for `xrv_list[41].xrv_rv')
pccevue7.c:68377: initializer element is not constant
pccevue7.c:68377: (near initialization for `xrv_list[41]')
pccevue7.c:68378: initializer element is not constant
pccevue7.c:68378: (near initialization for `xrv_list[42]')
pccevue7.c:68379: initializer element is not constant
[..]
pccevue7.c:68515: initializer element is not constant
pccevue7.c:68515: (near initialization for `xrv_list[179]')
[mum@MandraMuM tmp]$
---
    e sulla macchina destinazione l'esecuzione di quel che resta del 
compilato ottenuto dice:
___
Invalid bytecode for this architecture: bad magic (want 0x43424c50, got 
0) at ./tele3_pl line 2
---
mentre il "pp" da un paio di warning e niente altro, ma quando poi lo 
lancio da una macchina differente da quella di compilazione, comincia a 
tirare fuori tutte le magagne possibili ed immaginabili (segue esempio)?
___
[mum@MandraMuM tmp]$ pp -M Compress::Zlib -M Archive::Zip -l 
/usr/lib/libz.so.1 -l /lib/i686/libc.so.6 -o tele2_perl 
tele.pl
Use of uninitialized value in split at /usr//bin/pp line 660.
Use of uninitialized value in split at /usr//bin/pp line 660.
[mum@MandraMuM tmp]$
---
    ma sulla macchina destinazione tutto ciò che si ottiene è un:
___
./tele2_perl: /lib/i686/libc.so.6: version `GLIBC_2.3.2' not found 
(required by ./tele2_perl)
---
E' un bel birbone, no?
A parte scherzi: mi sapete dire dove posso trovare documentazione più 
chiara di quella a corredo dei moduli, che per carità è anche 
chiarissima, ma non permette di fare alcun troubleshooting..
Grazie a tutti per l'attenzione.
Ciao..
-- 
Salud!
MuM.
---
Non rispondete a questa @mail.. non esiste!
---
Don't mail at this address.. it's in /dev/null!
---

 E' un bel birbone, no?
No: la documentazione l'aveva detto...


Ahem.. ti dispiacerebbe illuminarmi maggiormante?
Grazie..

Newsgroup: it.comp.lang.perl
Titolo: come si dice 0x0a in PERL | read/write file binario???

Ho dei problemi a leggere/scrivere file .jpg in perl.
    Problema 1)
Quando la scrivo il carattere 0x0A mi viene omesso ed io non so come
dirglielo, pare quasi non sia possibile printare un generico carattere
definito in hex.
    Problema 2)
Magari sbaglio tutto perche aproccio la lettura/scrittura di un file binario
(.jpg) come se fosse un normale file testo, cioe' usando il solito
open OUT, ">pippo.jpg";
foreach $pp (@document) {
    print $pp;
    }
close OUT;
e per queste cose occorre un aproccio diverso.
Qualcuno la fuori mi sa dare due dritte?
Grazie mille,
                        stefano

 
Ci sono svariate librerie su CPAN che consentono di manipolare 
immagini, magari una fa gia' quel che vuoi.
Cheers,
alf
P.S:    da perldoc -f pack:   
        pack TEMPLATE,LIST
               Takes a LIST of values and converts it into a
               string using the rules given by the TEMPLATE.  The
               resulting string is the concatenation of the
               converted values.  Typically, each converted value
               looks like its machine-level representation.  For
               example, on 32-bit machines a converted integer
               may be represented by a sequence of 4 bytes.
               The TEMPLATE is a sequence of characters that give
               the order and type of values, as follows:
                   a   A string with arbitrary binary data, will be null padded.
                   A   An ascii string, will be space padded.
                   Z   A null terminated (asciz) string, will be null padded.
                   b   A bit string (ascending bit order inside each byte, like vec()).
                   B   A bit string (descending bit order inside each byte).
                   h   A hex string (low nybble first).
                   H   A hex string (high nybble first).
                   c   A signed char value.
                   C   An unsigned char value.  Only does bytes.  See U for Unicode.
[...]

 Ho dei problemi a leggere/scrivere file .jpg in perl.
Forse (dico forse perchè ne ho sentito parlare, ma non l'ho mai fatto!)
devi usare /binmode/ sul filehandle dopo l'apertura con /open/. 
Ma di più non ti dico perchè rischio di dire una marea di fesserie! :-)
Ciao
--ev

 ha scritto nel messaggio
news:9mo5jh$3i1c$1...@stargate1.inet.it...


Newsgroup: it.comp.lang.perl
Titolo: Cerco programmatore perl

Ciao ragazzi,
cerco un bravo programmatore perl per modifiche ad
alcuni script cgi.
Pagamenti ottimi e immediati a lavoro eseguito.


Newsgroup: it.comp.lang.perl
Titolo: messaggi SMS

Qualcuno saprebbe dirmi se e' possibile fare un programma in perl per
inviare messaggi sms? O, se esistente, dove potrei trovarlo?
Ringrazio anticipatamente chiunque volesse rispondermi.
Ciao,
    Diego

 inviare messaggi sms? O, se esistente, dove potrei trovarlo?
E di grazia, come vorresti che te li mandasse questi SMS?
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

     Diego
Non e' impossibilie.
Dovresti provare a collegarti, con un modem normalissimo al numero
+393359609600
(almeno, fino a poco tempo fa funzionava, ora non so). Ti appare un
menu, con il quale,
manualmente, puoi inviare i messaggi a qualsiasi cellulare.
Quello che dovresi implementare č un programmino che emula quello che
faresti tu a
mano... apre la seriale, telefona e tutto quanto. Non č difficile.

 per inviare messaggi sms? O, se esistente, dove potrei trovarlo?
  Per mandare SMS necessiti di due "cose" fondamentali: una libreria di
accesso al protocollo ed un /provider/. Per quanto riguarda la libreria,
so per certo che ne esistono almeno due (pay-ware &... costoso-ware ;) )
in C++: avendone la licenza non dovrebbe essere difficile farne un
wrapper per utilizzarle con il PERL. Per quanto riguarda il secondo
conosco solo la TIM, perche' ci ho lavorato. E non sono molto sicuri di
voler fare da gateway con chiunque. ;)
  Se vuoi, comunque, mi informo per le librerie. 
	Alla prossima,
		Marco

Newsgroup: it.comp.lang.perl
Titolo: unknown option "variable" at ...

Ciao,
su windows XP Activestate perl 5.8.8 usando il modulo Tk ottengo un
errore di cui non riesco a spiegarmi le ragioni.
Diagnostica:
Errore: unknown option "variable" at c:/Perl/site/lib/Tk/Widget.pm
line 205.  at 
salva.pl
 line 44
La riga dello script 
salva.pl
 corrispondente: è la seguente. 
push @items, $leftframe ->Radiobutton (variable => \$drive, text
=>'nessuno', value => 'nessuno');
Non riesco a capire bene; sospetto che ci siano delle impostazioni di
default  al runtime del modulo Tk e che sono ciò che genera il
problema.
Una qualche idea?
Grazie mille
Inmodis

 =>'nessuno', value => 'nessuno');
Dalla doc, mi pare che tu debba mettere
-variable => \$drive
ovvero tutte le "Configure Option" hanno un - davanti al nome (-text
-value -height eccetera).

-value -height eccetera).
Ci hai preso :-)
Hai ragione, era questa la mia stupida dimenticanza
Ciao e grazie
Inmodis
Newsgroup: it.comp.lang.perl
Titolo: Server per socket udp e tcp...

Ciao a tutti
    devo fare uno script perl che sta in ascolto su un socket udp salvando i
pacchetti che gli arrivano su un file e poi quando gli arriva una richiesta
sull'altro socket (tcp) invirare il file salvato.
In pratica occorre stare in ascolto su due socke contemporanemente...Come
posso fare?Con i thread? Si puo fare in altri modi?
Grazie Ciao

 modi?
Sģ, puoi usare select(). Tempo addietro avevo postato un semplicissimo
abbozzo di implementazione per un server che gestisca connessioni
concorrenti senza l'impiego di thread o fork. Puoi trovare il messaggio su
Google:
 
http://groups.google.com/groups?q=maxim+perl+demultiplexing
La seconda parte del messaggio č quella che riguarda il tuo problema.
Max

Newsgroup: it.comp.lang.perl
Titolo: Uso di <STDIN> per settare le variabili

Questo codice:
[CODE]
#!c:\perl\bin\perl.exe
print "\n\nInserisci A: ";
$A = <STDIN>;
print "\nInserisci B: ";
$B = <STDIN>;
print"\n\nA+B = ", $A + $B;
[/CODE]
funziona!
Vi chiederete allora perchè sto postando...
Bè, quando eseguo lo script, il Perl mi richiede prima i due input da
tastiera (richiama prima le linee 4 e 6 dello script) e poi esegue il
resto del codice.....
In pratica l'output potrebbe essere questo:
[OUTPUT]
6
5
Inserisci A:
Inserisci B:
A+B = 11
[/OUTPUT]
A chi è già capitato?
Qualcuno sa darmi una soluzione, affinche le linee di codice vengano
interpretate una dopo l'altra nell'ordine in cui le ho scritte?
Help!
Phones

 funziona!
   Inserisci all'inizio dello script lo statement:
	$|=1
e consulta l'apposita pagina del manuale:
	$ perldoc perlvar
--
Alla prossima,
Marco

	$|=1
fatto ma continua a non funzionare nell'ordine esatto..
Ph.

Newsgroup: it.comp.lang.perl
Titolo: Esiste una funzione date?

Vorrei sapere come si fa ad implementare una funzione date nei miei
script Perl. Mi serve perché devo fare operazioni sulle date in modo
veloce e non ho tempo per svilupparne una io (mi raccomando, che sia Y2K
Compliance! :)). Un esempio: sysdate -1 (in SQL scala di 1 giorno la
data odierna).


Date::Manip o moduli analoghi per operazioni complicate a piacere.
Verificare su CPAN
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: maiuscolo --> minuscolo

C'e' qualcuno che ha gia' "fatto" o che conosce un programmino che mi
modifichi i nomi di file da MAIUSCOLO a minuscolo e perche' no mi modifichi
anche i link presenti nei file (html) ?
es:
MIOFILE.HTM
....
<IMG SRC="IMMAGINE.GIF">
...
in
miofile.htm
...
<IMG SRC="immagine.gif">
...
grazie
mario


e capirai perche` la soluzione e` un po' complessa
#!/usr/bin/perl
use strict;
package loHTML;
require HTML::Filter;
@loHTML::ISA = qw(HTML::Filter);
sub new
{
	my $class = shift;
	my $fh = shift;
	my $self = {out => $fh};
	bless $self, $class;
}
sub start
{
	my $self = shift;
	if($_[0] eq 'img'){
		$_[3] =~ s/$_[1]->{src}/lc($_[1]->{src})/ies;
	}
	$self->SUPER::start(@_);
}
sub output
{
	my $self = shift;
	my $fh = $self->{out};
	print $fh $_[0];
}
package main;
use FileHandle;
while(<*.HTML>){
	my $fh = new FileHandle ">" . lc($_);
	die $! unless $fh;
	my $s = loHTML->new($fh);
	$s->parse_file($_);
	$fh->close;
}
In questo caso mette in minuscolo solo i nomi delle immagini, ma
estenderlo e` banale.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nando
Newsgroup: it.comp.lang.perl
Titolo: Ho trovato questo per l'upload....

Ma non capisco dove mette il file uploadato?
e se non tolgo la riga "use strict 'refs';"
mi da errore!!!!
Chi mi spiega?
Grazie
F.
#!/usr/local/bin/perl -w
use strict 'refs';
use lib '..';
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;
print header();
print start_html("File Upload Example");
print strong("Version "),$CGI::VERSION,p;
print h1("File Upload Example"),
    'This example demonstrates how to prompt the remote user to
    select a remote file for uploading. ',
    strong("This feature only works with Netscape 2.0 or greater, or IE 4.0
or greater."),
    p,
    'Select the ',cite('browser'),' button to choose a text file
    to upload.  When you press the submit button, this script
    will count the number of lines, words, and characters in
    the file.';
my @types = ('count lines','count words','count characters');
# Start a multipart form.
print start_multipart_form(),
    "Enter the file to process:",
    filefield('filename','',45),
    br,
    checkbox_group('count',\@types,\@types),
    p,
    reset,submit('submit','Process File'),
    endform;
# Process the form if there is a file name entered
if (my $file = param('filename')) {
    my %stats;
    my $tmpfile=tmpFileName($file);
    my $mimetype = uploadInfo($file)->{'Content-Type'} || '';
    print hr(),
          h2($file),
          h3($tmpfile),
          h4("MIME Type:",em($mimetype));
    my($lines,$words,$characters,@words) = (0,0,0,0);
    while (<$file>) {
 $lines++;
 $words += @words=split(/\s+/);
 $characters += length($_);
    }
    close $file;
    grep($stats{$_}++,param('count'));
    if (%stats) {
 print strong("Lines: "),$lines,br if $stats{'count lines'};
 print strong("Words: "),$words,br if $stats{'count words'};
 print strong("Characters: "),$characters,br if $stats{'count characters'};
    } else {
 print strong("No statistics selected.");
    }
}
# print cite("URL parameters: "),url_param();
print hr(),    a({href=>"../cgi_docs.html"},"CGI documentation"),
    hr,
    address(
     a({href=>'/~lstein'},"Lincoln D. Stein")),
    br,
    'Last modified July 17, 1996',
    end_html;

Che file hai trovato per l'upload e soprattutto dove?
Riccardo

L'ho provato sul mio server (linux) on -line
con una pagina html e una file java.class..
...non capisco il funzionamento, cosa dovrebbe fare esattamente?..
dove dovrebbe mettermi il file?
Grazie
F
Newsgroup: it.comp.lang.perl
Titolo: Informazioni sul file

Dovrei leggere un file esempio un'immagine.
Vorrei sapere il nome, la dimensione e il tipo di file (image/gif o
image/jpg).
Come posso fare?
Grazie Stefano

Per il tipo di file: prendi le ultime tre lettere del nome.
pippo.jpeg --> peg ???
poldo.jpeg.en --> .en ??? [1]
[1] Apache (ed altri server) permettono di personalizzare il contenuto 
servito in base alla lingua preferenziale indicata dal client HTTP tramite 
gli headers.
-- 
Roberto Lupi
|[ Work:     
http://www.lupex.net/
 ]|
|[ Personal: 
http://www.lupi.ws/
   ]|
Vendesi Citroen BX 1600 Station Wagon, L. 1.800.000 --> 
http://www.lupi.ws/

 poldo.jpeg.en --> .en ??? [1]
Puoi sempre guardare nell'hader del file:
[code]
  open IMG,$img;
  read(IMG,$tipo,10);
  close IMG;
  print "E' un GIF\n" if $tipo =~ /^GIF8/;
  print "E' un JPEG\n" if $tipo =~ /^.{6}JFIF/;
[/code]
JFIF non e' un formato universale (anche se e' uno standard di fatto) e
quindi puo' capitare di trovare dei jpeg proprietari senza questo marker.
Per quanto ne so invece TUTTI i files GIF iniziano con i quattro caratteri
'GIF8'.
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

Ciao!
Se si tratta solo di immagini, e` possibile conoscerne il tipo utilizzando
il modulo Image::Size. la funzione imgsize() contenuta in esso torna
infatti un terzo parametro che identifica il tipo:
use Image::Size ();
($sx, $sy, $itype) = Image::Size::imgsize("prova.gif");
$itype puo` assumere i seguenti valori: JPG, XBM, XPM, PPM, PNG, TIF, BMP,
GIF.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: sql inj?

Salve,
     mi consigliate un modo per prevenire le SQL injection? ad esempio, 
come dovrei modificare il codice seguente?
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my ($dbh, $sql, $sth);
# $id = id del record
# $nome = nuovo valore
$dbh = DBI->connect();
 
$sql = qq~UPDATE agenda SET nome="$nome" WHERE id=$id~;
$sth=$dbh->prepare( $sql );
$sth->execute;
 
$sql = qq~OPTIMIZE TABLE agenda~;
$sth=$dbh->prepare( $sql );
$sth->execute;
 
$dbh->disconnect;
-- 
Alla batteria dai retta, ballA!


usa i segnaposto:
$sql = qq~UPDATE agenda SET nome="$nome" WHERE id= ? ~;
$sth=$dbh->prepare( $sql );
$sth->execute($id);
Vedi la documentazione del DBI in proposito:
http://search.cpan.org/~timb/DBI-1.48/DBI.pm#Placeholders_and_Bind_Values
http://search.cpan.org/~timb/DBI-1.48/DBI.pm#quote
ciao
gmax
-- 
  _  _ _  _
(_|| | |(_|><
  _|
http://gmax.oltrelinux.com

 $sql = qq~UPDATE agenda SET nome="$nome" WHERE id=$id~;
Come ti hanno detto i segnaposto sono la cosa migliore.
Ma anche il "quote" è utilissimo
$db->do("UPDATE * FROM tabella SET campo=".$db->quote($valore))
In parole povere il quote aggiunge gli apici singoli nella stringa SQL e 
provvede a sostituire tutte le occorrenze di un apice (') con un doppio 
apice ('').
Newsgroup: it.comp.lang.perl
Titolo: Domizio

IO non voglio un programma...mi serve sapere qual'è il comando per
richiamare un file!
grazie

 richiamare un file!
Innanzi tutto... non dovresti postare un messaggio di risposta ad un altro,
dandogli un nuovo titolo, oltretutto con il nome di qualcuno.
comunque... "richiamare" un file, come dici tu, non è "un [solo] comando"
come appunto puoi vedere qui:
    perldoc -f open
Se non sai a cosa si riferisce la linea qui sopra, allora direi proprio che
non ti serve a nulla che qualcuno ti scriva "come richiamare un file", ma ti
serve leggerti la documentazione di perl, e per prima cosa ti serve leggere
la documentazione su come si legge la documentazione: una casa si comincia a
costruire dalle fondamenta e non dal tetto.
Prima di "come richiamare un file" devi imparare ad usare perl, almeno un
pochino.
Questo ti potrebbe essere utile:
http://www.ebb.org/PickingUpPerl/
ciao
dd


E' uno dei tanti che vuole il "cocco ammonnato e fresco" (come si dice a
Napoli);
Ecco il codice:
<CODE>
#!perl
$file = "/path/to/my/file.txt";    # il file
$salt = "dd";    # il "salt" (due caratteri) usato da crypt per ricostruire
l'algoritmo (perldoc -f crypt)
open FILE, $file;
while (<FILE>) { $contents .= $_; }
close FILE;
$cripted = crypt ($contents, $salt);
print $cripted;
</CODE>
Guarda che crypt usa DES e non è reversibile!
Ciao,
Guido.

 wrote in message
news:am2g93$236bl$1...@ID-159100.news.dfncis.de...

e comunque in generale:
    perldoc -q "How do I do"
ciao
dd

 wrote in message
news:am2m7r$3cs$1...@lacerta.tiscalinet.it...

e non solo!!!.... cripta solo i primi 8 caratteri del file!!! il crypt in
questione serve solo per criptare password, quindi non ti serve a nulla....
ma leggiti sta documentazione eh? perldoc -f crypt.
Se vuoi criptare files, allora:
1. leggiti perldoc -q "How do I do"
2. leggiti perldoc -q "How do I do"
3. LEGGITI perldoc -q "How do I do"
e troverai il modo di trovare le librerie che lo fanno per te.
comunque, visto che anche se non volevo, qualcuno ti ha scritto il code...
ormai, tanto vale scrivertelo come si deve
<CODE>
use strict;
my $file = '/path/to/file';
open INPUT, $file or die $!; # importante il die
my $content = do {local $/; <INPUT>};
close INPUT;
</CODE>
# adesso fai quello che vuoi con $content...
# come ad esempio criptarlo con qualche libreria furba
dd
PS STUDIATI PERL INVECE DI CHIEDERE SOLO COME SI FA LA TAL COSA!
Newsgroup: it.comp.lang.perl
Titolo: problema niubbo su array

salve
Sto provando a far girare questo scriptino che legge da due file delle
stringhe txt e ne cerca una nell'altra, indicandomene la posizione.
ho dei problemi perche non riesco a far valere la verifica if... else
(o meglio se al posto di un @input utilizzo una $input ok altrimenti
no... il mio prob probab. è che ho un input di un file su piu righe ed
avrei bisogno di metterlo su una sola riga..) chi mi puo dare una
dritta?
#! /usr/bin/perl
sub indice {
    my $pos = 0;
    my @positions;
    while( -1 != ( $pos = index $_[0], $_[1], $pos ) )
    {   push @positions, $pos++;
    }
    return \@positions;
    }
open (pippo , "<pippo.txt");
@input = <pippo>;
chomp @input;
print @input;
open (peppo , "<peppo.txt");
$snp = <peppo>;
chomp $snp;
if( @input =~ /[$snp]/ )
   {
    print "esiste\n";
    print join( '-', @{ indice( @input, $snp) } ), "\n";
    }


Non sono sicuro di aver capito, ma prova il seguente:
open(F, $nomefile) or die("non riesco ad aprire il file $nomefile");
undef $/;
$tuttoilfile = <F>;
close F;
$/ = "\n";

 $/ = "\n";
Ti ringrazio ma non mi risolve il problema.
Provo a spiegarmi meglio:
nel mio file pippo.txt ho una serie di stringhe su piu righi, lo metto
su un array e con chomp lo printo su una sola riga ( Mi serve averlo
su una sola riga perche poi devo fare il matching con una altra
stringa e ricavare la posizione in cui la seconda str. si trova).  Se
utilizzo l'array nell'espressione join( '-', @{ indice( @input,
$snp) } ), "\n"; non mi funziona (Diverso invece se utilizzo una
$input con all'interno la stringa gia su un solo rigo).
Ho provato il tuo codice , ma mi mette cmq il contenuto del file
pippo.txt su piu righi
So che non sono stato chiaro lo stesso......sigh


Purtroppo è difficile interpretare il tuo messaggio. Cosa intendi per
"su piu righi" ? Forse dovresti osservare il file con un hex editor e
capire quale carattere devi eliminare. Una volta identificato il
carattere puoi sempre usare una regex del tipo $testo ~= /\n|\r|\f//
g ; tanto per fare un esempio.
All'esempio inviato nel messaggio precedente puoi aggiungere
chomp($tuttoilfile); e non dovresti avere più interruzioni di riga,
provalo, con me ha funzionato.


Sarebbe utile se mostrassi un esempio di file pippo.txt e peppo.txt
con l'indicazione del risultato che vorresti ottenere. Nota che se
pippo.txt contiene più righe, per trovare una corrispondenza corretta
in peppo anche lì il contenuto deve stare su più righe.
Ti sarà poi utile dare una letta a perlretut e perlre, vorrei solo
osservare che le parentesi quadre hanno un significato ben preciso
nelle espressioni regolari.
Ciao,
   Flavio.