mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: E-mail e CGI

 sul server, per poter giochicchiare col server di posta.
Metti un file '.forward' (scritto proprio così) nella home di un utente,
che poi sarà l'email del programma, contentente
"|/home/utente/
pippo.pl
"
pippo.pl
 può essere
#!/usr/bin/perl
@mail = <STDIN>;
open(FILE, ">/tmp/pippomail");
print FILE @mail;
close(FILE);
Ciao,
Valerio

 
Grazie, ma temo che il .forward non funzionera', visto che dovrei
metterlo nella root del mio spazio web mentre invece gli "utenti" email
li' sopra sono tutti relays gestiti dal server. Comunque una prova la
faccio :-)
Ciao,
Alfio

 faccio :-)
Non puoi accedere alla tua home?
Valerio




 ...con i .redirect non si puņ fare?
AFAIK si puņ.
Valerio

 messo sempre delle condizioni x farli uscire ... la mia era pura
curiosità!
Quello che intendevo è che un CGI è un programma avviato e chiuso
dal server web. Come può non uscire da solo?
Domanda: qualcuno ha mai studiato gli effetti di un codice simile?
(E metto Xpost e F/U su it.comp.lang.perl)
----
#!/usr/bin/perl
foreach (%SIG) {
    $SIG($_) = \&eheh;
}
while () {}
sub eheh { return; }
----
Se lancio una cosa simile poi come la killo?
Valerio

 sub eheh { return; }
  I sistemi operativi seri (e.g., UNIX) non consentono la ridefinizione
di handler per SIGKILL. Quindi, un normale
	kill -9 <pid>
