mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: aiuto... redirect non funziona

Ciao!
Ho provato a far funzionare il seguente script che dovrebbe
reindirizzare il browser all'URL definito nella richiesta (method='GET')
main: {
    @pairs = split(/&/, $ENV{'QUERY_STRING'} ); # GET Method
    foreach $pair (@pairs) {
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $name =~ tr/+/ /;
        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $FORM{$name} = $value;
    }
    $location = '
http://www.blabla.it/'.$FORM{'URL'}
;           
    print "Location: $location\n\n";    # Voila!
}
Se provo a scrivere "perl -w 
selection.pl
" mi da':
perl -w 
selection.pl
Use of uninitialized value at 
selection.pl
 line 23.
Use of uninitialized value at 
selection.pl
 line 37.
Location: 
http://www.blabla.it/
Tenete presente che la riga dove c'e' "main" (la prima che ho postato)
e' la 21, dunque la 23 e' quella di @pairs.
Ma se eseguo da shell mi scrive 
http://www.blabla.it
se provo a farlo funzionare da www...
                               Server Error
   The server encountered an internal error or misconfiguration and was
   unable to complete your request.
Grazie per qualsiasi aiuto, sono assolutamente un "newbie"... sigh.
Ciao :)
        Aram
-- 
aram gurekian  -  
wei...@weirdo.it
----------------------------------
dance like nobody's watching
love like it's never going to hurt

[...]
Prova ad eseguirlo con:
./
selection.pl
Due errori potrebbero essere:
 * manca il "chmod a+x" allo script ?
 * manca, come prima riga del programma, #/usr/local/bin/perl5 (il path
   del Perl insomma)
Tutto cio' vale sotto Unix ovviamente, sotto Windows devi provvedere ad
associare il file (cosa che dovrebbe aver gia` fatot l'interprete Perl
all'atto dell'installazione).
	Miky.
-- 
Michele Beltrame
mi...@skm.to
http://www.italpro.com/mb/
They can take your life, but they can't take your pride.

 
Si', e' sotto Unix... mi da sempre errore quando accedo da WWW e lo
esegue correttamente se lo lancio da shell.
Anche l'URL e' esatto. server/cgi-bin/
selection.pl
Non riesco proprio a capire dove sia il problema :(

Newsgroup: it.comp.lang.perl
Titolo: Novellino cerca aiuto:)!

Ciao a tutti,
per me é la prima volta che cerco di imparare a programmare. Ho scelto
di iniziare con Perl perché mi piace la sua filosofia. Quindi mi sono
scaricato il programma e un bel tutorial in inglese:)! Io ho un problema
che molto probabilmente non ha nulla a che fare con Perl ma con il
"buon" vecchio window! Ho scritto un semplicissimo programmino che
devrebbe scrivermi "Ciao, $nome utente" Il programma in se funziona solo
che alla fine dell'esecuzione mi si chide la finestra ms-dos che si era
aperta senza lasciarmi il tempo di leggere il risultato.
Lo so che é un problema idiota, ma qualcuno saprebbe aiutarmi? Perché se
non risolvo questo problema c'é poco da programmare:(!
Grazie mille
Marco

aperta senza lasciarmi il tempo di leggere il risultato.
Metti un:
$a = <STDIN>;
come ultima riga eseguita dal programma, cosi` dovrai premere enter per
chiudere.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 chiudere.
È gia inserito questo comando. Guarda il codice é questo:
print "What is your name?";
my $username;
$username = <STDIN>;
chomp($username);
print "Hello, $username. \n";
Alla fine mi si chiude lo stesso senza poter leggere: "Hello, Marco".
Ciao Marco


Ho capito devo spostare la terza riga alla fine:)!!! Scusatemi!
Grazie mille Marco

invece di fare doppio click sul icona del programma prova ad andare su 
START->PROGRAMMI ->PROMPT DI MS-DOS e andare sulla directory dove c'è il 
file. Infine fai "perl 
namefile.pl
".
Io di solito faccio così e funziona.
CIAO
-- 
Posted from [213.158.72.3] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ho capito devo spostare la terza riga alla fine:)!!! Scusatemi!
Nooo, non devi SPOSTARE la terza riga alla fine, devi fare un'altra riga
uguale alla fine,
"$qualunquecosa = <STDIN>"
Ma questo è solo per aggirare il problema, non per risolverlo.
Per risolverlo, se ho capito bene cosa chiedi, clicca col destro sul
programma eseguibile dell'interprete Perl, insomma, il file EXE, e seleziona
proprietà, poi nella scheda "Programma" elimina il segno di spunta da
"Chiudi all'uscita".
Oppure, più semplicemente, PRIMA passi in modalità DOS (Start | Esegui |
command) e POI esegui quello che vuoi.
Ciao.
--
Nello Polesello
(per risposte in e-mail sono libero, non occupato)

 command) e POI esegui quello che vuoi.
Idem come sopra. Tra l'altro io ho installato windows ME. Non esiste più la vera
modalità MS-DOS?
Ciao Marco

Alla fine mi si chiude lo stesso senza poter leggere: "Hello, Marco".
abitudine dei clic sulle icone...
apri una finestra prompt di msdos e sulla riga di comando metti il
nome del tuo programma, vedrai che non si chiude
-- 
     #@@@ missinglink on slackware 7.1 ###
     ####       member of telug        #@@
Newsgroup: it.comp.lang.perl
Titolo: PERL:

qualcuno sa dirmi qualche comando per interragire con database MySql?? 
io conosco un po' il modulo DBI ma il resto non tanto: 
#!/usr/bin/perl 
use DBI 
my $dbh = DBI->connect(); 
$dbh = disconnet(); 
oppure qualche guida [in italiano] in giro per la rete?? 
sapete il fatto č che non ho trovato molto in giro.........

 sapete il fatto č che non ho trovato molto in giro.........
Non hai trovato o non hai cercato?
Mi sa la seconda, perche' bastava 
www.mysql.com
 (indirizzo difficile da 
indovinare se non lo conosci...) per trovare documentazione su 
l'interfaccia perl a Mysql.
Oppure 
www.perl.com
 (altro indirizzo difficile, vero?) per trovare in 4 
