mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: [alle prime armi] Activeperl HELP

Ciao NG.
Ho appena installato active perl x win95, mi sono procurato qualche guida al
perl e vorrei provare quel poco che ho imparato.
Il fatto č che non so da dove cominciare...dove devo scrivere il
programma...come faccio ad eseguirlo e cosě via.
Chi č cosě gentile da aiutarmi usando parole semplici e non "saltando" i
passaggi?
grazie mille
David
gr...@lcnet.it

 via.
  Per il tuo primo programma basta la linea di comando:
	$ perl -e "print qq/Hello World!\n/;"
  In seguito, ti servira` un qualsiasi editor di testo. Per
l'esecuzione, userai la linea di comando:
	$ perl 
mioprog.pl
	Alla prossima,
		Marco

 devo scrivere il programma...come faccio ad eseguirlo e cosě


 Poi di che editor di testo parli??
  Avvio->Programmi->Accessori->Blocco note
	Alla prossima,
		Marco

...


devo fare??
Hai bisogno di installare anche un web server, ad esempio Apache per Windows.
	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!

Newsgroup: it.comp.lang.perl
Titolo: redirect in perl

Devo fare un Re-Direct verso un determinato URL, all'interno di un programma
PERL.
Per fare questo utilizzo :
Print "Locate: 
www.sito.com
 \n\n";
tutto bene, ma è possibile evitare di visualizzare l'URL sulla barra di
Explorer, magari lasciando visualizzato solo l'URL dello script Perl (es:
www.sito.com/cgi-bin/redirect.pl
) ???
Esiste qualche tecnica alternativa?
Grazie a tutti.


Bah. Di solito usano stupidi trucchetti, come creare due frame, di cui uno
di dimensioni nulle, e gestire tutto nel frame piů grosso.
Ma č tanto fastidioso. Non capisco perchč si debba rendere difficile
all'utente capire quale URL sta realmente consultando.
Max

 wrote in message
Rpog8.56876$v7.20...@twister1.libero.it...

Potresti leggere il file html e stamparlo con print() se e' sullo stesso
server.
---
Mario Rizzuti
Newsgroup: it.comp.lang.perl
Titolo: Aiuto Regexp

Salve a tutti, chiedo aiuto per una cosa insolita.
Dovrei trovare la forma giusta per catturare dei parametri variabili del 
tipo:
11.11.11.11 ecc.ecc ( i numeri vanno da 1 a 3 cifre )
quindi ^s*(d{1,3}).(d{1,3})?.(d{1,3})?.(d{1,3})?$
Il problema � che non so quante volte trovo i ".11".
Esiste, con le regexp, la possibilit� di creare gruppi dinamici per
catturare 
i vari parametri?
tipo 11.11 o 11.11.11 o ancora 11.11.11.11.11.11
(i num 1 sono solo di esempio).
Grazie
ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 (i num 1 sono solo di esempio).
Certo:
(\d{1,3}(?:\.\d{1,3})+)
(da ancorare a tuo piacimento).
Ciao.

 Ciao.
Ciao e grazie per la risposta, ma non fa esattamente quello che mi serve,
ti 
faccio un esempio:
se ho 11.11.11 devo ottenere l'equivalente di $1 -> 11, $2-> 11 e $3->11 
perch� ci sono 3 punti, se fossero stati 5, avrei avuto da $1..$5
parametri.
La regexp dovrebbe aggiungere parentesi per ogni gruppo di 3 cifre dopo
ogni 
punto, ma io non so a priori quanti punti conterr� la stringa.
Ecco qual'� il problema.
Riciao


 Il problema è che non so quante volte trovo i ".11".
Perdona, ma fai prima ad usare split ?

 Ecco qual'� il problema.
Vuoi dire che non vuoi catturare anche il carattere ".", ma soltanto i 
gruppi di cifre? (Rileggendo meglio il tuo messaggio originario, in 
effetti sembra cos�).
Allora basta splittare sul punto ci� che viene catturato dalla regex: 
che t'ho fornito; esempio:
'aaa *1.22.333.1* bbb' =~ /(\d{1,3}(?:\.\d{1,3})+)/;
print "($_)" for split /\./, $1;
# stampa: (1)(22)(333)(1)

 # stampa: (1)(22)(333)(1)
In effetti ora ho risolto in maniera moolto simile, ma avevo questa 
curiosit�, cio� capire se fosse possibile 'catturare' porzioni di stringa 
dinamicamente.
Per ora ti ringrazio
Ciao


 Perdona, ma fai prima ad usare split ?
In realt� no, usando split, allungo un p� l'elaborazione della stringa
(che 
viene inviata da un form).
Sono convinto che posso fare tutto con un paio di regex un p� pi�
elaborate, 
risparmiando parecchi controlli a livello di codice.
es:
stringa-> coord 2,3-4.6-8.10-11 ecc.ecc
Ciao


 dinamicamente.
Si pu� fare, ma sarebbe /inutilmente/ complicato e neanche efficiente.
E stilisticamente scorretto, perch� rischieresti di mescolare 
validazione e manipolazione dell'input utente.
Usa la regex per validare la stringa (se proviene da una form), o per 
estrarla (nel caso fosse immersa all'interno di un testo generico), e 
poi una split per separare le varie porzioni numeriche.
Mi sembra la soluzione al contempo pi� pulita e pi� efficiente, 
specialmente se devi validare un input utente, dal momento che se la 
validazione fallisce, puoi risparmiarti lo split (che � inessenziale per 
la validazione medesima).
Ciao.

 Ciao.
Effettivamente ora faccio cos�.
Prendo la stringa la splitto e per ogni sottostringa, faccio la
validazione.
Direi che lascio cos�, mi sembra che tutto funzioni bene e sia anche 
piuttosto performante.
Grazie per l'aiuto :-)

Newsgroup: it.comp.lang.perl
Titolo: Parametri

perl 
script.pl
 parametro1
O mi dice ke c sono troppi parametri, o cmq nn lo accetta.
Come posso risolvere?
(e scusate la stupidità delle domande...)
--
bye
Erix     UIN: 72432400
http://erix.cjb.net
-Aveva il culo TCP/IP- -Come?!?- -A pacchetti....-

 O mi dice che ci sono troppi parametri, o cmq non lo accetta.
Quindi immagino che appaia anche un qualche messaggio d'errore.
Sarebbe possibile vederlo?
Max

 Sarebbe possibile vederlo?
No è ke sono scemo e mi ero dimenticato ke era case-sensitive =)
zorry
(nn firmo +!)

 Cmq mi pare ke lo spazio c sia
A parte che no, il separatore di firma di Outlook e` malformed (poiche'
manca lo spazio alla fine di *ogni* linea), hai problemi ben piu` gravi
con l'italiano. Tenta di scrivere in maniera comprensibile. 
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

Newsgroup: it.comp.lang.perl
Titolo: password di rete

Ciao a tutti. Ogni tre-quattro giorni devo entrare in un sito nella rete
intranet aziendale, cliccare un paio di link, scaricare un file .mdb
aggiornato ed elaborarlo e vorrei fare uno script che facesse il tutto.
Il file lo elaboro con Win32::ODBC e va bene, con WWW::Mechanize potrei
muovermi all'interno del sito e fare il download del file (ma con $a->get 
il file arriverà integro? tempo fa avevo provato con un .swf ed arrivava
corrotto); resta il fatto che devo superare una richiesta di userid e
password di rete che ora passo inserendoli in una finestrella che dovrebbe
proprio essere quella di un web server Microsoft e non so se posso
mandarglieli attraverso uno script e se si come.
Qualche suggerimento?
grazie
Alberto
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 mandarglieli attraverso uno script e se si come.
Dunque... la "finestrella" non può essere "del server" in quanto ti
appare sul client. O è HTML con una form (e a quel punto puoi guardare
cosa invia e riprodurne il comportamento), o è la finestra normale che
tutti i browser web fanno comparire quando li server (quel che sia)
gli manda una risposta con codice 401 (UNAUTHORIZED). Potrebbe pure
essere una diavoleria ActiveX o Java, ma non ci credo).
Se è una normale richiesta di autenticazione HTTP, guarda il metodo
'credentials' di LWP::UserAgent (da cui WWW::Mechanize eredita) e
metodi correlati.
-- 
  dakkar
  sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN

$a->get($url, ':content_file' => $nomefile);
funziona alla perfezione. Non sono riuscito invece ad usare credentials()
ed ho ripiegato su:
$req = new HTTP::Request GET => '
http://sitosegreto/paginasegreta
';
$req->authorization_basic('userid', 'password');
che va benissimo ed al quale sono arrivato solo perchè partito dalle tue
indicazioni. Molte grazie.

Newsgroup: it.comp.lang.perl
Titolo: CHI MI SPIEGA QUESTO MESSAGGIO DI ERRORE?

Cant' call method "exec on unblessed reference
Questo errore mi compare quando richiamo Pg::doQuery...
Se qualcuno ha esperienza di programmazione cgi con postgres si faccia
sentire
AIUTOOOOO!!!

 wrote:
: Cant' call method "exec on unblessed reference
Cosi` ad occhio lo script tenta di fare un:
exec $ref
in cui $ref e` una reference ad una variabile e non ad un oggetto (non
e` stata bless-ed in un oggetto).
Di piu` non ti so dire: non ho mai usato i moduli Pg::* .
Data la diffusione del Postgres mi sembra strano che il modulo sia
bacato, propenderei piuttosto per un uso improprio di un metodo
(controlla il tipo di parametri che stai passando) o per un errore di
installazione.
-- 
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

 
Mi sembra piu' probabile che sia fallita l'apertura del DB.
In questo caso, la handle del database non e' nemmeno valida, 
no parliamo di 'blessed'.
P.S: non penso che tu intendessi veramente '*exec* $ref'....
Cheers,
	Alessandro
Newsgroup: it.comp.lang.perl
Titolo: Push e hash... un pò di confusione.

Premetto che ho iniziato a studiare Perl da poco meno di un mese e non ho
ben capito l'utilizzo di push con un hash. Il listato presente  presso
http://www.perl.it/blog/archives/000080.html
 riporta questa riga:
push( @{ $addrs{$2} }, $1);
Perchè a sinistra è presente un contesto array ? 
Quando all'inizio è stato dichiarato un hash 
my %addrs
Da quanto ho appreso per accedere alle coppie di un hash dovrebbe bastare 
$chiave, $valore. Quindi $addrs{$2} è lo scalare corrispondente alla chiave
dell'hash %addrs ed $1 il suo valore.
Dove sbaglio ?
Grazie
Antonio C.

dell'hash %addrs ed $1 il suo valore.
No, secondo la scrittura sopra, $addrs{$2} è un reference ad un array, $1 è
uno dei valori inseriti nell'array.
Ciao.

 my %addrs
Dici giustamente che "$addrs{$2} è lo scalare corrispondente alla 
chiave dell'hash %addrs". Tutto giusto. Fermiamoci qui, e vediamo 
come viene commentata sul blog questa parte di codice (le parti tra
parentesi sono mie):
    "aggiungiamo il nome utente ($1) appena letto all'array          
     corrispondente al suo dominio ($1):"
Si vuole cioe` che a ciascun dominio corrisponda un array di
nomi utente. Come avrai visto studiando il Perl, pero`, non e`
possibile associare alla chiave di un hash degli array. Soltanto 
scalari. La soluzione e` usare tale scalare per memorizzare un
riferimento all'array. Riprendo il codice usato nel blog:
  push(                      # Aggiungi in coda all'
    @{                       # array il cui riferimento si trova
      $addrs{$2}             # in questo valore scalare ...
    },                       # Che cosa ?
    $1                       # Questo elemento
  );
La scrittura @{ ... } si dice dereferenziazione. 
Uno strumento utile per esaminare le strutture dati e`
Data::Dumper. Ad esempio:
    use strict;
    use warnings;
    use Data::Dumper;
    my %args;
    push @{ $args{ 'Lombardia' } }, 'Mantova';
    push @{ $args{ 'Lombardia' } }, 'Brescia';
    push @{ $args{ 'Veneto' } },    'Verona';
    push @{ $args{ 'Veneto' } },    'Vicenza';
    print Dumper( \%args );