funziona. 
  Per altri SO (e.g., Windows) non e` necessario inventare contorsioni
di questo genere per ottenere crash ed impiantamenti. ;)
	Alla prossima,
		Marco

Se lancio una cosa simile poi come la killo?
kill -9 PID
Da "Programming Perl":
"Some signals can be neither trapped nor ignored, such as the KILL (segnale 9)
and STOP signals."
-- 
Saluti,
Giancarlo

 and STOP signals."
Thanks.
Valerio

 Valerio
Ciao, Ezio

 dal server web. Come può non uscire da solo?
Errore.... un CGI è un programma lanciato dal server web... ma non viene
chiuso dal server web... viene chiuso quando esegue l'istruzione exit, o
raggiunge la "fine" dello script... altrimenti rimane in esecuzione "eterna"
fino a quando qualche evento non lo forza a terminare....
Voglio solo aggiungere però che lanciando un simile script, sul server viene
caricata un'immagine dell'interprete, e non credo che l'ISP sia
daccordissimo nel ciucciargli 1 mega a botta ogni volta che un script del
genere viene lanciato.
--
Antonio Zerbinati
<WebMaster di Vedo.it (
www.vedo.it
)(in attivazione)>

Mi sono tolto il dubbio e ho provato sul mio server...
Beh... il mio IIS 5.0 ha registrato un evento caruccio:
Tipo evento: Errore
Origine evento: W3SVC
Categoria evento: Nessuno
ID evento: 16
Data:  16/06/2000
Ora:  10.20.34
Utente:  N/D
Computer: ZERBINO
Descrizione:
Lo script lanciato dall'URL '/scripts/
test.pl
' con parametri '' non ha
risposto nel tempo limite configurato. Lo script è stato annullato.
Per ulteriori informazioni su questo messaggio, visitare il sito Internet
del Servizio Supporto Tecnico Microsoft all'indirizzo:
http://www.microsoft.com/contentredirect.asp
.
Ecco la fine degli script "eterni"! Indi -> pensare altra soluzione!! ;)

Newsgroup: it.comp.lang.perl
Titolo: Perl + Lotus Notes

Sapete se c'e' modo di manipolare dei data base Notes su un server 
Domino attraverso script in Perl.
L'ambiente e' Linux con Lotus Domino Server (sia il server Domino che 
gli script devono girare su Linux).
Attualmente leggo le informazioni che mi servono da delle pagine HTML 
pubblicate dal Domino, e gli posto (tramite un  POST, ovvio) le 
modifiche ai DB sempre via HTML (LWP rulez).
Ma a me questo non piace, vorrei mettere le mani sui DB.
Il motivo e' che se mi cambiano un po' troppo le pagine poi devo 
rimettere mano agli script....
Qualcuno ha esperienza a riguardo e sa indicarmi una strada?
--
Master:"Conan, what is best in life?" 
Conan:"To crush your enemies, see them driven before you,
and to hear the lamentations of their women!

 Domino attraverso script in Perl.
Sparo:
ODBC (driver Lotus + DBD::ODBC), Corba?
-- 
$_=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: creazione moduli perl...

Ho uno script che viene lanciato "N" volte da diverse applicazioni
attualmente copio questo script dento le varie applicazioni.
Quello che vorrei fare è "RICHIAMARE" questo script in qualche modo
all'interno di un'altro script  ( come se fosse un "modulo" perl ... )
Avete qualche consiglio in merito ???
grazie

 perldoc -tf use (a proposito di "use lib")
Grazie 
Ho usato il "do" è FUNZIONA. IL PROBLEMA è che 
finchè lavoro in locale con il webserver del mio PC tutto funziona alla
perfezione
Ma quando sposto tutto sul SERVER il mio script "NON ESEGUE" il do ! 
Qualcuno di voi sa come fare ???????
grazie infinite per l'aiuto SONO ALLA DISPERAZIONE. Non so cosa
sbaglio...

 non viene visto.
I due script si trovano nella stessa dir.
Ho riscontrato che se "lancio" lo script da una finestra prima di
eseguire
il CGI che lancia il do 'nomescript'; 
Tutto funziona bene.
Sapreste dirmi il motivo ???
Vorrei evitare di creare "cron" inutili ...
Grazie

 Sapreste dirmi il motivo ???
Se do non riesce a trovare o a leggere il file restituisce undef e
imposta $!. Hai fatto stampare $! ? Se sě, qual č il messagio d'errore?
Max

 cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: scrittura su file

Ho inserito in uno script perl la seguente procedura:
open (TEMPORANEO, '>data/temp.txt');
print TEMPORANEO "testo di prova\n";
close TEMPORANEO;
E non riesce a modificare il file (senza dare messaggi di errore).
Da cosa può dipendere? Forse dai servers di Aruba (il mio è
webs2.aruba.it
)? (ho letto su questo NG la settimana scorsa che alcuni
servers di Aruba non permettono la scrittura su file).
Mi confermate che la sintassi è corretta?

 E non riesce a modificare il file (senza dare messaggi di errore).
Non ti da i messaggi di errore perche' non gli chiedi i messaggi di errore.
Prova ad usare 
 open (.....) or die "Non riesco ad aprire data/temp.txt : $!";
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 open (.....) or die "Non riesco ad aprire data/temp.txt : $!";
Ho provato:
open (TEMPORANEO, '>data/temp.txt') or die "Non riesco ad aprire
data/temp.txt : $!";
print TEMPORANEO "testo di prova\n";
close TEMPORANEO;
Ma non funziona lo stesso: lo script si ferma in quel punto ma non mi
dice niente. Ho provato anche a togliere il file temp.txt ma non
cambia niente, neanche così dà messaggi di errore

 cambia niente, neanche così dà messaggi di errore
Si tratta per caso di un CGI ????? nel qual caso posta tutto lo script.
Sicuro di avere i permessi di scrittura ?????????
Controllato in quale directory finisci per scrivere ?????
-- 
Ciao, Maurizio.
@@@@@@@
Neo:      "I know PERL"
Morpheus: "Show ME !!"

Controllato in quale directory finisci per scrivere ?????
in che senso? Nella directory data
P.S. Una parte della procedura che sto creando serve per togliere i
"\n" da una stringa e sostituirli con " ". Esiste una procedura rapida
per fare ciò?

Controllato in quale directory finisci per scrivere ?????
Ho fatto un'altra prova: ho inserito nello script la riga
@command=`echo "$new_line">>data/temp.txt`;
e come risultato ho ottenuto "Access is denied."
Sembra proprio che sia il sistema operativo che nega l'accesso.

 per fare ciň?
tr/\n/ /


tr/\n/ /
Grazie!
Prima di leggere la tua risposta avevo trovato "~s/\n/ /g" ed ha funzionato.
Che cosa cambia tra le 2 procedure (la tua non l'ho ancora provata)?
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Era un problema di permessi: ho scritto ad Aruba, e (non proprio
immediatamente, purtroppo) me li hanno cambiati manualmente: ora
funziona tutto.
Il loro webserver utilizza le estensioni di FrontPage, quindi un
povero disgraziato come me che utilizza il perl e si connette tramite
ftp non ha speranza di toccare i permessi.
Ora devo stare attento a non cancellare la cartella public....




 wrote in message
sygQ5.57884$BF.20...@news.infostrada.it...

Newsgroup: it.comp.lang.perl
Titolo: chiamare uno script perl esterno

ho diversi files contenenti scripts in perl.
fanno tutti parte di un progetto
per evitare di avere un unico enorme file ho scomposto il problema e
creato diversi scripts, che tra l'altro possono essere usati anche da
altri progetti.
Domanda: posso far partire uno scripts perl da dentro di un altro
script?
la mia soluzione e' stata la seguente:
system("perl 
pippo.pl
 param1 param2 param3");
per funzionare funziona, ma non so se ha svantaggi a me ancora ignoti, o
comunque se esistono soluzioni piu' eleganti.
anche in questo caso: WinNT, activstate
grazie per la consulenza, antonio

system("perl 
pippo.pl
 param1 param2 param3");
Cerca il comando "do"....
------
bale...@dada.it
 
http://zap.to/balestra
  ICQ#:14303012
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "

esegue un altro script perl, ma non riesco a passargli dei parametri.
ho cercato di leggere la documentazione, ma parla di cose che proprio
non capisco (sono un principiante :-)
eventualmente: e' possibile accedere ad una subroutine di un altro
programma? in questo caso mdoificherei alcune parti e son salvo.
Chiaramente devo poter passare dei parametri
chiedo troppo ? (o chiedo male?)
antonio

-- 
ASTAT - Istituto provinciale di statistica
viale Duca D'Aosta, 59
I - 39100 Bolzano
tel: 0471/994045  fax: 0471/994008
http://www.provinz.bz.it/astat

Chiaramente devo poter passare dei parametri
Ovvio.


 
bale...@dada.it
 
http://zap.to/balestra
  ICQ#:14303012

 # "perl 
pgm.pl
 parm parm2 parm3".
Questo e' un modo *barbaro*, ma funziona....
Tu i comandi li leggi da @ARGV, no? Bene, prima di lanciare il secondo
script con il 'do' (che in pratica lo esegue come se facesse parte
dello stesso sorgente nel punto in cui lo chiami, *mantenendo* lo
scope delle variabili *attuale*) imposti @ARGV.
Esempio...
####### file 
uno.pl
@ARGV= qw( ciao mamma );
do '
due.pl
';
###### file 
due.pl
print "\n".join(' ',@ARGV)."\n";
Poi lo esegui con 'perl 
uno.pl
', e il risultato...
Ma, ripeto, questo e' un modo *barbaro*. Meglio sfruttarne le
subroutine con un require o con uno use.
------
bale...@dada.it
 
http://zap.to/balestra
  ICQ#:14303012
" Ora mai che i baci tuoi piu' non mi sazian







Newsgroup: it.comp.lang.perl
Titolo: new entry

Salve a tutti, sono nuowo del newsgroup ma avrei subito un parere da chiedervi :-( per gestire l aspedizione di circa 11.000 mail per l anews letter di un portale, cosa credete che dia maggiori performance....
soluzione  1
use Mail::Mailer;
$mailer = Mail::Mailer->new("sendmail");
$mailer->open({ From    => $from_address,
                To      => $to_address,
                Subject => $subject,
              })
    or die "Can't open: $!\n";
print $mailer $body;
$mailer->close();
o 
soluzione 2:
open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq")
                    or die "Can't fork for sendmail: $!\n";
print SENDMAIL <<"EOF";
From: User Originating Mail <me\@host>
To: Final Destination <you\@otherhost>
Subject: A relevant subject line
Body of the message goes here, in as many lines as you like.
EOF
close(SENDMAIL)     or warn "sendmail didn't close nicely";
Io credo che l' utilizzo del modulo dovrebbe rendere la cosa piu' snella e veloce, cosa ne pensate?
Un grande ciao a tutti
Andrea
------------------------------------------
Posted via web GlobalNews
www.globalnews.it
------------------------------------------



 letter di un portale, cosa credete che dia maggiori performance....
tempo fa feci una cosa del genere, lo scriptino si chiama spammer, lo trovi 
su 
http://www.pixzone.com/dev/
se hai banda e server smtp sufficienti e' abbastanza veloce, usa n processi 
concorrenti per collegarsi a uno o piu' server smtp in rotazionee mandare 
le mail.
-- 
/federico

 ha scritto:

yes, grazie mille, lo trovo molto interessante e un ottimo spunto :-)
complimenti per il sito, e' molto carino
ciao
Ubi
Newsgroup: it.comp.lang.perl
Titolo: Sapreste farlo?

...in Python 2.3, appena uscito, si puo' fare questa cosa:
    	"hello"[::-1]
returns
    	"olleh"
e in Perl come si fa? Nella maniera piu' semplice possibile?

 e in Perl come si fa? Nella maniera piu' semplice possibile?
   $a = reverse 'hello';
   print $a;
ciao,
S.

Il 31/07/03 alle 12.50.00, Guru03 scrisse:

<CODE>
  print scalar reverse "hello";
</CODE>
E penso che si possa fare da parecchie versioni fa.
Cmq non è bello dire: "il linguaggio x fa questo e in Perl come si fa?",
perchè puzza da flame. Ogni linguaggio ha le proprie caratteristiche,
interessanti o meno. ;)
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 e in Perl come si fa? Nella maniera piu' semplice possibile?
Comunque, in Perl da circa un po' d'annetti:
	scalar(reverse('hello'));
:-)
	- Enrico

     	"hello"[::-1]
Sintassi intuitiva direi ... poi dicono del Perl ...
 Raffaello

Sintassi intuitiva direi ... poi dicono del Perl ...
Forse anche sě. Immagino sia un qualche genere di slice. Sarebbe come, in
perl, scrivere:
   @array = split(//, 'hello');
   print @array[-4..0];
Con una spolveratina di zucchero sintattico per definire gli estremi,
evitando di dover scrivere cose come:
 
   print @array[-$#array..0];
L'unica differenza sostanziale č che in perl le stringhe non sono array, e
l'assenza del concetto di "step". Francamente, non ho mai sofferto
particolarmente per nessuna delle due cose.
Ciao.

 sofferto particolarmente per nessuna delle due cose.
Permesso che non voglio generare ALCUN tipo di flame-war (tipo "W Perl, 
abbasso Python"), volevo semplicemente sapere qual'era il metodo piu' corto 
in Perl... tutto qui! :)

 (tipo "W Perl, abbasso Python")
A dir la verità sembrava volessi dire il contrario. :)


 A dir la verità sembrava volessi dire il contrario. :)
Basta fare un benchmarking delle espressioni regolari. E poi ridi.
 Raffaello

in Perl... tutto qui! :)
Il metodo più corto è, come è stato detto da altri, la funzione reverse.
La cosa sintatticamente più prossima sono invece gli slice. In perl non
possono essere usati direttamente per invertire una stringa, perché una
stringa non è un array. Inoltre, in perl non è possibile definire un
incremento arbitrario per l'operatore range. Per il resto, anche
graficamente, la scrittura è molto simile.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: CGI e script di shell (Linux)

Salve a tutti appassionati di Perl come me,
ho un problema: dal mio CGI dovrei lanciare uno script di shell,
č possibile?
Se non lo č, quale alternativa ho?
Ciao e grazie per l'attenzione.
Dany!

 
si puo'.
perldoc -f system
perldoc -f open (e guarda la forma open "/my/script |" con pipe alla fine)

 Se non lo č, quale alternativa ho?
Ma porca puttana!
ma c'e' qualcuno che si degni di leggere... non dico tanto, ma gli ultimi 10
post prima di fare domande idiote?
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/

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

Ciao,
come posso fare convivere la " print "Content-type: text/html \n\n"; " e la
use CGI;
      $query = new CGI;  visto che assieme la redirect non funziona.
L'unico modo è fare una subroutine per il redirect e mettere all'interno
della sub la use CGI e la $query?
Scusate per la domanda!!
2- esiste un comando simeile a quello java WINDOW.OPEN per aprire una nuova
finestra in perl.
Grazie e buona giornata.
Nicola :)

 finestra in perl.
perl non sa nulla di finestre. Non esistono le finestre in perl, cosi' come
non esistono in C o in C++. E poi Window.Open mi sa tanto di javascript, che
non e' java e non c'entra assolutamente nulla con java.
Pero' se stai parlando di programmazione CGI (e questo non e' ovvio), allora 
puoi mettere nell'header HTTP di risposta la finestra di target con 
"Window-Target: Pippo".
Naturalmente con CGI.pm questo e' possibile con una delle tante opzioni
della funzione header(). Alla pagina di manuale corrispondente tutti i
dettagli.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote in message
90nkp0$2qq$1...@menelao.polito.it...


  Allora sempliocemente se uso la redirect non mi funziona il contet type?
1) per favore quota i messaggi umanamente. La tua semplice riga di testo 
   era praticamente illeggibile attaccata alle 60 righe di quoting 
   superfluo dal mio messaggio precedente
2) Se usi il redirect NON TI SERVE il content type.

Newsgroup: it.comp.lang.perl
Titolo: ActivePerl 618

Un saluto a tutti... spero mi aiuterete con una informazione!
In un pc con win98 ho scaricato e installato ActivePerl 618.
L'installazione è partita e sembra andata a buon fine, malgrado tutto non
c'è traccia del programma e non so se è normale! (nessuna cartella creata,
nessuna icona!)
Ho provato con un comando di prova come suggerito da un manuale, questo:
perl -v
Ho anche un dubbio non da poco: i comandi vanno dati anche in win da
telnet??? oppure da dos? se da dos, in una finestra o bisogna avviare in
dos???
Come capite le informazioni che mi servono sono molte... un ringraziamento
in anticipo!

 ha scritto nel messaggio
news:wbmK5.38675$3K3.1...@news.infostrada.it...

Devi controllare
C:\Perl
non ti crea alcuna icona
perl -v funziona su linux
Se usi telnet ti colleghi ad un server per cui dipende dal suo SO
da dos si possono mandare in esecuzione degli script:
L'interprete vero e proprio è perl.exe che si trova in
C:\Perl\bin\perl.exe
Facciamo l'esempio che il tuo script è in:
C:\
scrip.pl
Allora con il prompt di dos devi andare:
C:\Perl\bin>perl ../../
script.pl
in pratica fai partire l'interprete dalla sua directiry e gli dici dove
trova il file 
script.pl
Spero di essere stato chiaro.
--
Marco Allegretti
shi...@katamail.com
http://www.shishii.com

Grazie, molto chiaro! ma allora i miei dubbi erano fondati!!!
Succede questo: io installo Perl (active Perl 618 scaricato dal sito
omonimo) tramite il file "InstMsi.exe", parte l'installazione e mi comunica
"windows installer installato"; io controllo ma non c'č nessuna nuova
cartella.
Che dire???

 ha scritto nel messaggio
news:1yiL5.56291$3K3.1...@news.infostrada.it...

Che stai facendo una grande confusione.
Tu hai scaricato ed istallato l'aggiornamento di "windows installer", cioč
il programma di istallazione di windows, e che hai trovato al link:
http://www.activestate.com/download/contrib/Microsoft/9x/InstMsi.exe
 Cosa per altro necessaria per potere istallare l'interprete di perl, il
quale a sua volta lo trovi al link:
http://www.activestate.com/download/ActivePerl/Windows/5.6/ActivePerl-5.6.0
.
618-MSWin32-x86-multi-thread.msi
Quindi tu l'interprete devi ancora scaricarlo ed istallarlo!
Ciao.


 Tu hai scaricato ed istallato l'aggiornamento di "windows installer", cioè

Newsgroup: it.comp.lang.perl
Titolo: ***attachment***

Marco,
devo scrivere un codice perl per mandare un attachment usando sendmail
di unix:possibile che mi devo caricare dei moduli perl e non esiste una
istruzione di sendmail che fa gią questo lavoro??
Grazie!!!

 non esiste una istruzione di sendmail che fa già questo lavoro??
  In realta`, non si tratta di un'istruzione di sendmail(8) quanto della