click qualche link a 
www.perldoc.com
 dove trovi la documentazione su 
tutti i moduli, compresi DBI e DBD (documentazione per altro quasi 
sicuramente presente anche sul tuo pc).
Ps: Ovviamente tutto in inglese, peccato..... 
-- 
Saluti,
Giancarlo

 sapete il fatto è che non ho trovato molto in giro.........
Evidentemente hai cercato male (o poco!):
Fai un salto su 
cgipoint.html.it
: nella sezione "guide" (o
tutorial) c'è un po' di roba su Perl+DB (Postgres, nello specifico, ma
poco cambia)
Ciao
--ev

 oppure qualche guida [in italiano] in giro per la rete??
http://www.html.it/perl/tutorial_01.htm
E' in italiano e tratta l'uso di perl con i database.
Il database trattato è Postgresql, ma i comandi perl sono propri del DBI,
perciò sono identici anche per Mysql.
Buon lavoro
Newsgroup: it.comp.lang.perl
Titolo: Perl.exe non parla con il server web su NT???

Salve,
ringrazio coloro che mi hanno risposto nel precedente messaggio (le basi!),
ma i miei problemi non sono finiti! Attualmemnte non riesco a "vedere"
materialmente all'opera i miei banalissimi script in perl (che girano bene
sul prompt del dos!!!) all'interno del browser. Utilizzo NT con IIS. Ho
realizzato una pagina html che attraverso un semplice submit mi avvia lo
script con estensione .cgi, ma la risposta che ottengo e' "Impossibile
aprire la pagina" in IE e "Applicazione windows NT non valida " nel browser
della Netscape. Sto studiando su "Programmare Perl" e "Perl guida di
riferimento", ho letto anche i minicorsi su Perl e Cgi pubblicati su
html.it
, ma nessuno mi illumina! Credo che il problema sia una questione di
permessi che bisogna settare nel web server... qualcuno saprebbe
illuminarmi?
Grazie
---
Loris
Sondrio

 della Netscape. 
A occhio, sembra che NT stia cercando di eseguire i tuoi script invece
di interpretarli. Questo perche' l'estensione "cgi" e' quella standard
per i cgi compilati. Prova a rinominarli in .pl, e magari metti
all'inizio il percorso dell'interprete Perl (#!c:/perl/bin/perl.exe o
qualcosa del genere).
-- 
Ciao,
Alfio
http://www.firenzeinvetrina.it


Se stai utilizzando il porting di Perl della Active State dovrebbe essere
sufficiente rinominarli in .pl (come ha detto Alfio). Occorre pero' che
l'estensione .pl sia associata all'interprete Perl (mi pare che questa
operazione venga fatta in automatico all'installazione di ActivePerl).
Non vorrei sbagliarmi, ma la direttiva "#!c:/perl/bin/perl.exe" mi pare debba
essere interpretata dal web server e non so se IIS lo faccia, mentre sono
abbastanza sicuro che sia supportato dal porting di Apache per Win32.
Ciao
Marcello

 abbastanza sicuro che sia supportato dal porting di Apache per Win32.
Si', anzi su Apache e' di default. Perche' presti attenzione alle
estensioni, occorre mettere "ScriptInterpreterSource registry"
nell'httpd.conf. Per IIS non lo so, ma essendo piu' windows-centrico e'
probabile che cerchi prima le estensioni.

Newsgroup: it.comp.lang.perl
Titolo: ppm per installare modulo

Salve,
        sto usando Perl su windows con activeperl ed avrei bisogno di 
installare il seguente modulo: 
http://search.cpan.org/~callahan/Math-CDF-0.1/CDF.pm
 che contiene parti in 
c++ (files .c e .h) come si può fare con "ppm" dato che non mi trova il 
modulo suddetto nel repository?
Grazie 

 dato che non mi trova il modulo suddetto nel repository?
Devi aggiungere altri repository (oltre a quello standard di ActiveState).
Fai cosě:
Edit->Preferences->il tab Repositories
Vicino al pulsante Add trovi un elenco: "Suggested: Select from list".
Aggiungi "uwinnipeg" e troverai il tuo modulo. Visto che ci sei aggiungi 
pure tutti gli altri repositorie, cosě in futuro potrai trovare ciň che 
cerchi senza dover rifare questa operazione.
Se invece il modulo non si fosse trovato, avresti dovuto passare ad un 
interprete perl per windows con "annessi" anche compilatore C/C++ e 
accessori, ovvero Strawberry Perl: 
http://strawberryperl.com/

 accessori, ovvero Strawberry Perl: 
http://strawberryperl.com/
Mi sa che dovrò proprio ricorrere a questo Strawberry Perl in quanto anche 
dopo aver aggiunto tutti i repository non riesce a trovare Math-CDF... 

 Math-CDF...
Mmm io ho ancora il Perl 5.8.x per il quale ci sono piů moduli a 
disposizione, immagino tu abbia un Perl piů recente (e dunque di solito 
con meno package, visto che quelli con codice C/C++ vanno rifatti da capo).
Buona fortuna.

 capo).
Risolto, inoltre 1000 molte veglio Strawberry Perl!! (5.12)
Newsgroup: it.comp.lang.perl
Titolo: Perl su Win98

Sto tentando di eseguire gli script perl su win98 ma quando
pubblico la pagina IE5 mi restituisce il seguente
messaggio: Impossibile eseguire il comando exec non si
dispone delle autorizzazioni necessarie. Ho installato il
Personal Web Server, ho aggiunto la chiave di registro .pl
con il path del perl e in ultimo ho messo in esecuzione dal
PWS tutte le directory del web, ma ancora niente.
Grazie a tutti coloro volessero aiutarmi.
email 
fugg...@tiscalinet.it
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

 messaggio: Impossibile eseguire il comando exec non si
Sui server M$ non funziona il comando <!--#exec cgi="....."-->
Ho cercato in lungo e in largo ma non ho trovato soluzioni che
permettessero di usarlo.
-- 
Lorenzo Pulici - 
webm...@milanohockey.com
 