Il cui output e`:
  $VAR1 = {
          'Veneto' => [
                        'Verona',
                        'Vicenza'
                      ],
          'Lombardia' => [
                           'Mantova',
                           'Brescia'
                         ]
        };
La struttura dati che ho usato come esempio e` analoga
a quella usata nel programma sul blog.
Un buon posto dove studiare queste cose e` perlreftut.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

Grazie per le vostre risposte e mi scuso per il mio ritardo, ma ho cercato
di approfondire quanto mi avete detto ritornando anche a leggere più volte
gli argomenti trattati sul libro "Perl e Internet".
Anche se avevo già affrontato gli array e hash anonimi, dereferenziazione
ecc. il mio problema era ed è ancora dovuto principalmente, ad una corretta
interpretazione del codice scritto.
Antonio C.
Newsgroup: it.comp.lang.perl
Titolo: come prendere informazioni sui metadati del database (numero colonne, nomi colonne ecc...)

Salve,
Vorrei conoscere dei metadati su un da o su una tabella:
es. numero di colonne, nome della colonna, ecc...
come fare?
Inoltre dovrei inserire un dato in una colonna indicandola con il suo nome 
non con il numero della posizione della colonna:
come fare?
Grazie in anticipo,
Andrea.
P.S. uso Mysql. 

 non con il numero della posizione della colonna: come fare?
La domanda non mi e` chiara. Cosa c'e` che non va bene in una
query del genere ?
  INSERT INTO tabella (colonna) VALUES ( valore )
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