specifica per il formato dei messaggi SMTP (cfr.: RFC822). Vedi se
questa puo` essere una base per la soluzione del tuo problema.
<code>
#
# sendmsg ( $from, $tolist, $subject, $body, $fatt )
#
#  $from    Who is sending the message;
#  $tolist  Addresses as a string of semi-colon separated items;
#  $subject Message subject;
#  $body    Message text;
#  $fatt    Path of the file to be attached.
#
package SendMsg;
use Exporter ();
@ISA=qw(Exporter);
@EXPORT=qw(sendmsg);
sub sendmsg {
  my ($from,$tolist,$subject,$body,$fatt)=@_;
  my (@tos);
  @tos=split /;/,$tolist;
  open MAIL,"|/usr/lib/sendmail -oi -t -odq -f$from" or return 1;
  print MAIL "From: $from\n";
  foreach $to (@tos) { print MAIL "To: $to\n" }
  print MAIL "Subject: $subject\n";
  if ($fatt) {
    print MAIL "MIME-Version: 1.0\n";
    print MAIL "Content-Type: multipart/mixed; boundary=\"8=--\"\n";
    print MAIL "\n";
    print MAIL "--8=--\n";
    print MAIL "\n";
    print MAIL "$body\n";
    print MAIL "\n";
    print MAIL "--8=--\n";
    print MAIL "Content-Type: text/plain; charset=us-ascii\n";
    print MAIL "Content-Disposition: attachment; filename=\"$fatt\"\n";
    print MAIL "\n";
 
    if (open FATT,"<$fatt") {
      while (<FATT>) { print MAIL }
      close FATT;
    }
    else {
      print MAIL "UNABLE TO OPEN THE GIVEN ATTACHED FILE: $fatt\n";
      print MAIL "System error: $!\n"
    }
 
    print MAIL "\n";
    print MAIL "\n";
    print MAIL "--8=----\n"
  }
  else {
    print MAIL $body
  }
 
  close MAIL;
 
  return 0
}
1;
</code>
	Alla prossima,
		Marco

 ICQ# 33538863
Undergraduate Student of Computer Science at University of Bologna, Italy
SysAdm of 
verdicchio.students.cs.unibo.it
 (130.136.3.134)
	"Information wants to be Open"

 per poi manipolarlo, con quale modulo si fa una cosa del genere ?
 
http://search.cpan.org/search?mode=module&query=mime
 
http://search.cpan.org/search?dist=MIME-tools
 
http://search.cpan.org/doc/ERYQ/MIME-tools-5.316/lib/MIME/Tools.pm



Newsgroup: it.comp.lang.perl
Titolo: Scrivere file EXCEL con Unix (Perl)

Ciao a tutti,
volevo chiedere a qualche luminare di Unix / Perl un consiglio.
Io dovrei da shell Unix leggere dei dati da un DataBase Oracle e Inserire i 
dati letti in un template excel.
Qualcuno di voi mi sa consigliare una strada, pensavo a perl ma cosa devo 
installare esiste qualche modulo che mi permette di scrivere quello che 
voglio nelle celle di un foglio excel?
Avete qualche link con esempi e altro?
Qualcuno di voi è riuscito a fare qualcosa del genere?
Grazie Mille

 voglio nelle celle di un foglio excel?
Spreadsheet::WriteExcel
<
http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel-2.17/lib/Sprea
dsheet/WriteExcel.pm>
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

 dsheet/WriteExcel.pm>
Mi associo al consiglio.
Lo uso da un bel po' e mi trovo molto bene con quel modulo.

Newsgroup: it.comp.lang.perl
Titolo: Info Collegamento

Come posso fare da uno script perl se un if è ok a reinviare al member di un
sito?
Mi spiego meglio
if  ( $value eq 'OK' ) {
    #----  rinvio ad un url predefinito
    # url di destinazione 
http://www.sito.it/member/
}
Spero di essere stato sufficentemente chiaro
Ciao Grazie per ora
Alessandro

 un sito?
se ho capito bene vuoi fare un HTTP redirect:
http://www.perldoc.com/perl5.6.1/lib/CGI.html#GENERATING-A-REDIRECTION-HEADER
-- 
~ Federico Feroldi
yahoo! engineer team

 
if  ( $value eq 'OK' ) {
     print "Location: 
http://www.sito.it/member/\n\n
";
     exit 0;   # (Se si vuole che l'esecuzione termini qui)
}
Buon lavoro
Gabriele

Newsgroup: it.comp.lang.perl
Titolo: datemi un consiglio

Salve a tutti......
ho bisogno di installare dei files in perl ma il mio fornitore di spazio
 9net )
non mi permette di aggiungere files perl "esterni" ( alla faccia della dir
cgi-bin personale !!)
mi potete perfavore  consigliare una societa che offra hosting ( a prezzi
umani )
che mi permetta una certa liberta' ?? Magari la stessa societa' usata da voi
;-)
E un'altra cosa........c'e' qualche anima pia che dietro compenso "minimo"
;-) mi possa dare una mano ad installare uno script di scambio banner ??
Saluti

 che mi permetta una certa liberta' ?? Magari la stessa societa' usata da voi
www.prohosting.com
 offre illimitato spazio web gratuito, senza pretendere
necessariamente che tutte le tue pagine mostrino delle pubblicita` da loro
imposte (chiedono _come cortesia_ di mostrare il loro banner, ma non te
lo impongono), e _con_ la possibilita` di istallare i tuoi script CGI in Perl .
Non sono sicuro della qualita` del servizio che offrono gratuitamente,
ne` di quali siano i loro prezzi per i vari servizi di hosting (alcuni sono
certamente molto interessanti, ad esempio avere il tuo dominio
www.qualchecosa.com
 che vive in realta` sulle loro macchine mi pare 