http://www.milanohockey.com
 
MILANOHOCKEY.COM
 - Tutto l'hockey su ghiaccio di Milano

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

 cgi ;o)))
...mmmmh.... questo lo so benissimo... su due server NT su cui ho siti
quel comando NON funziona. O meglio: su uno non funziona del tutto
(disabilitato dal gestore?), sull'altro funzionerebbe solo che mi spara 
i maledetti header di IIS. Tutti e due i server sono IIS 4.0.
Ho sfogliato tramite 
deja.com
 numerosi post su ng USA ma non ho trovato
soluzione a eliminare quella porcheria.
Se riesci a darmi tu una soluzione come si deve (niente trucchetti in
HTML per nascondere il colore ;-) te ne sarei grato...


HTML per nascondere il colore ;-) te ne sarei grato...
Ora dovrebbe essere chiaro.


 iniziale.
Gia'... ma uno script che aveva un workaround simile (uno switch per
sopprimere gli header http) non mi ha mai funzionato su iis... se lo
trovo te lo posto. Mi puzza che sia un problema di come sia settato il
server
Cmq provero'...


Newsgroup: it.comp.lang.perl
Titolo: Lettura da file testo formattato

Ciao a tutti, sono un neofita del perl e vorrei porvi in quesito per me
fondamentale.
Alla pressione del submit in una pag. HTML dovrei leggere con uno script
perl un file txt formattato riga per riga nella seguente maniera:
IFC1234CN12345667rerereiu.
Dopo aver aperto il file in questione, come posso fare per leggere i primi 3
byte e memorizzarli in una variabile, poi gli altri 4 byte e memorizzarli in
un'altra variabile e così via?
Io voglio memorizzare il contenuto EFFETTIVO dei byte, non la loro
lunghezza.
Grazie per l'attenzione e a chi mi risponderà.


Con $linea che contiene la stringa letta dal file:
$var1 = substr($linea,0,3);
$var2 = substr($linea,3,4); etc.
HTH

Grazie per l'aiuto.

Newsgroup: it.comp.lang.perl
Titolo: problmei con l'operatore di sostituzione


ecc...
io dovrei togliere "<" e ">"
pechč questo tolglie solo "<" 
s/(<|>)///;
Fatemi sapere!
Fabrizio

 s/(<|>)///;
Aggiungi l'opzione g;
  s/(<|>)///g;
Max

 pechè questo tolglie solo "<"


 s/(<|>)///;
Perche' toglie solo la prima occorrenza che trova di uno dei due caratteri
specificati.
Devi mettere l'opzione "g" per fargli cambiare tutte le occorrenze:
s/(<|>)//g;
Bye
silvio
Newsgroup: it.comp.lang.perl
Titolo: Lock di DBM

Ciao!
Avendo appurato (Thanks to Munafò!) che bisogna lokkare anche i dbm per
evitare casini in caso di accesso in scrittura contemporanea... come faccio
praticamente a farlo?? con la stessa sintassi che si usa per i file text?
solo che con i dbm non esistono i descrittori di file ma solo puntatori ad
hash... come si fa?
GRAZIE!
Salva
--
Salvatore Bocchetti
Resp. Ufficio Stampa & Comunicazione Gruppo MAdCom
uffici...@radioazioni.com
Mobile Ph. +39-329-XXXXXXX
http://www.radioazioni.com
http://www.calciocampano.com
http://www.salvatorebocchetti.it
 (personal site)
ICQ: #1212361

 hash... come si fa?
Prima di fare il tie dell hash, apri il file in scrittura e... flock().
Max

 hash... come si fa?
Se usi DB_File, nella manpage c'e' un esempio dettagliato.
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: Regular Expression & AWK

Ragazzi sono in palla...
Mi scuso in anticipo se questo non è il posto giusto per porre
la domanda ma, visto chi frequenta il NG, credo che qualcuno mi sappia
aiutare.
Sono alle prese con uno scriptino in AWK e non riesco a "forzare" in alcun
modo il "SEPARATORE di CAMPO" (espresso in AWK con la variabile FS) a
considerare come separatore di campo non un solo spazio (che è il default)
ma ALMENO DUE (quindi da due in su) per far sì, ad esempio, che una linea
che contiene "Alberto Maria Rossi   Milano" sia considerata come due campi
($1 = "Alberto Maria Rossi", $2 = "Milano") e non come quattro ($1 =
"Alberto", $2 = "Maria", $3 = "Rossi", $4 = "Milano")...
La documentazione dice che è possibile farlo tramite l'utilizzo delle
famigerate RegExp... io ci ho provato in un sacco di modi ma non ho mai
ottenuto il risultato cercato. Sicuramente mi è sfuggito quello giusto!
Sapete darmi una mano?
grazie anticipatamente
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 grazie anticipatamente
Se ho capito correttamente vuoi un FieldSeparator di almeno 2 spazi.
Questo semplice esempio che ti invio dovrebbe fare al caso tuo
------------------------------------------------
echo "aas aas      dffg sdf" |awk 'BEGIN {FS="  +"}
{
	print $1"--"$2
}'
------------------------------------------------
Il risultato è il seguente:
	aas aas--dffg sdf
Come vedi ha diviso in due la stringa solo dove ha incontrato + di 2  spazi.
La cosa che trae in inganno è che il libro fornisce la seguente sintassi:
FS=/<reg-exp>/
Ma tale forma a me non funziona, invece usando le virgolette sembra 
eseguire correttamente la reg-exp.
Il test l'ho fatto su una RH7.3 con gawk-3.1.0-4
ciao
spero di di esserti stato utile
Silvano

 spero di di esserti stato utile
purtroppo il tuo suggerimento non ha funzionato ma ti ringrazio
lo stesso per l'interesse.
ciao


 Sto usando l'awk presente su una SparcStation Sun con Solaris 2.5.1
Anziché 'awk' usa 'nawk'.
Max

 Anziché 'awk' usa 'nawk'.