>  INSERT INTO tabella (colonna) VALUES ( valore )
E' vero! scusami....
Grazie ancora,
Andrea.

Newsgroup: it.comp.lang.perl
Titolo: Perl User Group Roma.pm

 all'indirizzo 
da...@divinf.it
I ci sto. C'e solo un piccolo problema: 11 mesi all'anno non sono a
Roma. Ma ci staro il finesettimana prossimo o doppoprossimo. Anche se
non posso organizzare/amministrare tanto vorrei almeno cambiare
pesnsieri con chi ne ha voglia. Se ci sara anche solo la possibilita di
creare un gruppo Roma.pm - per cortesia melo fate sapere, vi
raggiungerei volontieri (posso anche portare qualche birra :).
-werns


Per me è OK, consideratemi del gruppo,
Ciao, Pasquale
Pasquale Annunziata
_______________________________
Member of the Internationa
Webmasters Association.
Webmaster e WebDesigner:
MEDUSA FILM 
http://www.medusa.it
COLUMBIA TRISTAR FILMS ITALIA
http://www.columbiatristar.it
My Personal Home Page:
http://JS.freeweb.org
http://www.mclink.it/personal/MC0414
______________________________
Newsgroup: it.comp.lang.perl
Titolo: pkunzip

Dopo svariati tentavi per riuscir a far scompattare un file in una
determinata cartella  non andati a buon fine, mi sono ritrovato ad
utilizzare pkunzip.
Questo funziona egregiamente, ma quando mando in esecuzione il seguente
script
system ("pkunzip -o $FILEZIP c:/Temp $FILETOUNZIP");
mi appare la classica finestra che mi chiede dove voglio scaricare il file,
ma non lo zip, ma il file perl!!
Ho provato anche ad inserire il seguente percorso :
system ("c:/temp/pkunzip -o $FILEZIP c:/Temp $FILETOUNZIP");
ma pkunzip sembra non andare, bensě io abbia provato a copiare l'eseguibile
anche sotto temp!!
Tenete conto che nell'autoexec .bat ho settato nel path la directory dove č
contenuto l'eseguibile di pkunzip, quindi in teoria, pkunzip dovrebbe andare
da qualsiasi posizione io lo richiami.
Grazie!!!

 system ("pkunzip -o $FILEZIP c:/Temp $FILETOUNZIP");
   system esegue il programma specificato nel contesto del sistema 
operativo nel quale operi, il quale, molto evidentemente, non ha idea di 
cosa significhi il carattere '/' all'interno dei path.
-- 
Alla prossima,
Marco

no, non penso che "/" centri qualcosa, infatti prima di far apparire la
finestra di download lo scriptino scompatta in temp il file zippato.
Funziona lo script, ma non riesco a capire perchè mi appaia quella dannata
finestra.
Archive zip era l'ideale, ma non sono riuscito a far scompattare in una
determinata directory il contenuto dello zip.
Byez

determinata directory il contenuto dello zip.
  $member->extractToFileNamed( $fileName );
non funziona?
o    
  use Archive::Zip::Tree;
  $zip->extractTree( $root, $dest );
per un intero albero?
o, alla disperata:
 $member->extractToFileHandle( $fh );
Mai provato (finora ho avuto occasione di usare Archive::Zip solo per creare
un file zip, non per leggerlo), ma sembrano promettenti.
Ciao.

Grazie a Stefano sono riuscito a Far funzionare Archive Zip, alla fine ho
utilizzato questo script, e tutto sembra andar alla grande.
my $zip = Archive::Zip->new();
my $zipName = shift(@ARGV);
my $status = $zip->read( $zipName );
my $nomefile='C:\temp\\'.@ARGV[0];
die "Read of $zipName failed\n" if $status != AZ_OK;
foreach my $memberName (@ARGV)
{
 print "Extracting $memberName\n";
 $status = $opt_j
  ? $zip->extractMemberWithoutPaths($memberName)
  : $zip->extractMember($memberName,$nomefile);
 die "Extracting $memberName from $zipName failed\n" if $status != AZ_OK;
}
Ringrazio cmq tutti per i consigli!!!

}
Non cambia probabilmente molto, ma io il ciclo lo riscriverei cosi':
  if ($opt_j) {
    foreach my $memberName (@ARGV)
    {
      $status = $zip->extractMemberWithoutPaths($memberName);
      die "Extracting $memberName from $zipName failed\n"
          if $status != AZ_OK;
    }
  } else {
    foreach my $memberName (@ARGV)
    {
      $status $zip->extractMember($memberName,$nomefile);
      die "Extracting $memberName from $zipName failed\n"
          if $status != AZ_OK;
    }
  }
Il vantaggio sara' senz'altro nullo (magari ci pensa gia' l'ottimizzatore),
ma sto male a vedere quel $opt_j valutato (fosse anche solo nominalmente)
ad ogni ciclo.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Estensione di un file

Domanda banale (just for change):
devo recuperare l'estensione di un file. Ora, l'algoritmo in se saprei
com'è, però non so applicarlo al PERL. Come faccio?
Grazie mille e scusatemi se le mie domande sono ancora un po' banali :o(
--
Umberto Meroni
[
http://www.ubi1k.com
] [
http://www.ubi1k-vb.net
]
[Come contattarmi: 
http://www.ubi1k.com/meroni
]
---
In a world without fences, who needs gates?
---

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

 $nome = 'nome.strano.txt';