costi solo US$70 per due anni), ma vale sicuramente la pena di
approfondire.  Io per ora ho aperto un account presso di loro, anche
se ancora non ci ho messo nulla (spero di convincerli a supportare
anche il Python...:-).
Alex
Newsgroup: it.comp.lang.perl
Titolo: ARRAY(0x1874c54)

Salve,
      sto usando il modulo MP3::Info per ottenere info sui files mp3
ad esempio per ottenere il nome dell'artista mi basta fare:
use MP3::Info;
$mp3 = new MP3::Info 'my_file.mp3';
$artist = $mp3->artist || '-';
casomai se non c'è un nome artista mi ritorna il trattino "-"
purtroppo certe volte non mi esce fuori ne il nome dell'artista ne il 
trattino ma questa scomoda stringa ARRAY(0x1874c54) ... cosa ci faccio? 
io vorrei fare in modo che almeno venga sostituita dal trattino "-"
c'è un modo?
Grazie mille!

 wrote:

ho provato ad usare data dumper e ho scoperto che alcuni valori erano a 
sua volta array ... che stupido che sono ... ora come faccio a prendere 
solo il primo valore di questi array oppure come faccio a controllare se 
il valore che mi ritorna $mp3->artist è un array e a sua volta prenderne 
solo il primo valore?
grazie

 grazie