Dopo gli innumerevoli tentativi ho gettato la spugna e ho trovato un
workaround per ottenere ugualmente quello che mi serviva...
Non conoscevo l'esistenza di 'nawk'... quali sono le differenze rispetto
al "normale" 'awk'?
grazie comunque per il suggerimento
ciŕ


 al "normale" 'awk'?
Boh. Mai usato 'awk' o 'nawk' in vita mia. 
Con 'nawk' il tuo codice funziona, comunque.
Max

Con 'nawk' il tuo codice funziona, comunque.
Il problema è che, per quello che capisco io, dovrebbe funzionare con
qualunque awk che soddisfi il manuale di definizione del linguaggio cioè,
teoricamente, qualunque awk.
Dice infatti che, se FS è più di 2 caratteri, viene interpretato come
espressione regolare, e "  +" (3 caratteri) interpretato come espressione
regolare significa "2 o più spazi".
E' ben vero che un singolo spazio ha un significato particolare, ma per
l'appunto "  +" non è un singolo spazio. Per le implementazioni di awk
particolarmente recalcitranti, comunque, si potrebbe forse tentare di
insistere ulteriormente, usando un'espressione del genere: "[ ][ ]+".
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Email e attach

Come faccio ad inserire un file in attach in una e-mail creata da form? Mi
serve solo il codice nel momento in cui scrivo la mail...
Grazie
+CROCE+

 serve solo il codice nel momento in cui scrivo la mail...
Due esempi li trovi nel sito dei nordest perlmongers:
http://www.perlmongers.it/code/CGI/
-- 
$_=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: Upload script for Win32 platform?

Can someone give me clues about writing an upload script for Win32
platform, or where I could find one as a starter? I did this under UNIX,
but I don't know how to make it work on a Win32 platform...
Thanks,
Frederic

what do you mean by "upload script"?
Post the code, maybe I can take a shot at translating it...
carv


Newsgroup: it.comp.lang.perl
Titolo: Funzionamento di CGI su SERVER e COMPUTER, chi mi aiuta?

Ho un problema, gli scrip non mi girano sul mio computer sul quale è
istallato Apache 1.3.12 e Perl 618 mentre lo fanno bene sul mio sito che
suppporta Perl. COme mai, che sia colpa dell'init string:
#!/usr/bin/perl
devo mettere sui miei script eseguibili dal computer per caso:
#!C:/Programmi/perl/bin/perl.exe ?
come devo fare?
Grazie a tutti per la cortesia
Riccardo

io proverei con:
#!c:\perl\bin\perl.exe
a me funziona così.
oppure crei una cartella usr nalla quale metti tutto il contenuto della
cartella c:\perl. In questo caso puoi lasciare la dicitura:
#!/usr/bin/perl
--
Posted from 
adamo6.supereva.it
 [195.110.96.96] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: Perl locale (?)

Scusate il disturbo!
Forse dal soggetto già avete capito che io di perl non ne so nulla.
Ecco i miei problemi:
- vorrei sapere se potete consigliarmi un valido manuale per iniziare,
tenendo conto che comunque di programmazione mi intendo abbastanza;
- vorrei provare alcuni script CGI in perl per capirne il funzionamento
direttamente sul mio PC con Windows NT (Perl locale, se si dice così),
sapete indicarmi cosa e come devo fare (ho trovato su un CD una versione per
NT di perl -> Intergraph Corporation, Perl for Windows NT, Product Number:
SSBY50500, Version: 01.00.00.02 - Forse è un po' vecchiotta?) perché se io
dalla mia pagina HTML locale richiamo lo script CGI, allora mi viene aperta
una pagina in cui appunto mi visualizza lo script...
Grazie a tutti quelli che vorranno aiutarmi nei miei primi passi con il
perl, magari fra un po' di tempo potrò ricambiare con validi consigli :-)
Stefano on Line
hp 
http://users.iol.it/sseber
icq uin 47032956

 una pagina in cui appunto mi visualizza lo script...
devi installare un web server (IIS, Apache, quello che preferisci...)
e configurarlo correttamente per eseguire i CGI (dipende ovviamente dal
server che scegli e comunque non è il tema di questo newsgroup).
per quanto riguarda la versione del Perl è ASSOLUTAMENTE vecchiotta,
personalmente ti consiglio di scaricare l'ActivePerl 519 da
http://www.activestate.com
 che se hai già installato IIS ci si
configura sopra automaticamente...
buon divertimento!
__END__
# Aldo Calpini
print sort {$_{$a} cmp $_{$b}} values %{{split undef,
"xritajbugne fahokem csuctawer jhdtlrnpqloevkshpr"}};

direttamente sul mio PC con Windows NT (Perl locale, se si dice cosģ),
Io conosco ActivePerl (
www.activestate.com
), lo puoi scaricare liberamente.
Hai poi bisogno di un server web da utilizzare in locale. Ce ne sono
molti: da IIS (forse incluso con il tuo NT), a omniHTTD, al mitico
Apache (
www.apache.org
).
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: pattern,cosa vuol dire?

Mi sto chiedendo da giorni cosa vuol dire pattern e a cosa serve.
Ho capito che si assembla alle variabili e cosa via,ma mi dite a cosa serve
e perchè ci sono sempre casini come questi incomprensibili?
$SYSTEM::EXTENSION =~s/\\/\//g;
  $SYSTEM::EXTENSION =~s/^.*\.(\w+)$/$1/g;
mi dite perchè la s davanti al pattern e la g alla fine??
Cioè mi spiegate tutto ma tutto tutto?
E spero in linguaggio semplice
Grazie del vostro aiuto

io ai tempi ho cominciato da qua,
http://www.isinet.it/~marco/perl/
Credo di dovergli almeno un backlink.

 Cioè mi spiegate tutto ma tutto tutto?
Allora, qualche milione di anni fa, in circostanze non ancora precisate,
nacque il mondo, popolato da essere cellulari poco evoluti. In altre
circostanze non meglio precisate, queste cose si evolvero, e nacquero le
prime specie cellulari ...
Ehm, troppo?
A parte gli scherzi, dai un'occhiata a "perldoc perlre" che ti chiarirà
molit dubbi (e, come ovvio, te ne creerà altrettanti!)
Ciao
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

Cioč mi spiegate tutto ma tutto tutto?
RTFM
man perlre
-- 
ciao, |
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 S = sostituisci
si ma sostituisci con che cosa??
cioè la variabili deve essere sostituita dal pattern?
E poi cosa vuol dire /\\/\//??
Grazie


 E poi cosa vuol dire /\\/\//??
Sostituisci tutte le \ con delle /
quella "s" sostituisce un pattern con un replacement, del tipo:
$stringa = "Questa č una prova";
$stringa =~ s/prova/stringa"
print $stringa 
restituisce "Questa č una stringa".


Newsgroup: it.comp.lang.perl
Titolo: Variabile vuota

Utilizzando l'istruzione IF, come posso dire all'interprete perl che se la
variabile non è stata inserita deve effettuare un certo tipo di istruzioni,
mentre se piena, deve farne delle altre?
GRAZIE

mentre se piena, deve farne delle altre?
puoi usare
	if (defined($variabile)) {
		fai questo
	}
	else {
		fai quello
	}
spero sia quello che cercavi.
-- 
ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И
http://www.pigmalion.youngwind.com
 pigmalion network
http://www.pigmalion.youngwind.com/perl/
 appunti Perl - FAQ
ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И
-- 
Posted from 
relay3.inwind.it
 [212.141.53.74] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
jfbaatgceaj399ai4...@4ax.com...



if (defined($var))
  { ............}
else {..........}
HTH

mentre se piena, deve farne delle altre?
Considera che un valore 0 o undefined equivale logicamente a FALSE
quindi basta:
if ($pippo) { ...se maggiore di 1...
} else { ...se non definita o 0...}
-- 
Luky aka jack_daniels
Newsgroup: it.comp.lang.perl
Titolo: Usare modulo Lite per invio Email

Buongiorno a tutti,
Sto facendo delle prove per inviare le email da una CGI. 
Ho installato i moduli Pop3Client e Lite. 
Ho prelevato la demo della perldoc sul modulo Lite per 
vedere come funzionasse, ma a quanto pare non riesco a farlo "girare".
Qualcuno di voi ha avuto a che fare con questo modulo ???
Di seguito le mie prove...
Grazie a chiunque possa darmi una mano...
use MIME::Lite;
 
$msg = MIME::Lite->new(
                 From    =>'
mye...@dominio.it
',
                 To      =>'
tuae...@dominio.it
',
                 Subject =>'Questo e' il Soggetto della Email',
                 Type    =>'TEXT',
                 Data    =>"Here's the GIF file you wanted"
                 );

Ho scoperto di aver dimenticato un pezzetto che mi ha consigliato un
amico,
ma non funziona lo stesso...
accetto utili consigli

   MIME::Lite->send('smtp', "
exvenaria.venaria.marelli.it
",
Timeout=>60);
   $msg->send();

    $msg->send();
Non ho mai usato MIME::Lite, ma cosi' "a occhio" per me dovresti usare il 
metodo send sull'oggetto $msg, ovvero:
$msg->send(....)
-- 
Saluti,
Giancarlo

                  );