Allora: 'split' divide lo scalare ad ogni punto, ma POP cosa fa esattamente?
Cosa fa pop? Fa il pop dell'array... dettagli su perlfunc.


 Cosa fa pop? Fa il pop dell'array
Illuminante ;o)

Illuminante ;o)
Sono funzioni comuni a _tutti_ i linguaggi (come shift, unshift e
push), per mettere e togliere elementi da un vettore. Hai provato
(come ti ho scritto) a controllare perlfunc sulla documentazione?


 (come ti ho scritto) a controllare perlfunc sulla documentazione?
Purtroppo non ne ho avuto modo (mea culpa).
Ciao,
Umberto

ricordo di aver trovato comandi simili. O almeno, non tutti.
Beh, qui la battuta "tutti i linguaggi _seri_!" me la tiri proprio
fuori con le unghie ;o)))
BTW lo trovi nei principali linguaggi "canonici", dal Pascal al C.


 BTW lo trovi nei principali linguaggi "canonici", dal Pascal al C.
Mi si tocca VB, eh? Allora adesso mi documento bene.
DEVE esserci! ;O)
Ciao e grazie di tutto,
Ubi

BTW lo trovi nei principali linguaggi "canonici", dal Pascal al C.
Veramente ne' il C ne' il Pascal, a livello di linguaggio,
prevedono shift, unshift, pop e push. Che poi ci siano librerie
che lo fanno, o che ad esempio con Delphi lo si possa fare (non
lo so, dico...) e` un altro discorso.
Naturalmente, Perl rulez. ;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

Naturalmente, Perl rulez. ;)
Sui vettori.. insomma.
Devo dire che il trattamento delle matrici continua a starmi sullo
stomaco :-\, al punto che spesso uso stringhe o vettori di stringhe
delimitied, viste le facilities del Perl nel trattamento del testo.


stomaco :-\, al punto che spesso uso stringhe o vettori di stringhe
Si, in effetti hai ragione, la mia affermazione era comunque in generale
sul linguaggio. ;)
	A presto, Michele.


 Io lo so, tu lo sai, ma ero certo che chi usava VB non lo sapesse ;o)
E a me che serve? Io uso VB e imparo i comandi VB ;o)

 Io lo so, tu lo sai, ma ero certo che chi usava VB non lo sapesse ;o)
Io uso VB e imparo ciň che per VB serve ;O)
PS Scusa, prima ho risposto senza correggere R: in Re:

Newsgroup: it.comp.lang.perl
Titolo: cgi wrapper???

Qualcuno mi sa dire se è possibile usare i cgi wrapper su IIS della
Microsoft? Se sapete come fare per favore fatemelo sapere via email.
Grazie in anticipo
Andrea
email:
andr...@tin.it


Newsgroup: it.comp.lang.perl
Titolo: Perl & colori

Ho da poco incominciato ad interessarmi al Perl
realizzando qualche piccolo programmino, ma non sono
riuscito a trovare il modo di rendere a colori 
l'output su video dei programmi.
Nella documentazione in mio possesso non se ne parla;
esiste un modo per farlo ?
Da qualche parte sono disponibili le FAQ di questo NG
che seguo da poco tempo ?
-- 
 bye
    Marino M.  (maquis)          iw6cpz
____________________________________________

 di rendere a colori l'output su video dei programmi.
  Ci sono diverse possibilita`. Se il tuosistema supporta i codici di
escape ANSI, puoi utilizzare le sue sequenze; altrimenti puoi dare
un'occhiata ai moduli Curses, che trovi sul CPAN.
	Alla prossima,
		Marco

che seguo da poco tempo ?
http://www.perl-it.org
ma ancora in preparazione...
	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!

 esiste un modo per farlo ?
Dipende dal terminale ... prova con:
#!/usr/bin/perl
print "\e[1;44mCiao\e[0m\n";
e se vedi i colori puoi sbizzarrirti!
Ciao

 l'output su video dei programmi.
Prova a dare un occhiata al modulo Term::ANSIColor da qualunque CPAN
Ciao
--
 Massimo Balestra
 System Engineer
 Torino Italy
Sent via Deja.com 
http://www.deja.com/
Before you buy.
Newsgroup: it.comp.lang.perl
Titolo: Mailing List quotidiana

Salve a tutti!
Ho scritto questo CGI (alla fine ce l'ho fatta, spero!) che invia una mailing
list ogni giorno.
Il testo della mailing list è contenuto in files con nome GGMMAAAA.txt. La firma
della ml in signature.txt e le novità in news.txt.
Dal momento che non mi è concesso modificare il crontab per fare si che la ml
venga spedita tutti i giorni il CGI viene caricato con una riga SSI dal sito
ogni volta che viene aperto (ricevo sempre più di una visita al giorno, quindi
funzionerà!). Il CGI controlla la data: se in una dir è presente un file
GGMMAAAA.ok sta fermo, altrimenti invia la mailing list e crea quel file
GGMMAAAA.ok.
Con questo sistema semplice et geniale posso mantenere la mailing list.
Il mio problema è questo: se la mailing list viene inviata in background, se
l'utente chiude il browser mentre il mio CGI in background sta ancora inviando
la ML succede qualcosa?
Non vorrei che interrompesse la spedizione...
--
Umberto Meroni
[
http://www.ubi1k.com
] [
http://www.ubi1k-vb.net
]
[
webm...@ubi1k.com
] [ICQ: 14660006]
[MSN Messenger: 
ub...@hotmail.com
]
[per contattarmi: 
http://www.ubi1k.com/meroni
]

 Non vorrei che interrompesse la spedizione...
Hai provato? :) Preparati una lista sufficientemente lunga di indirizzi (ad
esempio il tuo ripetuto molte volte), prova a caricare la pagina ed
interrompre. Conta i messaggi ricevuti. Q.E.D.
Insisto. Vai dal tuo sysman e fatti abilitare il crontab.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Insisto. Vai dal tuo sysman e fatti abilitare il crontab.
Su due società di hosting, nessuna me lo concede. E neanche quelle dove miei
amici/colleghi sono clienti.
Se conosci una società di hosting che mi conceda di modificare il crontab del
server fammi un fischio...
Mi sembri scettico sul mio sistema per l'invio di questa ML; conosci qualche
altro sistema per caso?

 altro sistema per caso?
Se il tuo system manager avesse un sistema veramente serio, ti direi di
chiedere se hanno majordomo o listserver (due software per gestire ML) e, in
caso di risposta positiva, farti creare una ML di cui tu sei il gestore.
Altrimenti, prova a vedere se le ML che offre 
www.topica.com
 sono