perldoc -f ref
ref se lo scalare e' un reference, ti dice in modo letterale a cosa.
Ciao
Roberto.
-- 
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: array di stringhe

Ho bisogno dell'aiuto di qualche anima pia che mi aiuti a risolvere un
piccolo grosso problemino. In un file txt ho registrato dei dati nel mdo
seguente
mario rossi§si§no§no§si
mauro bianchi§si§no§si§no
ecc.
In pratica ogni riga è composta da un nome seguito da dei si o dei no a
seconda che la persona abbia o meno dei requisiti.
Io leggo questo file col while(<STDIN>) e analizzo i file con
($nome,$a,$b,$c;$d) = split (/§/,$_,5);
è possibile eseguire qualcosa tipo
$automobile[$nome]=$a;
$moto[$nome]=$b;
$camion[$nome]=$c;
$autocarro[$nome]=$d;
???
Il compilatore non mi accetta (non è che ci speracchi molto degli indici non
numerici), solo che a me serve proprio questo. Poichè nel perl non esistono
le struct del C come faccio?
Sarò molto grato a chi riuscirà a darmi una mano.
Purtroppo so programmare  in perl da poco e probabilmente questa mia domanda
non è neanche difficile ma io ho perso già una settimana dietro a questo
problema.
Ciao
Andrea

 le struct del C come faccio?