-- 
Jhon "Vento" Williams
Bologna(It)
ven...@libero.it

Newsgroup: it.comp.lang.perl
Titolo: Piccola domanda con le regexpr

Esiste un modo per verificare la presenza di una sequenza di n caratteri
uguali consecutivi all'interno di una stringa.
ad esempio, con n= 2 il sistema dovrebbe individuare
stringaaaaa
stringbb
ma non stringabab
naturalmente per qualsiasi carattere stampabile
sono quasi certo che sia possibile, però mi manca il modo
grazie a chi mi aiuta... ;-)

Aioe wrote:

Così becchi 2 caratteri uguali consecutivi:
$text =~ /(.)\1/;
Così ne becchi 3:
$text =~ /(.)\1\1/;
etc.
Se vuoi catturare /tutti/ i caratteri doppi (non soltanto il primo):
@caratteri_doppi = $text =~ /(.)\1/g;
Nota che con gli esempi di cui sopra beccheresti anche spazi e 
tabulazioni: se non è quello che vuoi, devi usare un pattern più 
restrittivo, tipo:
$text =~ /(\S)\1/;
oppure:
$text =~ /([A-Za-z])\1/;
etc.
Infine se intendi per doppie anche le lettere con case diverso, tipo 
"zZ", allora:
$text =~ /([a-z])\1/i;
Se vuoi una cosa più modulare puoi scriverti una subroutine che prende 
"n" in ingresso e restituisce la regex corrispondente.
Ciao,
Emanuele.

 Emanuele.
grazie ;-)
Newsgroup: it.comp.lang.perl
Titolo: Perl: l'unica cosa che vedrò finchè non lo imparo

Causa ricatto che non vi sto a spiegare, devo
imparare almeno le basi del perl e almeno le basi
per interfacciarmi ad un database sql e gestirne
i dati (da perl).
Avete qualche idea/consiglio per qualche supporto
cartaceo o online "light" ma ben fatto che miri (per ora)
a queste cose?
Thnks
The Bos

devi sicuramente usare il modulo DBI piů il DBD corrispondente... non li ho
ancora affrontati quindi cerca un po' in rete..



Su 
cgipoint.it
, alla sezione tutorial, mi sembra di aver visto qualcosa,
ma non assicuro niente!
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

Newsgroup: it.comp.lang.perl
Titolo: cancellare parte di stringa

Salve a tutti,
come posso fare a cancellare ad esempio i primi 5 caratteri di una stringa??
Grazie 1000
Luca

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

come posso fare a cancellare ad esempio i primi 5 caratteri di una stringa??
substr($stringa, 0, 5) = '';
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 substr($stringa, 0, 5) = '';
Pero' $stringa resta immutato, mentre lo si voleva con 5 spazi all'inizio.



$stringa non resta immutato. Se perč uno ci vuole 5 spazi (ma non č questo
che di solito si intende con "cancellare") puņ fare:
 substr($stringa, 0, 5) = ' ' x 5;
Max

 Pero' $stringa resta immutato, mentre lo si voleva con 5 spazi all'inizio.