sufficentemente 'flessibili' da permetterti di usarne una. Magari di
permettono di creare una Announcement List senza troppi problemi, al che 
puoi iscriverci e disinscriverci la gente con il CGI senza dover dipendere dai
tuoi server.


 'boss'. ;O)
Ah. Non mi sembrava, francamente. 


 tuoi server.
Se faccio cosě dipendo dai loro server, mentre invece se la faccio da me sono il
'boss'. ;O)
Grazie,
Ubi1k

 Ah. Non mi sembrava, francamente.
Beh, il fatto è che se la mailing list è gestita dal mio server il padrone sono
io, posso farci quel che mi pare (o meglio, poTREI farci quel che mi pare se
l'host andassa una volta ogni tanto). Concorderai con me che uno script ospitato
è innanzitutto poco professionale, e poi la pubblicità altrui... insomma...
D'altronde, se è l'unica soluzione...
Newsgroup: it.comp.lang.perl
Titolo: Problema con CGI.pl

Ciao a tutti.
Vorrei recuperare la URL relativa che ha chiamato il mio script.
Seguendo pedissequanente le man pages, ho fatto
$url_relativa=$query->url(-relative=>1)
ma nella veriabile ci va a finire sempre l'url assoluta
(
http://www.ilmioserver.com/path/to/script.cgi
).
Il fatto è che qualunque cosa metta come argomento di url() il risultato
e' sempre quello; cosa sto sbagliando?
-- 
Ciao
Nico

 Nico
Piacevole parlare con se stessi, non si e' mai in disaccordo :-)
-- 
Ciao
Nico

Newsgroup: it.comp.lang.perl
Titolo: sapere che lo script è avviato da cron

ho uno script che avvio sia da web sia da telnet..
lo script printa dei messaggi (tipo "tutto ok al passo 2"
per intenderci).
il print mi è utile se lo avvio da web ma non quando è avviato
automaticamente col cron (mi stampa l'output e mi manda mail che
non mi servono).. mi chiedevo se c'era qualche variabile
che potessi usare nello script per capire se è avviato da web
o meno.
thanks
--
Ciao
The Bos
the-bos#
axelweb.com
http://the-bos.axelweb.com

 o meno.
Segnala al tuo script -tramite un parametro- di non rompere quando è 
eseguito via cron.
In Perl, puoi leggere i parametri in @ARGV.
$ARGV[0] <- primo parametro
$ARGV[1] <- secondo parametro
ecc.
-- 
Roberto Lupi

 ecc.
quindi se io avviassi da cron con un comando tipo
/bau/mioscript.cgi nonrompere
$ARGV[0] sarebbe uguale a "non rompere" ?


 $ARGV[0] sarebbe uguale a "non rompere" ?
Sarebbe uguale a "nonrompere", si.
Bye,
 Emmanuele.
-- 
I ... Owe ... You ... Pain! -- Willow, "Tough Love"
GnuPG Key ID: 0x788E3A3A
GnuPG Key FP: 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

grazie a tutti
The Bos

 Sarebbe uguale a "nonrompere", si.
Stavo ripensando a quello che avevo scritto e alla soluzione proposta...
Di sicuro è più semplice mandare stdout del programma su /dev/null:
programma > /dev/null
Naturalmente è possibile farlo anche da crontab.
-- 
Roberto Lupi
http://www.lupi.ws/

 Naturalmente è possibile farlo anche da crontab.
Occhio che, a questo punto, tutti i messaggi che quel programma da non
sono visualizzati. Se vuoi mandarlo in background e avere comunque un
occhio su cosa sta facendo, e non vuoi usare stderr, puoi usare
Sys::Syslog(3pm).

Newsgroup: it.comp.lang.perl
Titolo: La funzione Perl che restituisce in n° degli elementi di un array

Vorrei sapere qual è la funzione e la relativa sintassi, per sapere di
quanti elementi è costituito un array.
Ciao, Grazie!


scalar @array
charp
:wq


$nelem=scalar(@array);
HTH

 Ciao, Grazie!
$nelem=scalar(@array); oppure, piů semplicemente:
$nelem=@array
HTH

$indice=$#nome_array;
$#nome_array restituisce l'ultimo indice dell'array: se @mio_array ha 10
elementi, $#nome_array=9
Ciao.
-- 
Posted from 
smtp6.libero.it
 [193.70.192.127] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Anche
        $#array
restituisce uno scalare.
charp
~
~
:wq

 quanti elementi č costituito un array.
Supponiamo che @pippo sia il tuo array, basta che tu lo usi in un
contesto scalare e ti restituisce il numero di elementi contenuti,
quindi
my $quanti = @pippo
vuol dire che poi $quanti e' il numero di elementi nell'array
Saluti
-- 
øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļ
Enrica Iaffei                     Aggregated Technologies ltd
7, Aristotelous Str.              3, Demetriou Vikella Str.           
1056 Nicosia       CYPRUS         1061 Nicosia       CYPRUS
phone +357 2 346261               +357 2 755750
"Da molti anni non mi chiedo pių quale posto č la mia casa
 ho scoperto che la mia casa č insieme a me ovunque vada"
øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļ
Newsgroup: it.comp.lang.perl
Titolo: Trovare una stringa

Ho l'esigenza di trovare una striga in un file, ho buttato giu queste
quattro righe, ma non riesco a capire perchè non funziona.
#!/usr/bin/perl
 
$nu_alias = "prova";
 
# Controlla i duplicati
open(IN,"</etc/aliases");
foreach $nu_alias (IN) {
        chomp($_);
        ($alias) = split(/:/,$_);
        ($alias) = split(/#/,$_);
        print "$alias\n";
       if ($alias == $nu_alias) {
               print "adduser: BAD\n";
       } else {
       open(OUT,">>/etc/aliases");
       print  "$nu_alias: $nu_user\@$domain\n";
       system("/usr/sbin/sendmail -bi");
       open(OUT);
       print "adduser: OK \n";
};
close(IN);
 
Come avrete notato questo script, controlla le ci sono degli alias uguali
nel file aliases della posta.
Il problema è che non funziona, non controlla se efferrivamente c'è un
alias suplicato, non capisco dove sia l'errore.
Grazie
Saluti
------------------------------------------------------------------------------
Matteo Colombo 	      	E-mail: 
mat...@calcol.it
 
------------------------------------------------------------------------------
--
Automatic posted from 
ro...@dns.calcol.it
 [195.129.25.201]
via Mailgate Server - 
http://www.mailgate.org




 Scusa se sono un po' rude.
 Perche' non posti il vero file, quello che gira, con dei dati di esempio,
 invece di postare una specie di esempio pacchianamente sbagliato?
 
 Il tuo codice non compila neanche, perche' manca una parentesi graffa.
 Usi (IN) nel foreach. IN e' un filehandle... scritto cosi' ci sta come i
 cavoli a merenda. Al limite posso pensare a (<IN>), ma credo sarebbe 
 ugualmente sbagliato, perche' in quel contesto non carica $_.
 Inizializzi $nu_alias, ma poi ci riscrivi usandolo come indice nel foreach.
 Fai due split nella stessa variabile $alias.
 
 Fai un confronto numerico == su delle stringhe (si usa eq per le stringhe)
 
 Riapri in append un file che stai tenendo aperto in lettura... non so proprio
 che cavolo succede a IN!
 
 Riapri OUT invece di chiuderlo.
 
 Una volta che sistemi il programma e lo fai girare sul serio, per trovare se
 c'e' un alias duplicato usi lo stesso metodo di cui abbiamo parlato 
 per eliminare gli indirizzi di e-mail: riempi un hash con tutti gli alias e
 poi controlli se esiste una chiave $nu_alias
 
 print "$nu_alias non esiste!\"  unless (exist $alias{$nu_alias});
 
 Saluti,
 
 Maurizio
-- 
Maurizio M. Munafo' |                            
E-mail:mmmu...@tuttocitta.it
--------------------+---------------------------------------------------------
             (o_    |                              - Gentile or Jew,
   (o_  (o_  //\    | O you who turn the wheel and look to windward,
   (/)_ (/)_ V_/_   | Consider Phlebas, who was once handsome and tall as you.
Newsgroup: it.comp.lang.perl
Titolo: due POST con un click

ovvero...devo fare uno script che richiamato con metodo POST spedisca a
sua volta un POST ad un altro script...una catena insomma. Ma come è
possibile mandare un form senza il classico Submit...che dovrebbe essere
premuto dal programma stesso. Javascipt forse?
Grazie
Guido


 Usa nel primo script una combinazione di moduli HTTP::Request e
 LWP::UserAgent per simulare uno user agent.
 
Qualcosa del tipo
 
 use HTTP::Request::Common qw(POST);
 use LWP::UserAgent;
 
 $ua = LWP::UserAgent->new();
 my $req = POST '
http://www.pippo.xxx/cgi-bin/mycgi
' ,
              [ param1 => 1 , param2 => "pluto" ];
 $content = $ua->request($req)->as_string;
 
[Codice non mio ma copiato da un manuale Perl]
Dettagli nei moduli nominati.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Newsgroup: it.comp.lang.perl
Titolo: use something.pm oppure use somethingelse.pm

ciao
come faccio a usare un modulo piuttosto di un altro
a seconda che si verifichi una certa condizione ?
 Raffaello

 a seconda che si verifichi una certa condizione ?
'use' viene eseguito nella fase di BEGIN, quindi non puo`
essere subordinato al verificarsi di una condizione a
run-time. Dovrebbe andarti bene 'require'.
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Domande da principiante

Salve a tutti,
ho alcune domande da principiante :
1) e' possibile includere un file in un sorgente perl, come ad es. nel C
(#include nomefile) ?
2) come fare ad uscire anzitempo da un for o da un ciclo while, do etc. ?
3) gli array associativi funzionano a piu' di 2 "campi" per "riga" ?
4) il modulo CGI cosa permette di fare ?
Grazie in anticipo a tutti
Dream

 4) il modulo CGI cosa permette di fare ?
Scrivere 'facilmente' CGI, sopratutto perche' ti permette di fare il debug
dalla linea di comando (senza dover usare il server).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Newsgroup: it.comp.lang.perl
Titolo: CGI PER ATTACH

cari amici,
avete un'idea di come fare per ALLEGARE un file ad una mail generata da
CGI chiamato da un form?
Tale attach dovrebbe essere un file che l'utente del form seleziona
sfogliando il proprio HD.
grazie
Massimo Cortinovis
esperia sns
http://esperia.mall.it
esp...@mall.it

corti...@mall.it
 wrote:
 >avete un'idea di come fare per ALLEGARE un file ad una mail generata da
 >CGI chiamato da un form?
In perl puoi usare il modulo MIME:Lite.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
Newsgroup: it.comp.lang.perl
Titolo: Aiuto.

Scusate:
non capisco una cosa, mi serve un suggerimento.
non ho iniziato da molto con il perl, e già ho incontrato tremila
difficoltà!!!!!!!!!!
 Non sono neanche nuovo, della programmazione, però come ho gia detto è da
poco che programmo perl.
il problema è questo:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
@name = split(/\=/, $ENV{'QUERY_STRING'});
$name = @name [1];
$name = <STDIN>;
print "<html><head></head> <body>";
print "<h2><center>Benvenuto $name ! </center> </h2>";
quando eseguo questo codice mi da:
Benvenuto nome=Roberto+&submit=Ok 
nell'html c'è questo per il form:
<form action = "cgi-bin/
ciao.pl
" method = "post">
tenere presente che il resto della pagina me lo da perfettamente!
Il form, contiene solo un campo di testo che chiede il nome!
aiutatemi per favore.
grazie in anticipo.
Roberto.
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

 Roberto.
Ma lo devi fare per forza in questa maniera, usando il metodo POST e tutto
il resto?
Altrimenti per capire come catturare e processare i parametri passati ad
una pagina web puoi guardare qui:
http://cloud.prohosting.com/pigmauk/perl/repository.cgi?dir=network&file=www_login.cgi



http://cloud.prohosting.com/pigmauk/perl/repository.cgi?dir=network&file=www_login.cgi
il form lo sto facendo per l'home page e quindi non posso mettere uno
scrpt .cgi o .pl.
l'esempio che ho visto, se ho capito bene, è uno script che prende l'input
e crea una pagina.
a me serve un form (da chiamare index.html) che prende l'input e lo invia
allo script per una pagina personalizzata.
Se potete darmi un consiglio per risolvere la questione in un altro modo
(senza dover ricorrere, chiaramente, ad altri linguaggi di
programmazione.).
a proposito, qualcuno sa darmi un'indicazione per uno spazio web gratuito
che mi dia la possibilità di usare i cgi? quello che sto usando mi da un
sacco di problemi.
roberto.


Newsgroup: it.comp.lang.perl
Titolo: iniziare con il PERL

domandina da niente...dovendo operare su data base
(Access,principalmente) imparare il PERL potrebbe essere una buona
soluzione?E se si', mi date una dritta su come installare un
compilatore o qualcosa per lavorarci?
grazietutti
fabio

...


Newsgroup: it.comp.lang.perl
Titolo: sapere quante cifre compongono un intero

Salve.
Come da oggetto, volevo chiedervi se esiste un modo veloce e poco
dispendioso per sapere da quante cifre e' composto un intero.
Al momento uso una funzione tipo
sub cifreInIntero {
    my ($cifre, $intero)=(1, $_[0]);
    while ($intero>=10) {
        $intero/=10;
        $cifre++;
    }
    return $cifre;
}
pero', ecco... non mi piace ^^; Non esiste niente di piu' pratico?
-- 
Firma in costruzione


Che ne dici della funzione length?
$ perl -le '$_=123456789; print length $_'
9
ciao
gmax
-- 
  _  _ _  _
(_|| | |(_|><
  _|
http://gmax.oltrelinux.com

 9
O anche il vecchio logaritmo...
-- 
  dakkar
Newsgroup: it.comp.lang.perl
Titolo: convertire pl in exe

Ciao a tutti, volevo sapere quale tools è in grado di convertire i pl in
exe.
Convertendo questo non ci sarà bisogno di possedere le librerie perl,
giusto??
grazie, hola!!


sotto linux c`e` perlcc che converte il file in un eseguibile, forse
c`e` qualcosa di simile pure su windows

 ha scritto nel messaggio
news:3D16FC04...@napodano.com...

C'è un tool della ActiveState (
www.activestate.com
), ma mi pare non funzioni
sotto Win9x/ME.

sto impazzendo come per tutte le altre volte, corro subito li.....
grazie!!

 ha scritto nel messaggio
news:3d16edeb$0$222$4d4e...@read.news.it.uu.net...


 exe.
Il tool della active state funziona su Win NT+ anche se gli eseguibili
che genera vanno bene su qualsiasi piattaforma win32
Io mi trovo benissimo con perl2exe che non solo funziona su tutti i
win32, ma anche su Linux, freebsd ed altri *nix
http://www.indigostar.com/perl2exe.htm
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d

Newsgroup: it.comp.lang.perl
Titolo: Come costuire una pagina html che si aggiorna "dinamicamente"

Salve a tutti ... eccomi di nuovo con u quesito semplice ma dalla 
soluzione  .... non so'
dovrei scrivere una cgi che deve fare un'elaborazione complicata e 
quindi con tempi di risposta "lenti, a questo unto mi servire generare 
una pagina html che prima visualizza il classico "attendere elaborazione 
in corso" e che poi venga aggiornata autmaticamente con il risultato 
definitivo.
Avete dei suggerimenti ?
Grazie per la collaborazione
Saluti LAGO

 definitivo.
Prova a dare un occhio a questo thread su 
perlmonks.org
 :
http://www.perlmonks.org/index.pl?node_id=241983
In particolare c'è il riferimento a:
http://www.stonehenge.com/merlyn/LinuxMag/col39.html
Cercando sempre su perlmonks troverai di sicuro altri thread sull'argomento.

 Avete dei suggerimenti ?
Io avevo lo stesso problema e ho risolto direttamente con HTML senza
coinvolgere Perl.
<meta http-equiv='refresh' content='10; URL=whatever.html'>
 Raffaello
Newsgroup: it.comp.lang.perl
Titolo: Vostro parere su nostro problema

Cari ragazzi /e,
Avrei bisogno di un vostro parere a proposito del seguente problema:
Abbiamo creato due database con DBMan.
I due hanno funzionato bene per un certo periodo di tempo,
recentemente pero' e' impossibile agli utenti inserire i dati in uno
dei due DB.
Poiché i file di configurazione, cosi' come il cgi non e' stato piu'
toccato non riusciamo a capire cosa possa essere successo.
Il messaggio che il server  rimanda e' il seguente:
//////msg del server///////
The server encountered an internal error or misconfiguration and was
unable to complete your request.
Please contact the server administrator, <cut> and inform them of the
time the error occurred, and anything you might have done that may
have caused the error.
More information about this error may be available in the server error
log
//////fine msg del server/////////
Nel error log del sito si legge:
[Mon Oct  2 09:57:09 2000] [error] [client 212.216.120.30] Premature
end of script headers
Non so cosa diavolo fare!
Vi ringrazio in anticipo per eventuali suggerimenti,
Andrea Ray

 Non so cosa diavolo fare!
Lo script non funziona piu' e genera un messaggio di errore interno prima
degli header corretti.
Senza ulteriori dati, questo e' il massimo che si puo' dire.
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: Mail: Mailer

Dove posso trovare la documentazione sul modulo Mail:: Mailer di cui si
parla nel sito 
www.perl-it.org
 ?
GRAZIE

 si parla nel sito 
www.perl-it.org
 ?
 
http://search.cpan.org/search?dist=MailTools

http://search.cpan.org/doc/GBARR/MailTools-1.15/Mail/Mailer.pm
A proposito di 
www.perl-it.org
, in alto nel sito hanno scritto : "Practical
Extraction and Reporting Language", mentre Perl sta per "Practical
Extraction and Report Language".
Potrebbe sembrare quasi uguale, ma in un sito di Perl sbagliare il suo
acronimo mi pare quasi ironico.
Cmq, non vorrei sembrare uno che ama far solo scritiche negative: tra i siti
in italiano del Perl, e' sicuramente un buon punto di riferimento. (spero
che decidano di ampliarne i contenuti)
Alex
Pikachu ha scritto nel messaggio ...


Suvvia, però c'è da dire che è costante l'impegno nonché la presenza dei
perlmongers in questa NG
Anzi colgo l'occasione di ringraziarli!
Alex <Nom...@wow.boh> wrote in message
h6pq6.50069$Xj7.4...@news.infostrada.it...


 wrote in message
Xxoq6.49750$Xj7.4...@news.infostrada.it...


>tra i siti in italiano del Perl, e' sicuramente un buon punto di
riferimento.
Il mio era solo un appunto nell'attesa che correggano l'inesattezza.
Alex
P.S. non posso fare a meno di ringraziare anche io tutti coloro che
investono parte del loro tempo per aiutare gli altri fornendo loro materiale
!
Pikachu ha scritto nel messaggio ...


che decidano di ampliarne i contenuti)
L'idea e` questa, stiamo cercando di organizzare un piccola "redazione".
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> 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: COME FACCIO A SAPERE SE UN DOCUMENTO WORD E' LOCCATO ?

Ciao,
come faccio a sapere da PERL se il documento word che voglio aprire in
scrittura e' gia' loccato da un altro utente ?!
Grazie
Ciao!!!

scrittura e' gia' loccato da un altro utente ?!
Immagino che il metodo Open di Documents fallirà, anche se la
documentazione non è molto chiara (cosa che, chissà perché, non mi
sorprende). Eventuali messaggi a schermo dovrebbero (forsemagarichissà)
poter essere sopressi da $Application-{DisplayAlerts} = wdAlertNone.
In alternativa, puoi forse controllare la presentazione del file temporaneo
di lock. Non sono in grado di dire se sia altrattanto sicuro, anche se a
volte ho il sospetto che Word stesso non faccia molto di più.
Ciao.

In alternativa, puoi forse controllare la presentazione del file temporaneo
                                           ^^^^^^^^^^^^^
                                           presenza
Ciao.

non urlare!!
Newsgroup: it.comp.lang.perl
Titolo: Per esperti: spedizione email

Ciao a tutti,
secondo voi qual'è il modo più veloce, prestazionalmente parlando, per
spedire le email con uno script Perl?
Ciao.
--------------------------------
Inviato via 
http://usenet.libero.it

spedire le email con uno script Perl?
Non dipende tanto o solo da perl, quanto dal tipo di connessione, se hai un
server SMTP tuo o devi affidarti a quello del tuo ISP, se puoi dedicare una
(o piu`) macchine al solo inoltro ecc.
L'idea di fondo, naturalmente e`: riempire quanto piu` possibile la banda.
Con una connessione dial-up, si fa presto: spari tutto al server SMTP del
tuo ISP e sei a posto. Come lo fai non influisce granche'; giusto, per una
mailing list, puoi pensare di inviare un unico messaggio a piu` indirizzi
(quanti ne consente il tuo ISP). Bulkmail credo faccia un discreto lavoro in
questo senso.
Con una banda piu` larga, e un server SMTP proprio, si possono pensare
diverse strategie.
Comunque, sono cose che hanno un senso per grandi volumi di traffico.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Re: script in perl - aiuto

 [...]
Se si tratta solo di questo, allora lascia perdere gli SMS:
  * 
http://www.perlmonks.org/index.pl?node_id=72270
E visto che il software non si butta mai via:
  * 
http://hop.perl.plover.com/cover.html
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

 magare prendere un bel 7 :-))))
ROTFL

ciao a tutti vorrei scrivere uno script in perl per inviare sms dal sito
internet 
www.tim.it
, naturalmente non so niente di programmazione in
perl :-( per questo ho letto e googlato molto. dopo un mesetto non sono
ancora riuscito a far funzionare il tutto. Per caso qualcuno ha scritto un
piccolo script di questo tipo cosě posso vedere dove sbaglio?


Raffaello Galli wrote:

ROTFL
Letteralmente: Rolling on the floor laughing, mi sto rotolando sul pavimento
per le risate
Acronimo utilizzato in chat e forum per esprimere estrema ilarità.
Si veda anche LOL.
LOL
Letteralmente: Laughing out Loud, ridendo sonoramente
Acronimo utilizzato in chat e forum per comunicare ilarità.
ora siediti, rilassiti, pensa ad un qualcosa che mi aiuti a programmare in
qualcosa che non sia basic, cobol, pascal...

 qualcosa che non sia basic, cobol, pascal...
Finora che strade hai battuto?
Nel senso, che metodi hai provato?
Ciao,
-- 
.           .  | "...And I am dumb to tell the hanging man
| , ,-. ,-. |  | How of my clay is made the hangman's lime."
|<  |   ,-| |  |                            -- Dylan Thomas
' ` '   `-^ `' |<uggc://jjj.gurqvenpfrn.bet>

 Zi' badrone.
dai scherzi a parti se ti posto lo script che ho fatto me lo puoi
correggere?

 Ciao,
ok li provo subito

 Ciao,
ho seguito 2 script uno è questo:
http://digilander.libero.it/bash/timsms.pl
  ma non va (ho fatto delle
modifiche agli indirizzi richiesti per il login se ho capito bene
l'indirizzo a cui si rivolge il POST)
e l'altro è
http://www.siforge.org/articles/2005/02/17-perl_web_automation.html
 e
http://www.siforge.org/articles/2005/03/18-perl_web_automation2.html
per capirne un pò a livello teorico. sono gli unici riferimenti che ho
trovato..



Zi' badrone.

 
lo sapevo che con il perl si acchiappa...ma quella degli sms era una cosa da
poter fare a scuola, l' Higher-Order Perl lo vedo molto difficile

 
http://www.siforge.org/articles/2005/03/18-perl_web_automation2.html
Questi due spiegano abbastanza bene quel che devi fare.
Consiglio appunto di usare HTTP::Proxy, HTTP::Recorder e WWW::Mechanize.
Copi cosě com'č lo scriptino del secondo articolo per registrare le
azioni che compi (i vari GET e POST) e lo usi su di un sito che permette
di inviare sms.
Ciao,

Newsgroup: it.comp.lang.perl
Titolo: come si crea una variabile globale dentro un modulo?

Il problema che ho in perl č questo
Ho un file di main che accede ad una libreria gia fatta (la libreria č
Tk::Dirtree)
In questa libreria tutte le variabili sono dichiarate locali invece mi
servirebbe di creare una variabile locale da poter poi usare nel main
se  creo una variabile globale dentro alla libreria Dirtree.pm e lancio il
mio programma  (ad esempio $pippo) mi da il seguente errore
$pippo require explicit package
come si crea una variabile globale dentro un modulo?


Devi dichiarare la variabile:
 con perl 5.005 o precedenti versioni:
  use vars qw( $pippo );
 con perl 5.6:
  our( $pippo );
 
All'esterno del modulo, o comunque in package differenti, aggiungi il
qualificatore di namespace:
 $Tk::Dirtree::pippo
oppure (sconsigliato) aggiungi $pippo all'@EXPORT di Tk::Dirtree.
Max