In perl l'idea di struct/class e' diversa. L'idea e' che si usa un
hash al posto della struct, con il risultato che di fatto non devi
"dichiarare" la struttura: ci puoi mettere quello che ti pare quando
vuoi (il che non sempre e' un bene... :)
Nel tuo caso potresti complicare le cose facendo un hash di hash, in
modo da poter rispondere alla domanda: $nome possiede una automobile?
con un comando del tipo:
$possiede{$nome}->{'automobile'}
Che ti dira' 'si' o 'no'.
Una cosa del genere la fai con:
$possiede{$nome} = { 'automobile' => $a,
                     'moto'       => $b,
                     'camion'     => $c,
                     'autocarro'  => $d };
Pero' prima di metterti a fare roba che contiene roba devi studiarti
come funzionano le reference, altrimenti non ne esci (vabbe', un
cut'n'paste del mio esempio lo puoi sempre fare.... :)
Inoltre non e' affatto detto che questo sia il modo piu' comodo,
perche' ad esempio per sapere quanti hanno una automobile non e'
ovvio.
Ciao,
Alberto
-- 
Alberto BARSELLA
PGP fingerprint = 13 3F 22 D2 0B 0A D3 25  F1 89 FE B5 82 AD 75 2A
** Beliefs are dangerous. Beliefs allow the mind to stop functioning.
A non-functioning mind is clinically dead.  Believe in nothing... **

Grazie per la risposta, ho capito qual'era il problema e perchè non
funzionava, tutto per colpa delle parentesi errate.
Un ringraziamento anche a Barsella.
--
Ciao
Andrea
------------------------------------------------------------------------
Redattore di Ludus (
http://www.ludus.it
)
Recensioni, Trucchi, Soluzioni,
Patch e News per PC e PSX
------------------------------------------------------------------------
Newsgroup: it.comp.lang.perl
Titolo: Tutorial e corsi in italiano

E' disponibile un'area di manuali e tutorial in italiano.
Troverete informazioni ed esempi riguardo:
installazione di webserver in locale
impostazione delle files permissions
uso dei comandi SSI
tecniche di promozione con i meta tags
L'indirizzo è 
http://www.ikaro.com/training
Ciao,
Daniele Di Gregorio
--
----------------------------------
   * IKARO net communications *
 
http://www.ikaro.com
Virtual Hosting & Tech. resources
----------------------------------

 tecniche di promozione con i meta tags
Complimenti per la scelta del newsgroup... se anche il sito è di questo
livello...
-julio di egidio
ju...@webzone.it
Newsgroup: it.comp.lang.perl
Titolo: leggere valori binari

Inanzitutto scusatemi se questo msg fosse OT (ma non credo)
Ho inserito un immagine all'interno di un database Mysql,
per prima cosa ho letto il filehandle generato per l'immagine e quindi ho
eseguito un insert sul database.
I dati sono stati inseriti correttamente, però in fase di acquisizione dei
dati ho il problema che i dati relativi all'immagine vengono rappresentati
nella loro forma binaria.
per esempio leggendo i dati dell'immagine dal database ed immettendoli nella
varaibile $img,
un print di essa mi restituisce quant segue:
GIF89a' ³ÔÐÈÞÞÞÆÆÆoÿÿcoÿ1cÿo|go¾âÞÿ  ¹- ,'  ø ÈI«½8ëÍíù`(Z"w hª®ìzl§
ÏtmÏÁ«ÅBëÿ Ì)Ð   È¤Ò  bx  K:­î^Ñ¥vÙ¼ «`.ô*Ýs'(r4,¶^³gs FªÛAt ~ C þ?  
?.??NB    Z  Z"   -~  ?O< " '  .??o O  Z  -T- 
¨ z.)¯¯?s?s·  ¹T(¼¯s¿.Á&¹º È° ³´¶0ÏÐÒ¦^ØOÔ³ÇÈÕ´ÂÃÙÚÈÜ×;zä â¼ä>ÞÜ ñ "§Î{¡  
|8+@° A,(  
come posso fare per rappresentare l'immagine nel suo aspetto migliore? :-)
CIAO CIAO A TUTTI!!!!
Claudio

come posso fare per rappresentare l'immagine nel suo aspetto migliore? :-)
Non ti piace la forma binaria? ;-) Immagino che quello che tu vuoi fare e`
visualizzare l'immagine in una pagina HTML, naturalmente se la "spari
fuori" con print ti viene il risultato da te indicato. Nell'HTML devi mettere:
<img src="loadimg.cgi">
Il loadimg.cgi estrae l'immagine da DB e la manda allo standard output con
un semplice print(). Ricordati pero` di impostare il Content-type a
image/gif anziche' text/html.
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: OSX sendmail

Ho fatto uno script per utilizzare il programma sendmail su osx. Il
programma funziona perfettamente su Linux RedHat ma non funziona su nessuna
macchina con osx. Lancio lo script apparentemente sembra che vada ma poi non
ricevo nessuna email al contrario di quando lo eseguo su linux.
Il codice è il seguente:
-----
#!/usr/bin/perl
$mailprog = '/usr/sbin/sendmail';
$recipient = '
mye...@myserver.it
';
$from = '
ro...@test.it
';
$subject = 'Message from the server';
open (MAIL, "|$mailprog -t") or &dienice("Can't access $mailprog!\n");
print MAIL "To: $recipient\n";
print MAIL "Reply-to: $from\n";
print MAIL "Subject: $subject\n\n";
print MAIL "Prova";
close(MAIL);
-----
Il percorso di sendmail è corretto ma non ricevo nessuna email... chi mi da
un aiuto?
maxo

 da un aiuto?
Non ho mai fatto andare sendmail su MacOSX, ma se non ricordo
male la configurazione del sendmail installato su OSX "cozza"
con altri parametri di sistema.
Un paio di documenti da leggere:
http://www.sial.org/sendmail/macosx/8.10.2/
http://www.macdevcenter.com/pub/a/mac/2002/09/10/sendmail.html
(li ho chiesti a Google con "configuring sendmail macosx")
Spero possa essere d'aiuto.
Per quanto riguarda lo script, mi pare ok, anche se ti consiglio
di usare un modulo come Mail::Sendmail oppure i MailTools.
Inoltre e` forse meglio scrivere
  ... or dienice("Can't access $mailprog!\n");
Lasciando cioe` perdere il '&', se non altro per non suggerire
cose scorrette ad un eventuale lettore del tuo codice (in questo
caso, ad esempio, che dienice ha un prototipo ma che in questo
momento non vuoi che il Perl ne tenga conto [1]).
ciao
Stefano
[1] perldoc perlsub ~ "Prototypes"

Newsgroup: it.comp.lang.perl
Titolo: Data di un file

Vorrei sapere se esiste un comando per ottenere la data di un file.
Grazie.
Nicola

Vorrei sapere se esiste un comando per ottenere la data di un file.
Certo:
$data = (stat("nomefile"))[x]
Dove 'x' e`:
8 se vuoi la data di ultimo accesso
9 se vuoi la data di ultima modifica
10 se vuoi la data di ultimo cambio all'inode
La data tornata e` una unix-style timestamp, che puoi convertire in
qualcosa di leggibile con gmtime() o localtime().
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: Import di files di testo

Ciao a tutti! Sono un novizio del perl.
Devo importare n files di testo del tipo hw*.* in un unico file.
Ho gia' uno script perl che mi scrive un singolo file partendo da un solo
file in input, ma non so come fare ad importarli tutti in un botto.
Grazie anticipate anche per riposte in e-mail
--
Pierp@oloŠ

file in input, ma non so come fare ad importarli tutti in un botto.
Non puoi concaternarli tutti con "cat" (se usi Unix) o con "copy"
(se usi Windoze) e poi importarli? Alternativamente, sotto Unix,
li puoi mandare tutti assieme sullo standard input del tuo script
perl (che poi leggerai tramite l'handle STDIN):
cat hw* | ./
mioprogramma.pl
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

 wrote in message
slrn8d6r...@nowhere.italpro.to...


perl 
imprta.pl
 hw*.*
Questo e` semplice, almeno se usi Unix (sotto Windows non so se sia
la stessa cosa). La shell espande le wildcard prima di chiamare
il comando ("perl 
importa.pl
" in questo caso) quindi la linea di
comando viene di fatto cambiata in:
perl 
importa.pl
 hw1.boh hw2.boh hw3.boh ...
Puoi quindi utilizzare un for per accedere a tutti i parametri:
for $i(0..$#ARGV) {
  open (MYFILE, "<$ARGV[$i]");
  # ....
  close (MYFILE);


file in input, ma non so come fare ad importarli tutti in un botto.
Non so se ho capito bene, ma prova a fare::
------
    #!/usr/bin/perl
    while (<>) {
        print;
    # oppure
    # faiquellochetipare con $_;
    }
------
salvalo come 
ciuccia.pl
 (per esempio) e poi da shell fai:
 
ciuccia.pl
 hw*.*
man perlop per vedere come funziona l'operatore <>
ciao,
Marco Cacchiani 
ma...@sirius.pisa.it
--
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/
Newsgroup: it.comp.lang.perl
Titolo: Cgi e perl in locale

Esiste un software che possa essere installato sul computer e che abbia la
funzionalità di far "girare" i file ".cgi" e ".pl"? Io ho diversi CD di
riviste famose (tipo Computer Magazine, Il mio computer, ecc...): ci sono
software per cgi e perl in locale in questi Cd-Rom? Grazie!
--
Distinti saluti
Matteo
http://www.infiliset.bbk.org/
infi...@NOSPAMvirgilio.it

ecc...): ci sono software per cgi e perl in locale in questi Cd-Rom?
Se non lo sai tu che ce li hai sotto gli occhi, come pensi che possiamo
arrivare a capirlo noi? A volte le riviste pubblicano esempi di programmi in
perl, cosi` come in altri linguaggi, si`. A volte no.
Ciao.

 ha scritto nel messaggio
news:ns6e9.73252$pX1.2...@news2.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: perchè il perl per un sistemista ?

perchè un sistemista dovrebbe imparare a programmare in perl ?
Grazie

 Grazie
Uno che ha gia' saltato il fosso ti direbbe "dammi un motivo per non 
usare Perl"!  Una volta che lo sai usare, ti viene difficile pensare in 
termini di cosa avresti fatto prima.
In breve, con Perl puoi automatizzare i task piu' lunghi e difficili. 
Puoi trasformare lunghe e tediose attivita' manuali in uno script 
obbediente ed efficiente.
Inoltre, in Perl esistono moduli per trattare praticamente qualsiasi 
cosa interessi un amministratore: connessioni di rete, analizzatori di 
file in una quantita' enorme di formati, gestione della posta, analisi 
del file system, analisi di log, interfaccia con servizi web, interfacce 
con servizi dei sistemi operativi  ( Unix, Linux, BSD, Windows, VMS, 
Palm! ), e tante altre cose che sarebbe troppo lungo elencare.
In Perl puoi creare i tuoi strumenti  in pochi minuti. Se ti trovi a 
dover eseguire un task difficile, per il quale gli strumenti normali non 
bastano, e ti ci vorrebbe, che so, un filtro speciale su un file da un 
formato mai visto prima, o l'estrazione precisa di dati immersi in una 
struttura complessa, allora Perl ti torna utile, consentendoti di creare 
uno strumento ad hoc in poco tempo. Quando dico "poco tempo", intendo 
veramente poco. Mentre creare un filtro in C potrebbe richiedere delle 
ore, lo stesso task in Perl (quando conosci il linguaggio bene) puo' 
essere questione di qualche minuto. Lo dico per esperienza personale.
Leggi questa apologia del Perl per gli amministratori:
http://www.perlmonks.org/index.pl?node_id=144335
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

 cose che sarebbe troppo lungo elencare.
Ecco questa è la cosa più importante. Un sacco di moduli già pronti all'uso.

> > perl ? Grazie
Perchč con pochissimo fai tanto.
Non conosco perl bene ma mi č tornato utile per molte cose:
- demone per un chat server con funzioni avanzate (
www.mitici.it
);
- integrazioni di sistemi
    1) query su un DB M$ SQL remoto
    2) creazione del file temporaneo con i dati su macchina Linux locale
    3) scrittura su una share di una macchina WinNT locale delle
    informazioni
    4) polling della macchina WinNT locale dei dati processati
    5) scrittura della query sul DB M$ SQL remoto dei dati ottenuti
- moduli WebMin
- alcune utility (tipo quella per calcolare il cdir: cerca calcolo della
  subnet su it.comp.os.linux)
Antonio

>> > in perl ? Grazie
Attenzione al quoting, non l'ho scritta io quella domanda :-)
Newsgroup: it.comp.lang.perl
Titolo: Che giorno e'?

Ciao a tutti!
Comincio a fare i miei progressi col PERL (per vostro sollievo ;o), però mi
sfugge come posso sapere per esteso il nome del giorno (ad esempio: Lunedì,
Martedì, Mercoledì, etc.) in base a una data specifica. Qualcuno mi può
aiutare?
Grazie mille!!
Per tutti i principianti: tenete duro, stiamo lavorando al sito comune di
questo NG!
Ciao,
--
Umberto Meroni
[
http://www.ubi1k.com
] [
http://www.ubi1k-vb.net
]
[Come contattarmi: 
http://www.ubi1k.com/meroni
]
---
"Ma è ormai venuta l'ora di andare: io a morire, e voi, invece, a vivere.
Ma chi di noi vada verso ciò che è meglio, è oscuro a tutti, tranne che al
dio."
Socrate, Apologia
---

Martedì, Mercoledì, etc.) in base a una data specifica. Qualcuno mi può
$ perldoc -f localtime
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,£isdst) 
                                    = localtime(time);
un Oha dubbioso
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"

 
-- 
"Time flies like an arrow; fruit flies like a banana."

Chiedo scusa.
Prima di chiederlo ho controllato tra i vari thread ma evidentemente mi è
sfuggito.
Mi scuso ancora.
--
Umberto Meroni
[
http://www.ubi1k.com
] [
http://www.ubi1k-vb.net
]
[Come contattarmi: 
http://www.ubi1k.com/meroni
]
---
"Ma è ormai venuta l'ora di andare: io a morire, e voi, invece, a vivere.
Ma chi di noi vada verso ciò che è meglio, è oscuro a tutti, tranne che al
dio."
Socrate, Apologia
---
Ho scritto e postato questo pezzetto di codice tempo fa in risposta a una


 
-- 


spero che nessuno l'abbia usato...
Già ;o)
No, è che mi spiace fare la figura del rompiscatole (forse però è troppo
tardi, eh?), chiedendo cose già chieste e richieste.
Insomma, mi sento un po' come se vi inviassi una domanda del tipo "Ma il
PERL è un linguaggio interpretato o compilato?" ;O)
Ciao,
Ubi1k

Newsgroup: it.comp.lang.perl
Titolo: dove rovo degli script cgi configurabili?

mi servono degli script configurabili per creare un forum... un sondaggio di
opinioni e un contatore di download...
aiutooooo
pol...@freemail.it



 wrote in message 7n7gal$suh$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: Interprete PERL!

Ciao a tutti!
Sapete se esiste (e dove trovarlo) un interprete perl che mi permetta di far
funzionare gli script in locale per poterli testare senza dover connettermi
al server?
Grazie a Tutti
------------------------------
Stefano Riccobelli
www.cittavirtuale.net
webm...@cittavirtuale.net
------------------------------

 al server?
Idee poco chiare? ;-)
A parte l'interprete, che non gli frega niente di locale/remoto, ti
serve un webserver.
Ciao
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

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

per provare i cgi in locale devi scaricare Apache dal sito 
www.apache.com
 .
Praticamente e' un server virtuale che simula una connessione internet o
intranet, questo lo scegli con l'url con il quale accedi. Va settato, e
questa e' la parte piu' dolente.Fai comunque una ricerca perchè ci sono in
internet le istruzioni per il settaggio, ma ora non ricordo l'url.
Ciao.
...e mica so' Mandrake pe' davero - Gigi Proietti (Febbre da Cavallo)
--
Posted from 
IDENT:ro...@planetsec.com
 [194.20.232.117] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Praticamente e' un server virtuale che simula una connessione internet o
Da dove vengono fuori certe affermazioni? E' un server VERO, che fa
connessioni VERE. 
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: SETTAGGI di Apache

Ho installato Apache ma vorrei sapere da chi nel mestiere i settaggi
basilari per farlo "vivere" con ActivePerl. So che c'č da modificare il file
.htcess o qualcosina di simile. Potete aiutarmi?
Grazie
Riccardo

 ha scritto nel messaggio
news:8q8hp9$3bo$1...@nslave2.tin.it...


 basilari per farlo "vivere" con ActivePerl. So che c'è da modificare il


Grazie a tutti ragazzi!!!
Riccardo
Newsgroup: it.comp.lang.perl
Titolo: Mandare una mail con attach

Ciao,
ho un problema. Riesco a mandare tramite programma perl una mail con
risultati di form o di query dal db, ma vorrei mandarli come attach e non
come
testo della mail. Come posso fare?
Grazie a tutti.
Silvia.

Saluti.

Se č semplice testo, copiando gli header e gli altri campi di un msg
MIME:
Mime-Version: 1.0
....
--2fHTh5uZTiUOsy+g
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename=".bashrc"
blah
blah
--2fHTh5uZTiUOsy+g--
Dove la stringa strana č il message boundary, e va scelto in modo
che non appaia nel messaggio originale (e comincia sempre con --).
Per qualunque cosa sia piů complessa, (e in particolare, se il
Content-Type non č text/plain (ma, per dire, image/gif) 
ti conviene usare Mail::MIME (mi sembra),
che trovi su CPAN (e ha bisogno di diversi altri moduli per funzionare)
cheers,
	alf

--2fHTh5uZTiUOsy+g--
E' un file di testo, adesso faccio:
open (MAIL,'|-')||exec('/usr/lib/sendmail','-t',$indirizzo);
       print MAIL "To:$indirizzo\n";
       print MAIL "From:$silvia\n";
       print MAIL "Subject:Scadenze contratti mese di $data.\n\n";
       print MAIL "   testo  "
Quel <testo> vorrei che diventasse un attach, basta che scriva prima e dopo
quello che mi hai suggerito??
Scusa l'insistenza ma non ci arrivo!!
Ciao.

 E' un file di testo, adesso faccio:
[...]
---WARNING----Untested code below----use at own risk---Arh! Arh!
$bnd="--" . time();
#
open (MAIL,'|-')||exec('/usr/lib/sendmail','-t',$indirizzo);
print MAIL <<EOF ;
To:$indirizzo
From:$silvia
Subject:Scadenze contratti mese di $data
Mime-Version: 1.0
$bnd
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="foobar.txt"
$message_body
$bnd--
EOF
;
close(MAIL);
--------------------
ti conviene anche aggiungere or die 'Bletch!'  o qualcosa del genere
quando
apri la pipe a sendmail....
Cheers,
	alf

 Silvia.
Ti consiglio di usare un fantastico modulo che si chiama "Mail::Sender" che
e' molto piu' efficiente che fare la 'open' su sendmail...
ecco un esempietto stupido, preso da una applicazione che ho scritto.
considera che tutte le informazioni sono prese da un sql server 6.5
elaborate e sbattute in un hash.
use Mail::Sender;
[...]
my $email = new Mail::Sender();
my status = $email->MailFile({
            smtp    => "
smtp.decisive.com
",
            to      => $message{'recipient'},
            from    => $message{'sender'},
            subject => $message{'subject'},
            msg     => $message{'body'},
            file    => gzip($fName) });
Lo trovi, ovviamente, su CPAN...
	Best Regards,
		Kazuma
---
Alex Garbagnati
Sr. Lead Engineer, Product Development
Decisive Technology Corporation
Mountain View, CA  94043

Mi associo con Alex, e stai attenta con il comando sendmail perche cio
potrebbero essere problemi di tainted data (cfr. perlsec). Non ho fatto tanta
attenzione al codice pero dovresti pulire $indirizzo.
Ciao
Luca

Newsgroup: it.comp.lang.perl
Titolo: Script Whois?

Sto cercando uno script perl che a partire da un IP secco mi dia
informazioni sul "proprietario" del medesimo, ovvero quello che nel database
Whois del RIPE viene evidenziato come inetnum->netname e inetnum->descr
Esempio: 62.11.84.91
inetnum:      62.10.0.0 - 62.11.175.255
netname:      TISCALINET
descr:        Tiscali SpA
Thanks

 Whois del RIPE viene evidenziato come inetnum->netname e inetnum->descr
I server Whois rispondono alla porta TCP 43. Se ti ci colleghi con telnet,
metti l'ip e premi 2 volte invio e leggi la risposta.
Ti incollo un paio di sub che ho fatto io per il whois dei domini it, com,
net, org...
con qualche piccola modifica dovrebbero funzionare anche per il whois che
vuoi tu.
Ciao,
Guido.
<code>
sub do_whois {
 # Prendo i parametri "dominio" e "estensione"
 $wdomain = $_[0]; $wext = $_[1];
 $wdomain .= $wext;
 # Stabilisco quale server whois interrogare
 if (uc($wext) eq ".IT") {
  $this_whois_server = "
whois.nic.it
";
 } else {
  $this_whois_server = "
whois.internic.net
";
 }
 # effettuo l'interrogazione
 $whois_results = do_connect($this_whois_server, $wdomain);
 # Se il server whois è internic...
 if ($this_whois_server eq "
whois.internic.net
") {
  # Ricavo dalla risposta il nome del server whois del registrar
  $whois_results =~ /Whois Server\: (.+)/ig;
  undef $this_whois_server;
  $this_whois_server = $1;
  # se esiste (ovvero in caso di dominio registrato)
  if ($this_whois_server) {
   # mi ci connetto e ricavo i dati di whois
   $whois_results = do_connect($this_whois_server, $wdomain);
  # altrimenti
  }
 }
 # se nella risposta c'è la dicitura "no match" oppure "no entr(y)"
 if ($whois_results =~ /no match/ig || $whois_results =~ /no entr/ig) {
  # Il dominio è disponibile
  $availability = 1;
 }
 # ritorno la risposta
 return $availability;
}
sub do_connect {
 my ($host, $query) = (@_[0], @_[1]);
 my $port = 43;
 my $results;
 if ($host=~/\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}/) {
  $iaddr=pack("C4", split(/\./, $host))
 } else {
  ($iaddr=gethostbyname($host));
 }
 my $paddr = pack("CxxC", 2, $port).$iaddr.pack("x8") ;
 my $proto = getprotobyname('tcp');
 socket(SERV, 2, 1, $proto);
 connect(SERV, $paddr);
 binmode(SERV);
 send(SERV, "$query\r\n", 0);
 until(recv(SERV, $ch, 1, 0) && (ord($ch) == 0)) { $results .= $ch; }
$results .= $ch;
 close(SERV);
 return $results;
}
</code>

 wrote in message
news:b0m3j0$501$1...@lacerta.tiscalinet.it...


 
Salve,
  sempre usare CPAN (
http://search.cpan.org
) prima di chiedere :) c'è un
modulo tutto pronto, Net::Whois, che fa ciò che chiedi. Vedi
all'indirizzo:
http://search.cpan.org/author/DHUDES/Net-Whois-1.9/Whois.pm
Ciao
Leo