Non e` quello che hai chiesto prima, btw: s/^.{5}/     /;


 Non e` quello che hai chiesto prima, btw: s/^.{5}/     /;
[...]

 Pero' $stringa resta immutato, mentre lo si voleva con 5 spazi all'inizio.
Ma io dico:
Se uno non sa le cose, perche' non:
1- Coglie occasioni irripetibili per tacere;
2- Si assicura di aver capito cosa viene chiesto;
3- Approfitta degli interventi degli altri per imparare qualcosa;
4- Fa girare due righe due di codice prima di sostenere tesi sbagliate?
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/

2- Si assicura di aver capito cosa viene chiesto;
OK avevo capito male la domanda, se devo anche sentire la predica per
questo... In altre occasione credo di aver dato risposte utili,
cmq chiedo scusa per l'errore.

Newsgroup: it.comp.lang.perl
Titolo: modulo net-rawIP...problemi di installazione

sotto red hat 6.1 (con perl5) ho provato ad installare il pacchetto
net-RawIP-0.09c.tar.gz
dando il make Makefile.PL sembra vada tutto bene ma al
comando successivo (make) leggo questo errore
RawIP .xs:36: pcap.h :no such file or directory
make:***[rawip.o] error 1
eppure l'header è presente (usr/include/pcap/pcap.h)....
qualcuno può darmi un consiglio?
ciao


Sostituisci "#include <pcap.h>" con "#include <pcap/pcap.h>" in RawIP.xs.
 
Max

in data Sun, 29 Oct 2000 23:30:54 +0100,  Max M.  scriveva: 

ho fatto come mi hai suggerito (a proposito, ti ringrazio) ma i problemi
non sono finiti... ora trovo scritto
In file included from RawIP.xs:36:
/usr/include/pcap/pcap.h:42: net/bpf.h: No such file or directory
make: *** [RawIP.o] Error 1
solo che in RawIP.xs non c'è nessun riferimento a bpf.h
(che si trova in /usr/include/pcap/net/bpf.h)
ho provato alcune modifiche, ma nessun risultato...
ciao e grazie



Allora fa così: 
Ripristina la versione originale di RawIP.xs.
Apri Makefile.PL e cerca l'istruzione WriteMakefile.
Cerca l'argmento INC, se non c'è lo crei, e aggiungi
 "-I/usr/include/pcap/" al suo valore, cioè:
  INC => '<quello-che-già-c'è> -I/usr/include/pcap/'
 
 make clean
 perl Makefile.PL
 make 
Bye,
Max

 make 
perfetto!!! funziona tutto a meraviglia....
grazie per l'aiuto!
ciao

 (che si trova in /usr/include/pcap/net/bpf.h)
e' nel file pcap.h che c'e' un errore.
puoi sempre fare un link simbolico del file in /usr/include/net/
Oha

Newsgroup: it.comp.lang.perl
Titolo: Aiuto!!!

Salve a tutti,
sapreste darmi un aiuto su come creare un programma perl per la lettura
delle e-mail da web?
Grazie in anticipo.



Se il tuo scopo non e` prprio quello di farlo da zero, esiste ad esempio
MonArc 
http://www.oac.uci.edu/indiv/ehood/mhonarc.html
 che trasforma
mailboxes in pagine html, il problema sara` poi come fare leggere le
mailbox di utenti all'utente 'nobody' o comunque l'utente a nome del quale
gira http.
Ciao,
-debe
No kings, no presidents, just a rough consensus and running code.

 wrote:
:> sapreste darmi un aiuto su come creare un programma perl per la lettura
:> delle e-mail da web?
: Usa i moduli smtp + pop3 + CGI , il programma č piuttosto semplice ma ci
Un'alternativa potrebbe essere quella di convertire la mailbox in una
struttura di pagine web con un programma (Perl :-) come MhOnArc
http://www.oac.uci.edu/indiv/ehood/mhonarc.html
e gestire mail in uscita e reply con dei CGI.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
Newsgroup: it.comp.lang.perl
Titolo: In linea

l'ip e poi verifichi che l'untente sia connesso o meno.
Puoi appunto prelevare l'IP e, tramite un cronjob (se il tuo provider te
lo consente) "pingarlo" periodicamente. Naturalmente questo non e` un
metodo efficacissimo, poiche' potrebbero esserci di mezzo proxy, reti
mascherate, ...
Forse la soluzione migliore e` mandare un cookie con una breve scadenza
al browser... quando l'utente ri-naviga verifichi se il cookie e` ancora
presente. Non sono tuttavia sicuro che sia quello che vuoi tu... ;)
	A presto, 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!

 wrote in message
slrn8ka4...@karma.italpro.to...


Newsgroup: it.comp.lang.perl
Titolo: IIS4 + Perl... Come?

Salve a tutti,
vorrei riuscire a far eseguire dei semplici scripts PERL su un server NT4
con IIS4. Ho installato il perl e tutto il necessario ma quando da un client
mi collego all'URL dello script, invece di eseguirlo lo apre! Se invece da
una console DOS digito qualcosa del genere "c:\perl\bin\perl 
pippo.pl
"
funziona e mi restituisce il codice HTML...
Grazie anticipatamente - Alessio

Alexio wrote:

Quale perl hai installato? La versione più conveniente per IIS4 è 
l'ActivePerl che puoi trovare su 
www.activestate.com
, che configura già 
da sè IIS4 e anche Windows Scripting Host per usare il perl oltre che 
asp. Comunque, verifica le configurazioni del web sulla console di IIS4. 
Tra le proprietà del sito, alla voce Home Directory -> Configuration, 
verifica che i files con estensione .pl o .plx siano associati 
all'eseguibile perl.exe, o se hai usato ActivePerl, alla libreria PerlIS.dll
Newsgroup: it.comp.lang.perl
Titolo: SPAZIO WEB gratis con perl, quale?

Ciao ragazzi,
perl esiste solo come CGI oppure è possibile includerlo nel codice html
come si fa con php?
Mi sapete consigliare qualche ottimo spazio web gratis con supporto
perl? (anche non italiano)
grazie! 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

come si fa con php?
Per embeddare Perl in codice HTML esistono numerose soluzioni, tutte
diponibili via CPAN.
Apache::ASP
HTML::Embperl
HTML::Mason
In realta' il mo favorito e' una altro:
HTML::Template
Quest'ultimo ha il pregio di separare completamente la parte Perl
dalla parte HTML, e quindi le programmatori e designer possono
lavorare contemporanemanete sun un sito senza rompersi le palle a
vicenda.
Tutti ovviamente sono  molto piu' performanti se fatti girare sotto
mod_perl che non tramite CGI.

Newsgroup: it.comp.lang.perl
Titolo: mail::mailer, ma senza programma mail :-(

ho scritto quanto segue
use Mail::Mailer;
$mailer = Mail::Mailer->new();
# più altre cose, ma tanto si inchioda già alla seconda riga
# nome di questo script = 
sendmail.pl
uso activestate, WinNT
ho lanciato lo script dalla shell dos con il comando
perl 
sendmail.pl
 
beccandomi la risposta riferita alla riga due
No mailer type specified (and no default avaible), thus can not find
executable program.
****
domanda: bisogna avere un programma specifico ? dove si trova?
****
scusate la mia ignoranza, ma a furia di trovare la pappa pronta da parte
dei nostri addettia informatici, certe cose non so neache che esistono
umilmente vostro, antonio







Appunto. Esistono delle pagine di manuale che spiegano come funzionano i
moduli.
In particolare, Mail::Mailer ha una sequenza di mailer preferenziali da usare:
mail, sendmail, SMTP nell'ordine, ovvero dal livello piu' alto al piu' basso.
Siccome tu sei su NT e non hai ne' sendmail ne' mail, probabilmente devi
esplicitamente dire al modulo di usare SMTP (e indicare il server SMTP al
quale si deve collegare).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

quale si deve collegare).
oppure usare "blat" un eseguibile tipo "mail", non credo si possa
usare tramite Mail:Mailer ma e' semplice e ci dovrebbero essere dei
semplici front-end in giro (io ne ho uno, se vuoi...).
Ciao
Martino

 ha
scritto:
Usa Mail::
sender.pm
.
é molto semplice. E funziona sotto NT.
Ciao!!
__________________
DinoGen
http://members.tripod.com/dinogen
Togli CIVETTA dal mio indirizzo per rispondermi.

grazie, era proprio quello che cercavo!
ciao, antonio

Newsgroup: it.comp.lang.perl
Titolo: Principiante e sql

Dove posso trovare informazioni utili per questa interfaccia?
Grazie

 Dove posso trovare informazioni utili per questa interfaccia?
Interfaccia? Quale? Mi sono perso qualcosa?
SQL e' un linguaggio di query, non un interfaccia.
Per quanto riguarda le informazioni, non mi meraviglierei se andando su
qualche sconosciuto motore di ricerca e cercando SQL non vengano fuori
qualche migliaio di siti. Per la cronaca 'SQL tutorial' cercato in italiano
su Altavista fornisce 9808 riscontri. Anche solo prendendo i primi della
lista, qualcosa adatto a te lo trovi.
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: allegati

Qualcuno sa dirmi come fare un formmail che invii un allegato o dove ne
posso trovare un già funzionante?
Grazie
                                      Alessio

mime tools


 wrote in message
39F87697...@espressoedit.it...


Newsgroup: it.comp.lang.perl
Titolo: Neofita cerca aiuto!

Ciao a tutto il NG!
Premetto che non conosco il Perl (ho appena iniziato a studiarlo), ma ho
discrete conoscenze di html e so anche qualcosina di Java (anche se non so
se mi possa servire).
Ho un form su una pagina html dove sono presenti due domande con ogniuna 2
risposte selezionabili tramite dei "radio button"
In fondo alla pagina ho un pulsante per permettere l'invio del form.
Questo è grossomodo il codice che dovrebbe essere spedito:
1=*&2=*     al posto degli asterischi c'è scritto il numero 1 o il numero 2
(a seconda delle risposte che sono state selezionate)
Il mio problema è il seguente:
- come faccio a fare in modo che quando clicco il bottone "invia form"
questo venga spedito ed elaborato dal mio programmino in perl?
- come faccio a far riconoscere al programma in perl il codice che ho
scritto sopra ed a fare in modo che lo elabori?
- in particolare dovrei dire al programma che se al carattere 3 del form
inviato trova il numero "1" allora deve leggere il file a.txt e incrementare
di 1 al valore che c'era scritto all'interno.
Come si fa? Avete qualche suggerimento da darmi?
Sono completamente arenato!
Grazie,
Ken



Prova a guardare su
http://cgipoint.html.it/tutorial/
http://cgi.webjuice.it/links/Guide_e_tutorial/
.... e ci sono molti altri siti del genere.
 Raffaello

 ha scritto nel messaggio
news:Pine.OSF.4.31.020709...@harry.molgen.mpg.de...


Grazie per la dritta!"
Ciao,
Ken
Newsgroup: it.comp.lang.perl
Titolo: ActivePerl

l'ho scaricato, l'ho installato... ora che ci faccio? è buono? 
meglio/peggio/come l'originale?

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

Newsgroup: it.comp.lang.perl
Titolo: Calcolare le differenze di tempo

Ciao a tutti.
Vorrei fare un programmino in perl che faccia la differenza tra le date di
due eventi nel log. Chi mi sa segnalare il nome di un modulo (c'e' un modulo
per ogni cosa, vero :-) )  che implementi queste operazioni?
Grazie anticipatamente.
-- 
Ciao
Nico

 wrote:
: Vorrei fare un programmino in perl che faccia la differenza tra le date di
: due eventi nel log. Chi mi sa segnalare il nome di un modulo (c'e' un modulo
: per ogni cosa, vero :-) )  che implementi queste operazioni?
Date::Manip
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nando


Proprio cio' che mi serviva, grazie mille.
-- 
Ciao
Nico

Newsgroup: it.comp.lang.perl
Titolo: aiuto !! invio e-mail

dispongo di uno spazio gratuito su un server IIS di Microsoft che gira sotto
Windows 2000 e vorrei aggiugere al mio sito la possibilità di implementare
un form di registrazione al sito che invii automaticamente una e-mail di
benvenuto agli utenti che si registrano.
Come posso fare per realizzare questo progetto ?.
 Ho provato a cercare dei programmi/script nella Rete ma la maggior parte
sono per sistemi Unix (richiedono la presenza di sandmail), e altri
richiedono la presenza sul server di programmi di posta a cui collegarsi, ma
siccome non sono io l'amministratore del server e non riesco a contattarlo
desidererei una procedura generale in linguaggio di programmazione in modo
che possa funzionare indipendentemente dalla struttura software del server
che mi ospita.
grazie.


Newsgroup: it.comp.lang.perl
Titolo: Problema con "split": come mantenere il pattern all'interno delle stringhe?

Ciao a tutti!
Vi scrivo perché ho un problema. Ho un lungo file di testo da splittare.
Vorrei agire come segue:
  $regex = "\s{4}(\w*?)\s{3}";
  @array = split (/$regex/, $input_file);
in realtà regex è molto più complicata, ma il succo è che io vorrei che
ciò che il "taglio" avvenga all'inizio del pattern, ovvero che questo
non venga rimosso dato che cambia e devo sapere che cosa ha
riconosciuto.
Spero di essere stato sufficientemente chiaro, grazie a tutti per la
collaborazione!
Andrea
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
Ancora ciao,
ho risolto il mio piccolo problema e lo posto dovesse servire a qualcun
altro. Gli strumenti per lo scopo si chiamano "Lookahead" e
"lookbehind".
Se voglio trovare le occorrenze di PATTERN1 seguito da PATTERN2, senza 
che quest'ultimo venga inclusa nel pattern (vedi per lo splitting):
split( /PATTERN1(?=PATTERN2)/, $thistring);
A presto, andrea


 A presto, andrea
Grazie!! Ne so' una di piu' grazie a te.
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: Domanda semplicissima..

mi servirebbe un " if( )" con all'interno il codice per
trovare se una stringa č contenuta in un'altra senza fare distinzione tra
maiuscole e minuscole.
Penso sia semplice...manon per me!
Grazie
F.

maiuscole e minuscole.
if ($stringa =~ /$sottostringa/i) {
  ...
}
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!


Ciao  Michele, quanto tempo mi risparmi... e io ne ho davvero poco. :-)
Grazie!

 Ciao  Michele, quanto tempo mi risparmi... e io ne ho davvero poco. :-)
ne abbiamo tutti pochissimo!
--
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: Settare variabili d'ambiente unix

Ciao,
all'interno di un programma devo richiamare un certo processo e prima devo
settare le variabili d'ambiente (sono in csh), vi chiedo: è giusto fare:
system ("source xxxxxx_setenv.sh");
apparentemente non funziona perchè digitando il comando 'env' non vedo le
variabili d'ambiente che dovrei.
Grazie
 Andrea

variabili d'ambiente che dovrei.
E' facile che le variabili siano settate in un processo figlio che,
terminando, lascia poi tutto come prima.
Dovresti forse modificare lo script di shell che usi (non so come). Se no,
puoi usare la variabile $ENV di perl, che dovrebbe fare la cosa giusta (ma
sempre all'interno del processo in cui è eseguito lo script perl, o dei
suoi processi figli).
Ciao.

 ha scritto nel
messaggio news:b6uq3h$99hpf$
1...@ID-174219.news.dfncis.de

Perché così setti le variabili all'interno del processo figlio (quello
avviato da system) che poi vanno perse in uscita.
Puoi settare (come detto da Giovanni Zezza) $ENV e poi lanciare
il programma che ti serve. Oppure lanciare uno script di shell
tipo
PIPPO="PALLA"
/path/del/comando
invece del comando vero e proprio.
--
Valerio Granato
http://www.musicoff.com
 - Music Online For Free
La Grande Comunità Online per Musicisti

Il Tue, 8 Apr 2003 17:22:36 +0200, Andrea Meroni ha scritto:
Faresti meglio a girare la domanda a it.comp.os.linux.develompment.
Grazie,
-------
KRaL
-------



Una perlfaq recita (tradotta):
Ho {cambiato directory, modificato l'ambiente} in uno script perl. Come
mai la modifica è svanita quando lo script è terminato? Come posso
rendere visibili i miei cambiamenti?
Unix
In senso stretto, non può essere fatto--lo script viene eseguito come
un processo differente da quello della shell da cui è partito. I
cambiamenti di un processo non si riflettono al processo genitore--solo
in ogni processo figlio creato dopo il cambiamento. C'è una magia della
shell che permette di aggirare questo mediante l'eval() dell'output
dello script nella vostra shell; per i dettagli si guardi la FAQ di
comp.unix.questions .
Newsgroup: it.comp.lang.perl
Titolo: Creare uno script ... come ?

Dunque.. io creo il mio script con Mac PERL (su mac os) e lo metto su un
server che usa Win NT ...
Quando lo provo su Mac OS va tutto bene ... ma quando lo provo sul sito mi
dice :
(nomefile) script produced no output
Perche ??
Come devo fare ?? qualcuno mi puo dare un codice di esempio che posso
provare ?
Ciao e grazie,
Giovanni

Ok .. sono riuscito a far comparire una scritta.. il problema era che
salvavo il file in un formato sbagliato...
*** Altra domanda : come faccio a fare una pagina HTML con un bottone submit
e una casella di testo che quando premo submit, tramite lo script, mi salva
in un file il contenuto della casella di testo e la volta successiva fa la
stessa cosa mantenendo il contenuto di prima ??
Ciao e grazie,
Giovanni

(nomefile) script produced no output
Le ragioni possono essere molteplici. La piu` comune riguarda il content
type. Assicurati che la prima riga dell'output del tuo script sia:
Content-type: text/html
(con due \n) alla fine, in modo da lasciare una riga bianca.
L'istruzione Perl sarebbe quindi:
print "Content-type: text/html\n\n";
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/