mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: come faccio a stampare una stringa che contiene "

Domanda stupida.
Come faccio a stampare con print () una stringa che contiene il
carattere "
Grazie
Roberto

 wrote:
:)Domanda stupida.
:)Come faccio a stampare con print () una stringa che contiene il
:)carattere "
se la stringa si chiama $s basta che fai
print $s;
se il problema e' come scrivere in uno script usa il carattere \ prima
di " cosi' "proteggi" il carattere dall'interprete
$s="<A href=\"mailto:
qual...@qualcheposto.it
\">email</A>"
Oha

 $s="<A href=\"mailto:
qual...@qualcheposto.it
\">email</A>"
Attenzione che qui dovresti mettere anche un ALTRO \, precisamente
di fronte alla @ (se no cerca di interpolare l'array @qualcheposto...:-).
Se non hai necessita` di interpolazione, meglio circondare la stringa
con apici singoli.
In generale, le funzioni-quotanti qq (se serve l'interpolazione) e q (se
non serve) permettono di evitare parecchi (per qq) o alcuni (per q)
caratteri di escape \, e spesso offrono cosi` miglior leggibilita`.
Alex

Newsgroup: it.comp.lang.perl
Titolo: Come leggo il "Nome Utente"?

Ho bisogno di riportare in un campo del form di una pagina, che si trova in
una directory controllata da .htaccess su server Apache, il NomeUtente che è
stato utilizzato per l'accesso alla sezione riservata.
Qualcuno sa indicarmi come posso reperire questo valore?
Grazie e Auguroni di Buon Anno Nuovo

 
Sta nella variabile d'ambiente REMOTE_USER.
Se nel tuo script quella variabile risulta vuota, vai a leggerti la
domanda 12 nelle FAQ di Apache.
http://www.apache.org/docs/misc/FAQ.html#remote-user-var
Max

Newsgroup: it.comp.lang.perl
Titolo: lettura file

Questo programma legge un file di testo e mi visualizza il contenuto,
funziona... quasi... :o) se metto dei ":" (duepunti) in qualunque punto del
file il programma non va...
il prog. l'ho testato sotto win98 con xitami srvr e activeperl
#! \usr\bin\perl
open(FILE, '<dati.txt');
while($a = <FILE>)
{
 print "$a";
}
close(FILE);
Cosa c'è che non va?? :o)))
cia oe grazie!!!

 wrote in message 8gmo7r$46e$1...@nslave1.tin.it...

Ciao,
ho testato il tuo script con Apache 1.3.12 e ActivePerl 5.22 (Win98). Con
queste piccole modifiche mi legge qualsiasi file gli dia (anche con duepunti
inclusi).
Bye, Ezio BOnsi
#!/usr/bin/perl
open(FILE, '<dati.txt');
print "Content-type:text/html\n\n";
print "<html><head></head><body>";
while($a = <FILE>)
{
 print "$a";
}
print "</body></html>";
close(FILE);

Newsgroup: it.comp.lang.perl
Titolo: Quali sono i moduli standard Perl?

Quali sono i moduli standard Perl?
Dove posso trovare una documentazione in linea possibilmente in italiano?
Grazie

 Quali sono i moduli standard Perl?
 I moduli standard sono distribuiti con Perl stesso.
 Quelli non standard, si trovano su CPAN 
http://www.perl.org/CPAN/
 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: dubbio sul funzionamento di split

come mai questo:
print "\n a)", scalar split /:/, ':';
print "\n b)", scalar split /:/, ':a';
print "\n c)", scalar split /:/, ':a:';
scrive questo:
 a)0
 b)2
 c)2
e non questo:
 a)1
 b)2
 c)2
come credevo?
ok, b e c sono splittati allo stesso modo (campo finale vuoto come
dice perlfunc), ma non capisco perchè nel caso a venga scartato anche
il campo iniziale vuoto.
grazie.

il campo iniziale vuoto.
Immagino perché accade che il campo iniziale vuoto sia anche uno dei campi
finali vuoti.
Ciao.

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

Salve,
Qualcuno sa' come utilizzare la crittografia MD5
in perl o trovare informazioni a riguardo ??
Grazie
Claudio
c...@athesis.com

 in perl o trovare informazioni a riguardo ??
 
http://search.cpan.org/search?dist=Digest-MD5

Newsgroup: it.comp.lang.perl
Titolo: Compress::Zlib incompatibilita' tra deflate e gzopen

 ICQ# 33538863
Home Page: 
http://www.students.cs.unibo.it/~zacchiro
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"

buffer che contiene dati compressi.
i file .gz in più hanno un header (nome del file, dimensioni compresse e 
non compresse, checksum, eccetera)

non compresse, checksum, eccetera)
quindi per decomprimerli 'on the fly' in memoria devo togliere questo
header (c'e' anche un trailer in coda ?).
C'e' un modo comodo di farlo, o devo studiarmi il formato dei file gzip?


 C'e' un modo comodo di farlo, o devo studiarmi il formato dei file gzip?
gzopen() accetta anche un filehandle come argomento; quindi immagino si
possa usare gzread per leggere direttamente dal socket (che mi pare sia
quello che ti interessa fare).
Max

Newsgroup: it.comp.lang.perl
Titolo: Errore nel Perl!

Ho la mandrake 8.1 e non riesco ad utilizzare applicazioni in perl
correttamente in quanto
ho un errore credo nel perl stesso, ecco l'errore che viene fuori
quando cerco di eseguire qualcosa in perl o quando semplicemente
scrivo perl in console:
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
        LANGUAGE = "it_IT:it",
        LC_ALL = (unset),
        LC_MESSAGES = "it_IT@euro",
        LC_TIME = "it_IT@euro",
        LC_NUMERIC = "it_IT@euro",
        LC_CTYPE = "it_IT@euro",
        LC_MONETARY = "it_IT@euro",
        LC_COLLATE = "it_IT@euro",
        LANG = "it"
    are supported and installed on your system.
--------
ICQ#: 18067865
Mail: 
mich...@msn.com

grazie ho risolto lurkando vecchi messaggi che non avevo visto prima

Newsgroup: it.comp.lang.perl
Titolo: aiutino piccolo (spero)

Salve a tutti, sono ai primi passi in perl , ma mi servirebbe fare una
cosetta urgente:
i log dell'http iniziano con l'indirizzo ip del client, lo stesso magari
si ripete 50 volte, allora volevo fare uno scriptino che mi lascia solo
uno di ciascuno, come potrei fare ?!?!
grazie carlo
reply to 
ca...@unica.it
grazie

 uno di ciascuno, come potrei fare ?!?!
Io farei cosě: parsi tutto l'access.log e inserisci in un hash tutti gli ip
(come chiavi) con il numero di ricorrenze (che incrementi ogni volta che ne
trovi uno). Poi fai un dump dell'hash creato e hai il risultato su stdout.
In breve:
my $file = 'access.log';
my %ip_addr;
open F, $file
   || die "Cannot open $file: $!";
while (<F>) {
#   print "$.\t";
   /^(\d+\.\d+\.\d+\.\d+) -/;
   $ip_addr{$1} = (exists ($ip_addr{$1})) ? $ip_addr{$1}+1 : 1;
}
close F;
foreach (sort keys %ip_addr) {
   print "$_\t: $ip_addr{$_} times\n";
}
Cya, Ezio.

 
-- 
Saluti,
Giancarlo

 $ip_addr{$1}++;
ho provato e in effetti funge...
l'avevo messo per evitare di avere errori con ++ su undef, ma tutto funziona
senza problemi come suggerito da te :)
ciao, Ezio.

Ezio Bonsi wrote:

Non c'e' nessun problema se $ip_addr{$1} non e' definito, il perl lo 
considera 0 e con ++ diventa 1 :-)
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: Funziona ma non tutto

Ho questo script che funziona perfettamente ma ha un problema guardate la
stringa 
http://127.0.0.1/cgi-bin/t.pl?nome=$nome
 sembra corretto ma lui
invia 
http://127.0.0.1/cgi-bin/t.pl?nome=$nome
 e non
'
http://127.0.0.1/cgi-bin/t.pl?nome=cosa
 ha ricevuto
Avete capito qual'č il prob Grazie in anticipo!
#!C:/perl/bin/perl
use CGI 'param';
$nome = param('nome');
  use LWP::UserAgent;
  my $ua = LWP::UserAgent->new;
  my $req = HTTP::Request->new(GET =>
'
http://127.0.0.1/cgi-bin/t.pl?nome=$nome'
);
  my $res = $ua->request($req);
  if ($res->is_success) {
      print $res->as_string;
  } else {
      print "Failed: ", $res->status_line, "\n";
  }

'
http://127.0.0.1/cgi-bin/t.pl?nome=$nome'
);
sostituire con:
"
http://127.0.0.1/cgi-bin/t.pl?nome=$nome
");
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: newbie: che devo fare per imparare PERL?

scusate la domanda che ai piů potrebbe sembrare estremamente lamerosa, ma
non so da dove cavolo partire...ho preso una guida ma non si capisce una
mazza, ho installato linux ma ho continuamente le mani nei capelli...NON SO
PIU' CHE FARE, MI DATE UNA MANO?!?!?!! :ç)
ciao e grassie :ç)

 PIU' CHE FARE, MI DATE UNA MANO?!?!?!! :ç)
[...]
$ cd /usr/bin
$ man *
$ cd /usr/sbin
$ man *
$ cd /sbin
$ man *
Prendi dei buoni libri su Linux/Unix e Perl (il Lama "Learning Perl" e
il Cammello "Programming Perl"  della O' Reilly - sono anche tradotti in
Italiano, ma la traduzione e' discutibile). Leggili.
Leggi le FAQ del perl. Rileggile.
Rilassati. Bevi un caffe'. Leggi la documentazione con attenzione. Se
non hai mai programmato,
prendi anche un libro di elementi di programmazione.
Poi posta sui NG, facendo domande circostanziate.
Usenet non ti puo' aiutare su "Linux e Perl". Ti puo' aiutare su qualche
argomento di Linux
e qualche argomento di Perl (es. Come si usa unpack per fare <foo>?) 
Cheers,
	Alessandro

 Leggi le FAQ del perl. Rileggile.
Alessandro,
confermo quanto dici, non trovando di meglio ho comprato
la versione italiana del Cammello e, rispettando la tradizione
Jackson, fa abbastanza schifo.
-- 
Ossequi,
PastaMatic2000

nu...@tin.it
 wrote:
 >scusate la domanda che ai piů potrebbe sembrare estremamente lamerosa, ma
 >non so da dove cavolo partire...ho preso una guida ma non si capisce una
 >mazza, ho installato linux ma ho continuamente le mani nei capelli...NON SO
cd /usr/lib/perl5/pod
for i in *.pod; do
pod2html --noindex --podpath=/usr/lib/perl5 \
        --podroot=/usr/lib/perl5 \
        --infile=$i --outfile=`basename $i .pod`.html
done
ln -s perl.html index.html
netscape index.html &
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
Newsgroup: it.comp.lang.perl
Titolo: A proposito di AT

Salve a tutti,
da tempo stavo cercando un modo per avere uno schedule in windows fatto
in perl...
Oggi ho pensato ad un avvicinamento al problema più semplice di cosa
fatto fino ad ora: cercare su CPAN :-)
Ho trovato questo:
http://search.cpan.org/~joserodr/Schedule-At-1.04/At.pm
Il modulo funziona nel senso che riesco ad installarlo e a eseguire
senza problemi lo script di esempio che viene proposto ma...
purtroppo... nel momento in cui ho prefissato un semplice 'ls' non
succede nulla...
Sbaglio qualcosa?
PS Sia su linux sia su windows...
<CODE>
use Schedule::At;
Schedule::At::add (TIME => '200408101530', COMMAND => 'ls');
print "Comando AT avviato\n";
</CODE>
-- 
nathanvi
ICQ --> 20318568
mail --> vitto.z A_T 
tiscali.it

 writes:
...
nathanvi> Riesco ad [...] eseguire senza problemi lo script di esempio
...
nathanvi> 'ls' non succede nulla...
...
nathanvi> Sbaglio qualcosa?
in quello che hai scritto non sembra di vedere errori, non e` che ti
sei dimenticato di cambiare l'ora dopo il primo test che ha funzionato?
nathanvi> Schedule::At::add (TIME => '200408101530', COMMAND => 'ls');
prova a specificare il percorso (sugli unix ls e` un programma in /bin/,
su windows (COMMAND o CMD) dubito che sia piu` di un alias di DIR),
alternativamente in unix c'e` il programma at(1)
Saluti,
MARco
-- 
xref: 
http://mar.i.am/~u16667.30859/it.comp.lang.perl/ls_at,it
x(t),y(t) = th(3t-34.5)*e^[-(3t-34.5)^2]/2-4.3+e^(-1.8/t^2)/(.8*atg(t-
3)+2)(t-1.8)-.3th(5t-42.5),(1.4e^[-(3t-34.5)^2]+1-sgn[|t-8.5|-.5]*1.5*
|sin(pi*t)|^[2e^(-(t-11.5)^2)+.5+e^(-(.6t-3.3)^2)])/(.5+t)+1  ; 0<t<14

 alternativamente in unix c'e` il programma at(1)
Sure ma a me interessava proprio in windows :-)


Sure ma a me interessava proprio in windows :-)
Se anche in windows funziona come interfaccia al comando "at", in
Win2000 (o a partire da w2000) c'e' il comando, ma nelle versioni
precedenti no.
Sostituisci a "ls", ad esempio, "dir", dato che non e' garantito che
tu abbia a disposizione anche "ls" in windows (non e' un comando di
windows).
Inoltre il comando "at" in windows non carica in automatico
l'interprete dei comandi, quindi se devi eseguire uno script (.cmd,
.js, .vbs, etc.) non ci sono problemi, ma se devi usare dei comandi
devi specificare anche l'interprete di comandi, es: "cmd dir".
'bye

Newsgroup: it.comp.lang.perl
Titolo: che figlio di buona donna

U04768 put olivetti a 2,5 scadenza dic 01
(unicredito)
prezzo denaro-lettera 0,1390 0,2490
ovverossia per guadagnare a scadenza
olivetti devi scendere sotto 0,001 
massimo guadagno 0,001 nel caso arrivasse
a 0!
;->


pardon.. sbagliato ng :PPP
un lurker...

Newsgroup: it.comp.lang.perl
Titolo: installazione DBI

Come faccio ad installare DBI????
Ho perl e Apache sotto win2000.
grazie, Nicola
____________________________________________________________________
Get free email and a permanent address at 
http://www.netaddress.com/?N=1
-- 
Posted from 
nwcst284.netaddress.usa.net
 [204.68.23.29] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG





Prova con PPM dal prompt di dos, poi digita ? per 
la guida dei comandi.


Ovviamente devi essere on line


 


Ciao
Newsgroup: it.comp.lang.perl
Titolo: Problemi settaggio CHMOD con WSFTP

Utilizzo WSFTP Pro ma nel settare i permessi con CHMOD su un server
unix, modificando o un file o una directory si modifica tutto il sito.
Ciņ se per esempio passo da 664 a 775 su un file mi passa tutto il
sito (file e directory) a 755.
Come mai?
Come posso fare?
Ciao







Newsgroup: it.comp.lang.perl
Titolo: Piu' occorrenze

Salve a tutti,
ho una stringa nella quale ci sono più indirizzi di posta elettronica e
vorrei recuperarli tutti e metterli in un array.
Il mio problema è che riesco ad acchiappare soltanto il primo indirizzo
ma se la stringa ne contiene 10 come posso fare?
<code>
if($pars->{msg}->[1]=~/([^\t|\s|\n|\<|\>]+\@.+\.\w{1,3})/)  
{ push(@mails,$1),"\n\n"; }
</code>
Grazie per eventuali aiuti!
-- 
Per risposte private: 
vitto....@SPAMMAREtiscali.it
sito: 
http://nathanvi.it
FAQ OpenOffice: 
http://openoffice.nathanvi.it
Centro Studi Raffaello:
http://centrostudiraffaello.it/sito/

{ push(@mails,$1),"\n\n"; }
Se non puoi usare un modulo, e senza entrare nel merito dell'espressione
regolare che usi, puoi usare il modificatore /g per catturarne tutte le
occorrenze, ed eventualmente l'ancora \G se vuoi tirar fuori un pezzo alla
volta.
Ciao.

 
Purtroppo Mail::Address->parse funziona soltanto sull'header di un 
messaggio di email, non su un testo generico.
Se si sta processando l'header di un messaggio di email (cosa non 
specificata nel messaggio originario) va bene, ma se si sta processando 
un testo qualsiasi, Mail::Address->parse() fallisce miseramente quasi 
sempre.
Un modulo più adatto alla bisogna (benché dotato di un'interfaccia a 
callback un po' eccentrica) è Email::Find. Ecco come usarlo nel caso in 
oggetto:
	use Email::Find;
	my @mails = ();
	my $finder = Email::Find->new(
		sub {
			my( $email, $orig_email ) = @_;
			push( @mails, $orig_email );
			return $orig_email; #opzionale
		}
	);
	my $text = $pars->{msg}->[1]; #assegnare il testo da scandire
	$finder->find( \$text );
eseguito questo snippet l'array @mails conterrà tutti gli indirizzi di 
email presenti in $pars->{msg}->[1], come richiesto.
La riga:
	return $orig_email;
all'interno della sub di callback serve soltanto per lasciare la stringa 
$text inalterata: se questo non serve la si può omettere.
Se non si vuole utilizzare moduli esterni (ma non vedo alcuna ragione 
per non farlo) il suggerimento riguardo il modificatore /g da applicare 
alla regex è corretto.
Ciao,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: Script per consultare i newsgroup

Salve,
qualcuno sa dove potrei trovare uno script per consultare e
inviare messaggi nei newsgroup ? 
Grazie
Colossus
LCDN - Il portale
al servizio del tuo PC
www.lcdn.it
--------------------------------
Inviato via 
http://usenet.iol.it

 
Su CPAN (
www.cpan.org
) ci sono dei modli apposta, probabilmente trovi gli
esempi dentro la dist. Senno puoi provare a vedere su Network Programming
in Perl, di L.D. Stein. Un ottimo libro che consiglio a tutti
Ciao
-- 
Leo TheHobbit |  I am the "ILOVEGNU" signature virus.  |
IRCnet #roma2 |     Just copy me to your signature.    |
ICQ 56656060  |This email was infected under the terms |
              |   of the GNU General Public License.   |a.d. III Id. Apr. MMDCCLV a.U.C.

Newsgroup: it.comp.lang.perl
Titolo: Ordinare un vettore in perl

Esistono particolari istruzioni per ordinare un vettore in maniera
alfabetica?
GRAZIE

@tuoarray=sort(@tuoarray);
ciao
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

# perldoc -f sort
@A = qw(h j e o a p t m n v c);
print sort @A;
-- 
Posted from qmailr@[195.223.140.135] 


Newsgroup: it.comp.lang.perl
Titolo: Script che non partono

Ho degli script che in locale funzionano perfettamente ma in rete no perchč?
(La prima riga l'ho cambiata)
Grazie!

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

 ha scritto nel messaggio
news:1ehgis4.16yfik9w5un4gN%bale...@mac.com...


 scrive su quel file.
Fai stampare e posta sul NG il valore di $! nel caso in cui non riesce ad
aprire il file.
Max

Newsgroup: it.comp.lang.perl
Titolo: Perl Tk, finestre ed attese...

Scusate, so' completamente niubbo, ma come faccio a dire ad una finestra di
restare inattiva (inutilizzabile) fino alla chiusura di un suo figlio?
Non riesco a raccapezzarmi!
Grazie mille,
   MadMonkey

restare inattiva (inutilizzabile) fino alla chiusura di un suo figlio?
Cioč, vuoi creare una finestra modale? Immagino con DialogBox: Tk non l'ho
mai usato, ma dalla documentazione mi sembra quello con le parole chiave
giuste. In ogni caso, io sono abituato (dall'interfaccia di Windows) a
pensarlo un attributo della finestra figlio, non di quella padre: non č il
padre che aspetta, ma il figlio che non ritorna.
Ciao.
P.S. Gli antispam vanno (eventualmente) messi DOPO la chiocciola, mai prima.

Non so se si chiama finestra modale.
Il problema è che il padre deve essere inattivo finquando il figlio non si
chiude.
Le Dialogbox non permettono la creazione di finestre complesse, ma sono di
warnings e simili con risposte Si/No, Annulla/Riprova/Ignora et similia.
Ah, non ho ben capito la parabola del figliuol prodigo ^___^ !
Aiutatemiii!
   MadM
P.S. Grazie per il consiglio sugli antispam. Non lo sapevo...

 Non riesco a raccapezzarmi!
Prova sempre con google ;)
http://www.perlmonks.org/index.pl?node_id=206365
http://www.perltk.org/ptknews/4128.htm

Ah, non ho ben capito la parabola del figliuol prodigo ^___^ !
Mi pare che invece l'hai capita. ;-) E' se vuoi solo un modo diverso di
vedere la stessa cosa, ma concettualmente č la funzione di gestione della
finestra figlio che decide se qualche evento deve raggiungere la finestra
padre. Io cosě almeno l'ho capita, riguardo all'interfaccia di Windows
(immagino che siano possibili altri modelli).
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: AIUTO

Salve,
ho scritto questo programmino in perl:
#!/usr/bin/perl
# apre il file delle password
open(FILE, "passwd") or die "non posso aprire passwd: $!";
# divide il file in record
while  (<FILE>)
{
@passwd=split(/:/,$_);
$a=@passwd[4];
#print $a;
# scrive in un file tutti gli utenti esterni
if (substr ($a,0,3) ne "int")
        {
	 print @passwd[4];
#        open (FILE2, "utenti.txt");
#        print FILE2 "$a";
        }
close (FILE2);
}
ma non mi scrive nel file utenti.txt.
Cosa posso fare????
Grazie in anticipo.

 Cosa posso fare????
Due cose:
Numero 1] open(FILE2, ">utenti.txt") or di "Blarf!";
          Nota il segno di maggiore prima del nome del file.
Numero 2] Devi spostare la open di FILE2 prima del ciclo while e la
relativa close dopo.
          Cioe':
	open (FILE2, ">utenti.txt") or die "Cannot open utenti.txt:$!";
	while(<FILE>) {
	...
	}
	close(FILE2);
	e questo perche' innanzitutto, se apri e chiudi il file ogni volta, lo
sovrascrivi
	con l'ultima linea di output - a meno che tu non lo apra in append;
secondo, aprire e 
	chiudere un file tante volte e' atrocemente inefficiente. Se non vuoi
lasciare in giro un file
	vuoto quando non trovi utenti esterni, tieni un contatore delle linee e
rimuovi il file
	alla fine del loop.
Poi, puoi guardare getpwent - che e' il modo "giusto" di ciclare sulle
password ;)
Cheers,
	Alessandro

Newsgroup: it.comp.lang.perl
Titolo: html e perl

pagina html da cui e' stato lanciato?
una possibilitą:
puoi inserire il parent location in un hidden input del form per farlo
analizzare poi dal tuo script
<SCRIPT Language="JavaScript">
<!-- begin location code
{
document.write("<input type=hidden name=parent
value="+parent.location+">");
}
//-->
</SCRIPT>
ciao
gianfranco
WSP developer
campeggi.com

pagina html da cui e' stato lanciato?
Suppondendo che NON si tratti di un SSI, puoi leggere il contenuto della
variabile d'ambiente HTTP_REFERER, ad es.:
	$pagina = $ENV{'HTTP_REFERER'};
Funziona praticamente sempre, in quanto quasi tutti i browser la supportano.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Quando chiami il programma puoi anche inviargli dei dati, potresti inviargli
il nome della pagina.
Prova a fare la chiamata in questo modo:
mioprogramma.cgi?nome="pagina.html"
Ciao
Claudio
Michele Beltrame ha scritto nel messaggio ...


Newsgroup: it.comp.lang.perl
Titolo: ordinamento di directory e files.

Salve, e' possibile in Perl emulare il omando DOS dir /ogn ???
Ho bisogno di listare una directory facendo l'ordinamento per nome delle
directory prima dei files solamente non so come fare.
Qualcuno ha idea di come si puo' risolvere ?
Corradini Michelangelo
--
Automatic posted from 
www.interactiva.it
 [195.31.200.1]
via Mailgate Server - 
http://www.mailgate.org

 di come si puo' risolvere ? 
Prova questo.
my $dir = "/una/directory";
opendir D, $dir;  
@lista = sort {   
	(-d $dir."/".$b <=> -d $dir."/".$a ) || ($a cmp $b) 
		} readdir D;
closedir D;
# e gia` che siamo stampiamo la lista...
map { print $_.("\tDIR" x -d $dir."/".$_)."\n" } @lista;
Ciao,
Max
Newsgroup: it.comp.lang.perl
Titolo: PERL problema con l'head HELP !!!

Ho uno script CGI  scritto in perl che mi estra dei nominativi da un file,
il tutto č composto da:
- file.CGI    script
-head.txt    intestazione
-foot.txt    pič di pagina
-base.tx    dati
Ho un problema con il file head.txt, che sarebbe la parte superiore della
pagina che rimane fissa per ogni interrogazione che faccio. Prima era un
semplice file HTML con dei semplici link, ora l'ho modificato e ci ho
inserito un javascript che genera un menů a cascata, e non si vede piů.
Prima funzionava, il file head, pubblicato come pagian singola funziona, ma
unendoli non funzionano, c'č forse qualche problema tra il javascript e il
perl? come posso ovviare a questo problema? Il menů č grandino posso solo
fare un menu a cascata
Sapete aiutarmi

fare un menu a cascata
A occhio sembra un problema di HTML, forse sbagli qualche tag...
	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!

         Michele.
Occhio anche alle varie " (virgolette) e ' (apici) sia del Perl che del JS.
Ciao
Marcello

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

Salve, volevo sapere se esiste un buon editor IDE per Perl che mi permetta
di visualizzare le SUB (Stile MSVC con le classi, che vengono elencate sulla
sinistra), o magari se uso un modulo, di vedere i suoi metodi o proprietà.
Forse chiedo troppo, ma tentar non nuoce...:-)
Poi se proprio vogliamo esagerare, mi servirebbe per Linux, ma non disdegno
neanche una eventuale ver. per Winzozz, tanto poi la copio in Linux ed il
gioco è fatto!
Spero di non chiedere la luna!
Grazie

 Forse chiedo troppo, ma tentar non nuoce...:-)
Puoi vedere Komodo o il plug-in per VisualStudio.net della
ActiveState: 
www.activestate.com
Komodo è gratuito su Windows per uso non commerciale.
Programmi Open Source con queste caratteristiche per Perl
non ne conosco.
Marco Gazerro
Newsgroup: it.comp.lang.perl
Titolo: #1: il nome della macchina

Ciao!
Vorrei includere in un mio script  il print di una frase del genere:
"eseguito per <nome utente> su <nome macchina>"
il nome utente lo ricavo con la fx getlogin, ma il nome della macchina (che
sia o meno in rete) come si ricava?
grazie
stefano

,
scriveva:

Consiglio:
    perldoc -q hostname
Col seguente esito:
    Found in C:\Programmi\Perl\lib\pod\perlfaq9.pod
      How do I find out my hostname/domainname/IP address?
       The normal way to find your own hostname is to call the
       `hostname` program. While sometimes expedient, this has
       some problems, such as not knowing whether you've got the
       canonical name or not. It's one of those tradeoffs of
       convenience versus portability.
       The Sys::Hostname module (part of the standard perl
       distribution) will give you the hostname after which you
       can find out the IP address (assuming you have working
       DNS) with a gethostbyname() call.
           use Socket;
           use Sys::Hostname;
           my $host = hostname();
           my $addr = inet_ntoa(scalar gethostbyname($host || 'localhost'))
       Probably the simplest way to learn your DNS domain name is
       to grok it out of /etc/resolv.conf, at least under Unix.
       Of course, this assumes several things about your
       resolv.conf configuration, including that it exists.
       (We still need a good DNS domain name-learning method for
       non-Unix systems.)
Dovrebbe essere ragionevolmente portabile. Consiglio comunque per questioni
simili di precisare sempre il sistema che si sta usando.
Ciao.

Ho letto adesso la tua risposta. Grazie.
Avevo effettivamente già risolto proprio con Sys::Hostname.
Non avevo precisato il SO, perchè siccome getlogin, dato per specifico per
unix aveva funzionato anche su WinXp, ho dato per scontato che qualsiasi
soluzione potesse funzionare su più So. Mi sono sbagliato?
Grazie ancora 
ste
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

soluzione potesse funzionare su più So. Mi sono sbagliato?
Forse no: molto lavoro è stato fatto per ottenere risultati consistenti su
molti sistemi. Restano tuttavia funzioni dipendenti dal sistema, la cui
validità va verificata caso per caso. Un'occhiata a perlport aiuta a
chiarire la situazione.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: tag html ?

Ho urgente bisogno di un espressione regolare per eliminare i tag html
io ho scritto questo ma è insufficente non funziona:
$linea =~ s/<(?:.+)>//g;
$linea =~ tr/[a-z]/[A-Z]/;
chi mi da una mano?



perldoc is your friend.
  perldoc -q "remove.*html"
Max
Newsgroup: it.comp.lang.perl
Titolo: Modulo sulle date

Ciao a tutti ...
Domanda, banale, banale ... .
Usate un modulo in particolare per la manipolazione delle date ?
Ne avete qualcuno da consigliarmi ?
Grazie anticipatamente.
Ciao a tutti!!!

 Ne avete qualcuno da consigliarmi ?
perldoc -q date
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

Ne avete qualcuno da consigliarmi ?
Ne approfitto per salutare tutti.
Date::Manip, a regola disponibile per le  distribuzioni piu` comuni gia`
pacchettizzato.
-- 
If God had meant us to compute securely, He'd have given us more prime numbers!
Maurizio - Tannoiser - Lemmo
Founder Member of ERLUG (Emilia Romagna Linux User Group)
http://erlug.linux.it

Newsgroup: it.comp.lang.perl
Titolo: Mail::Mailer trovarlo e installarlo

domanda tipica di un principiante che non sa quasi l'inglese
info sul sistema:
WinNT, Activestate
perl v.5.005_03
vorrei usare Mail::Mailer
1) dove si trova? (in internet immagino, ma dove?)
fino a
http://www.perl.com/CPAN/modules/by-category/19_Mail_and_Usenet_News/
ci sono arrivato, ma poi non so come continuare (spero di riuscire a
dezippare i file che troverò :-|
2) come si installa? (s)fortunatamente non ho finora mai dovuto
installare un modulo
il mio @INC cerca in
c:/Programme/Perl/lib
c:/Programme/Perl/site/lib
grazie per la pazienza che vorrete avere
antonio

installare un modulo
Sotto Windoze non so. ;-)
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: Perl modulo Telnet

Ho la necessità di fare uno script che entri su un server telnet che
chiede solo l'utente e NON la password.
Purtroppo usando il modulo telnet non riesco (mi da errore perchè aspetta
una password), come faccio ???
Grazie.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 una password), come faccio ???
Non sei costretto a usare il metodo login (come presumo tu faccia visto 
che non aggiungi dettagli), semplicemente puoi fargli scrivere passo 
passo quel che serve a te aspettando prima un suo output con il metodo 
waitfor.
HTH, cya!
Angelo
--
http://www.endum.net

#!c:/Perl/bin/perl.exe
use Net::Telnet ();
$t = new Net::Telnet(Timeout => 5);
$t->open("172.17.25.133");
$t->login("utente", "password");
$t->cmd("dir");
$t->close();
Vorrei poter non inserire la password, come funziona il waifor ???


 Vorrei poter non inserire la password, come funziona il waifor ???
Rimuovi $t->login, e lo sostituisci con qualcosa di simile a
$t->waitfor($regexp_per_prompt);
$t->print($uid);
Cioè al posto di $regexp_per_prompt sostitituisci una regular expression 
che riconosca la stringa usata dal server per chiederti il nome utente, 
quindi scrivi il nome dell'utente. Per esempio:
$t->waitfor('/.+?user:\s?/');
$t->print('annibale');
attenderà una stringa simile a "Login for user:", poi scriverà l'utente 
e seguirà il prompt del server o quello per cui è stato programmato.
Cya!
Angelo
Newsgroup: it.comp.lang.perl
Titolo: HELP PER CGI SU F2S

Salve a tutti. Ho registrato uno spazio gratuito su f2s. Anche se non ho
capito bene, mi sembra che il cgi sia supportato... bene, ho caricato uno
script in perl 5 (easysearch) e mi dice errore 403 "Forbidden" e che non ho
l'accesso a quel file sul server... ho controllato e ricontrollato ma il
chmod lo ho fatto, la cartella in cui ho messo lo script e' chmod 755...
forse e' sbagliato il bash (si chiama cosi?) ora c'e' #!/usr/local/bin/perl
Qualcuno sa aiutarmi? Grazie
Lorenzo

 ha scritto nel messaggio
news:8sckae$o35$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.perl
Titolo: Inserzione di valori in una matrice

Gentilissimi,
ho prelevato e modificato uno script di esempio dal reference man.
Qualche anima pia saprebbe dirmi perchè, e sopratutto come, l'oggetto
"$new_matrix", al termine della processazione rimane identicamente
nulllllooo !"!!!!!! ??
Grazie
Simon
#!/usr/bin
use Math::MatrixReal;
$row = 2;
$colonn = 3;
$new_matrix = new Math::MatrixReal($row,$colonn);
@val =();
  while ($i < $row){
   $j = 0;
   while ($j < $colonn){
      print "\nPlease enter your matrix ";
      $val = <STDIN>;
      chop $val;
      push (@val,$val);
    $j++;
    }
   push (@val,']\n[');
  $i++;
  }
  $valor ='[ '; #Alt 91
  foreach $piv(@val){
  $valor .= $piv.' ';
  }
  chop $valor;
    chop $valor;
#  $valor =']'; #Alt 93
#  $valor = qq/$valor/;
      eval {
      $new_matrix =Math::MatrixReal->new_from_string($valor);
      };
#      if ($@)
#      {
#          $@ =~ s/\s+at\b.*?$//;
#          print "${@}Please try again.\n";
#      }
#      else { last; }
print $new_matrix;
print TMP $new_matrix;

 wrote in message
news:iX4B9.16325$Yw.7...@news2.tin.it...


 ha scritto nel messaggio
news:ar2pq5$egmli$1...@ID-159100.news.dfncis.de...


> ...Francamente a me di eval, non frega niente, ma ho notato che senza, da
errore !?
L'impostazione mentale di mettere un eval intorno a una cosa che da errore,
credo proprio che non ti aiuti molto a risolvere i problemi di
programmazione.
Innanzi tutto "da errore" non serve a niente detto così! Se il modulo non è
una porcheria, con l'errore ti dice anche PERCHÉ da errore, e questo è un
ottimo feedback per capire cosa hai fatto che non gli piace.
Limitarsi a mettere un eval, è esattamente come dire "ok, non puoi fare
quello che ti ho chiesto, ma se non puoi chi se ne frega".
Poi allora non lamentarti che non funziona, perché tu stesso lo hai
accettato usando l'eval.


alternativa:
    $new_matrix = new Math::MatrixReal($row,$colonn);
sei sicuro che in $new_matrix ci sia qualcosa? mettici un
print $new_matrix; exit;
subito dopo e vedrai che magari non c'č dentro niente.
ciao


 subito dopo e vedrai che magari non c'è dentro niente.


 > subito dopo e vedrai che magari non c'č dentro niente.
lo hai fatto?????
    $new_matrix = new Math::MatrixReal($row,$colonn);
    print $new_matrix; exit;
in $new_matrix c'č un oggetto o no?


inoltre... prova a stampare $valor, che a me sa che non c'è dentro nulla!

Newsgroup: it.comp.lang.perl
Titolo: Mai applicato un CGI

Mi hanno passato un contatore (.pl), ma non l'ho mai inserito!!
Mi dicono di inserire il file nella cartella bin-cgi del server e di
renderlo eseguibile
e di salvare il mio file in xx.shtml.
Non so cosa voglia dire "renderlo eseguibile"
e il mio server non apre il file .shtml.
Qualcuno mi puň aiutare?
Grazie molte per l'interessamento
Paolo

e il mio server non apre il file .shtml.
E` necessario siano attivati i server side include.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: shopping cart

 is this possable in perl?
Yes, it is possible! You can look for CGI scripts on sites that
manage this topic. For example 
http://cgi.resourceindex.com/
But please post on an english spoken newsgroup:
comp.lang.perl.misc
comp.lang.perl.moderated
it means ITalian, not Information Tecnology
Regards.
-- 
$_=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

 is this possable in perl?
there is one ... have a look at this site
http://www.webmastercart.com
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

Newsgroup: it.comp.lang.perl
Titolo: comando system

Ciao,
avrei bisogno di sapere se il comando system, come il comando exec, non
funziona con la versione PERL per piattaforme WIN32.
Il mio problema è che devo lanciare da piattaforma WIN32 un eseguibile
all'interno di uno script PERL. Oltre ai comandi exec e system, esiste
qualche altra possibilità?
Grazie
Michela

qualche altra possibilità?
Ci sono i backtick:
$output = `comando`;
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 problemi.
  Il Perl dell'ActiveState lo implementa, presumibilmente mediante
CreateNewProcess() o qualcosa del genere.
	Alla prossima,
		Marco

system() e exec() sono supportati su win32 e funzionano
fork() è emulato (mi sembra si debba abilitare una flag alla compilazione, naturalmente è compatibile unix "si fa per dire")
altri metodi sono :
$comando = `comando`;	# backticks, funziona bene
open F, "| comando";	# pipe aperta per input , funziona "mah"
open F, "comando |";	# pipe aperta per output, funziona "mah"
qx(comando);		# quoted execution, funziona bene (perchè usa i backticks)
# per ulteriore approfondimenti --> perldoc perlport
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: DBI:Pg

Sto scrivendo un'applicazione perl con Postgresql sfruttando il modulo
DBI, su una mandrake8.1
Ho installato postgree , compresi i moduli x perl (Pg.pm).
Lancio lo script e mi da il seguente messaggio di errore.
install_driver(Pg) failed: Can't locate DBD/Pg.pm in @INC (@INC
contains:
/usr/lib/perl5/5.6.0/i386-linux....) at (eval 1)
line 2.
Perhaps the DBD::Pg perl module hasn't been installed,
or perhaps the capitalisation of 'Pg' isn't right.
Available drivers: ADO, ExampleP,Multiplex , Proxy.
======================================
 
Se sposto Pg.pm nella dir ../DBD dove risiedono gli altri .pm mi manda
una fila di errori infinita.
Qualche suggerimento ?
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Devi installare il DBD::Pg:
http://search.cpan.org/doc/MERGL/DBD-Pg-1.01/dbd-pg.pod
Ciao

Newsgroup: it.comp.lang.perl
Titolo: Cominciare da zero con il PERL

chi mi aiuta almeno a capire come creare lo script, compilarlo (anche se ho
letto che non è necessario) e pubblicarlo e farlo  girare in una pagina WEB
?

 wrote in message
8s4jbh$j1b$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.perl
Titolo: PERL/TK

Vorrei sapere se ci sono degli appassionati di perl/tk tra voi...

 Vorrei sapere se ci sono degli appassionati di perl/tk tra voi...
Io me ne stavo interessando, ma ho poco tempo per studiarmi tutti i moduli!
(purtroppo)... Comunque ho provato a fare un paio di cosette grafiche e, oltre
ad essere abbastanza semplice, i risultati sono di tutto rilievo!
Casomai, prova a sottoscrivere 
comp.lang.perl.tk
!
Ciao
Edo

Mi sto avvicinando adesso al perl/tk: vorrei rendere grafica e friendly un
applicazione tcp che ho scritto per lavoro. Non sembra complicato, ma devo
ancora addentrarmi nella programmazione. 
Stavo cercando un gui-builder-ptk, ma non l'ho trovato. Tu ci sei
riuscita?
Rispondimi all'indirizzo, non seguo il newsgroup, e' un caso che io abbia
visto il tuo messaggio:
 
m.fiorito@(toglimi)
tin.it
togliendo il (toglimi).
Ciao 
matteo
--
Posted from 
mta02-acc.tin.it
 [212.216.176.33]
via Mailgate.ORG Server - 
http://www.mailgate.org

Ciao, ci si becca anche qui su newsgroup...
Per quello che cerchi forse ti possono essere piu' d'aiuto su 
comp.lang.perl.tk
Io l'avevo provato tempo fa (su NT pero' e ti posso dire che mi e' sembrato abbastanza semplice da usare)
Ci sentiamo nella ML del LUG.
Ciao.
                                 _  _
                    I\/ I     '(_) _)
              By: I     Icv  _) _)
 
Mc...@arabafenice.it
--
Posted from 
alpha.interactiva.it
 [195.31.200.1]


Newsgroup: it.comp.lang.perl
Titolo: Activeperl e problemi con le librerie Tk

Ho installato l'ActivePerl e volevo usare il modulo Tk.
Poiché non riuscivo a scaricarle dal PPM che andava in timeout,
ho scaricato il file .zip e ho lanciato ppm install Tk.ppd.
E qui iniziano i problemi:
Error installing package 'tk.ppd': Could not locate a PPM
binary of 'tk.ppd' for this platform
Rimuovo la riga
  <ARCHITECTURE NAME="MSWin32-x86-object" />
dal tk.ppd
e ripeto l'installazione. Tutto ok.
Però anche perl -Mtk dà errore:
Can't load 'C:/Perl/site/lib/auto/Tk/Event/Event.dll' for module
Tk::Event: load
_file:Impossibile trovare uno dei file della libreria necessari per
eseguire l'a
pplicazione at C:/Perl/lib/DynaLoader.pm line 200.
 at C:/Perl/site/lib/Tk.pm line 13
Ho controllato, e Event.dll è al suo posto...
A qualcuno è capitata una cosa simile? E magari ha risolto?
Saluti,
Valerio

binary of 'tk.ppd' for this platform
che versione dell'ActivePerl usi? e da dove hai scaricato
il file .zip?
se il tuo ActivePerl è build 5xx, devi scaricare da:
 
http://www.activestate.com/ppmpackages/5.005/zips/
se invece è build 6xx, da:
 
http://www.activestate.com/ppmpackages/5.6/zips/
i due perl in questione sono considerati 'platform' differenti,
dal momento che le estensioni compilate non sono compatibili.
cheers,
Aldo


Risolto! Il problema era proprio quello! Io mi ero fidato della
documentazione che mi dava il primo URL...
Grazie.
Valerio
Newsgroup: it.comp.lang.perl
Titolo: use strict e bareword

Ciao a tutti,
seguendo il consiglio datomi sto inserendo "use strict" in tutti gli script
che sto facendo. Preferisco predefinire le variabili con "use vars"
piuttosto che con "my".
Fino a qui tutto bene.
In uno script ad un certo punto il debugger mi dice:
"Bareword "MAIL" not allowed while "strict subs" in use at script line xxx"
Il fatto è che "MAIL" è il filehandle del programma di invio mail e sta in
un classico:
open (MAIL, | "$mailprog -t");
prendo i libri e apprendo che se si è usato use strict o use strict subs
"ogni bareword che non possa essere interpretata come una chiamata a una
subroutine produce un errore in fase di compilazione."
Io ho risolto il problema inserendo MAIL in "use subs", come se fosse una
subroutine.
Però rimane il problema che non ho capito il perchè di questo fenomeno, in
pratica cosa centrano le bareword con le subroutine? E poi la soluzione che
ho trovato va bene?
Grazie e ciao.
--
Marco Allegretti
shi...@katamail.com
http://www.shishii.com

 open (MAIL, | "$mailprog -t");
open (MAIL,"|$mailprog -t");
Nota le posizioni delle virgolette....
-- 
Ciao, Maurizio.

 open (MAIL, | "$mailprog -t");
Ci fai vedere la riga che produce quel errore?
Non può essere quella sopra, che contiene un errore di sintassi e
genererebbe un errore diverso.
Max

 ha scritto nel messaggio
news:Pine.LNX.4.10.100092...@c64.comm2000.it...

Ciao,
scusate ma ho sbagliato a copiare il codice nel precedente messaggio, nello
script è invece:
 open (MAIL, "|$mailprog -t") || die "Can't open $mailprog $!\n";
senza errori di sintassi.
Rimane quindi il problema che vi avevo sottoposto con il percedente post.
Grazie.


 senza errori di sintassi.
Sei sicuro che l'errore si riferisca proprio a quella riga? Se è così, sul
tuo sistema il seguente script dovrebbe restituire quell'errore:
 use strict;
 my $mailprog = "/usr/lib/sendmail";
 open (MAIL, "|$mailprog -t") || die "Can't open $mailprog $!\n";
In caso constrario, puoi postare il frammento più breve di codice che
riproduca il problema?
Max

 ha scritto nel messaggio
news:Pine.LNX.4.10.100092...@c64.comm2000.it...

Ciao,
ho il sospetto che sia un problema del debugger dell'editor di perl che ha
un....bug
Infatti quello script con la soluzione che avevo adottato per fare
scomparire il messaggio di errore, cioè inserire MAIL in use subs non
funzionava sul server, tolto MAIL da use subs tutto ha funzionato alla
perfezione sul server, ma il debugger dell'editor continuava a dare il
messaggio:
"Bareword "MAIL" not allowed while "strict subs" in use at script line xxx"
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: Aiuto sono alle prime armi!

Scusate la banalità ma sto inserendo il mio primo CGI nel mio sito e ho dei
dubbi su come impostare i permessi alle varie cartelle.
Sto utilizzando Dreamweaver, dalla finestra FTP Log è corretto utilizzare
questo comando:
FTP Command: site chmod 777 cartella
dove cartella sarà logicamente il nome della cartella da regolamentare.
Grazie
Valentino



Dai un'occhiata a questo sito, mi sembra molto buono per i novizi (ma
a occhio e croce ci sono un sacco di risorse per tutti).
http://cgi.webjuice.it/
Ciao!
gianluca

 ha scritto nel messaggio
news:3aa2a56...@news.iol.it...


Newsgroup: it.comp.lang.perl
Titolo: Script perl killato ma io ho 2GB

Debbo caricare in questo modo un file:
open (HUM, "Hum_intr_after.nuc");
@HUM = <HUM>;
close (HUM);
gt@Colossus:/Projects/Prof/Correl/Hum_Correl$ ll Hum_intr_after.nuc
-rw-r--r--  1 gt gt 629785215 May  5 11:23 Hum_intr_after.nuc
gt@Colossus:/Projects/Prof/Correl/Hum_Correl$ wc -l Hum_intr_after.nuc
12390640 Hum_intr_after.nuc
Come dimensioni e numero di linee ci siamo con 2 GB perchè viene
killato ?
C'è un modo alternativo di caricare in un sol colpo un file di oltre
500 MB ?
Colossus

Anche all'inizio della mia esperienza con perl ebbi lo stesso problema.
Questo metodo è molto dispendioso in termini di memoria...
Ti consiglio caldamente il modulo Tie::File che "carica" in un array
tutto il file, ovvero ciò che tu desideri, senza chiedere in cambio Gb
di memoria ram...
use Tie::File;
tie @HUM, 'Tie::File', "Hum_intr_after.nuc" or die "Non riesco: $!";
print "Ecco qui caricato il fie!!\n\n";
untie @HUM;
Vado a memoria quindi potrei sbagliare ma il modulo è quello che
dovrebbe servire a te.
I guru mi correggano volentieri!!

Newsgroup: it.comp.lang.perl
Titolo: CGI windows-unix

Ciao a tutti
Il mio problema è molto semplice.....da spiegare
Ho un sito realizzato per Windows NT e l'ho portato sotto piattaforma SUN
SOLARIS 2.7 con Iplanet come web server.
Ed ecco il problema che nel momento che faccio un passaggio di parametri tra
una pagina HTML per utente e password ed un file perl utilizzando il method
POST mi arriva una stringa vuota. Mentre in Windows tutto funziona
perfettamente ma per ragioni di lavoro il sito ora deve funzionare sotto
Unix, mentre prima accettavano funzionasse sotto windows.
come modulo per il la ricezione uso la 
cgi.pm
 e nel file perl utilizzo:
read(STDIN,$str1,$ENV{"Content_length"});
sapete aiutarmi e dirmi per quale ragione mi arriva una stringa vuota?
Grazie
Loris
--
___________________________
Marini Loris
Responsabile Area Informatica
DOT
P.za Venzaghi 3 - 21052 Busto A.
Tel. 0331/632841
___________________________

 read(STDIN,$str1,$ENV{"Content_length"});
Perche' devi usare
read(STDIN,$str1,$ENV{"CONTENT_LENGTH"});
Unix e' case sensitive.
Poi se stai facendo queste cose, quasi certamente *non* stai usando 
CGI.pm - che ti eviterebbe di soccombere a queste dipendenze di sistema...
use CGI;
use strict;
my $q=new CGI;  # fa lettura e parse dei parametri su windoze o unix
my $lang;
$lang=$q->param('lingua') or no_language();
....
Cheers,
alf
Newsgroup: it.comp.lang.perl
Titolo: chiedere ma non mostrare passwd a monitor

salve ragazzi,
dopo infruttuosa ricerca tramite google, mi viene il dubbio di essere
l'unico ad avere il problema, anche se non ci credo.
Allora: 
1) sono in WinNT (sono al lavoro, non decido io)
2) uso la finestra DOS (mi illudo di essere sotto *nix :-)
3) devo/voglio atuomatizzare una procedura di ftp (pigrizia=virtů,
parola di Larry Wall)
4) per questo chiedo la passwd all'utente
5) non voglio che si veda a monitor la password che viene digitata (mi
pare ovvio)
6) sotto unix uso system "stty echo" che non funzia sotto WinNT (pare
:-(
DOMANDA
come faccio sotto Windows a non mostrare a monitor ciň che viene
immesso?
ciao (e grazie) 
Antonio

 dopo infruttuosa ricerca tramite google
prima di google c'è 
perldoc.com
! :))
http://www.perldoc.com/perl5.6.1/pod/perlfaq8.html#How-do-I-ask-the-user-for-a-password-

 pare ovvio)
    use Term::ReadKey;
    ReadMode('noecho');
    $password = ReadLine(0);  

 prima di google c'è 
perldoc.com
! :))
e prima ancora c'è man, help on line della activestate, e nutshell
Ma se sei convinto che la finstra DOS non abbia nulla a che fare con
un terminale, allora anche il più bello dei manuali diventa inutile
(contro l'ignoranza non c'è nulla che tenga :-)

Newsgroup: it.comp.lang.perl
Titolo: Script per mIRC

Salve,
mi hanno detto che il linguaggio per creare script per Mirc č un Perl
ridotto.. sapete dove posso trovare info su questo "pseudo-perl"?
grazie
--
Luigi
Web Site: 
http://web.tiscali.it/luigi_web
E-mail: 
cybe...@email.it
ICQ #46240443

scarica mirc, all'interno troverei la guida
valter
-- 
Valter Mazzola -  Software/Databases for Enterprise Web Internet Sites
   PHP, Java Servlets, Applets, Jsp, ASP, PERL, Mod_Perl, Apache, IIS.
* 
HTTP://SITIDINAMICI.COM/?nttp
 
http://italia.LinSwap.com/?nttp
 
Phone:(+39) 347/129-07-16.  Fax:(+39) 02/700-539-403

Newsgroup: it.comp.lang.perl
Titolo: Perl and databases

Qualcuno sa con CGI in Perl come si può fare per interrogare un database, in
particolare un database di MSAccess, su un server unix su cui gira un Apache
1.3.6 senza che vi sia installato nessun software aggiuntivo?
Grazie mille
Paolo

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

 1.3.6 senza che vi sia installato nessun software aggiuntivo?
Approposito, mi stavo chiedendo se qualcuno sapesse come potessi fare ad
accedere ad un file di database 4thDimension versione Macintosh registrato
su file system condiviso Windows NT da un programma REXX su AS400
interrogato da uno script PHP richiamato da Apache sotto Linux :)
Scherzi a parte mi sa che non puoi, ma sono molto ignorante in materia e non
faccio testo.
Ciao
Maurizio

vado a orecchio... mi sembra di aver letto che esista un modulo perl per
interfacciarsi a ODBC. Controlla sul CPAN e buona fortuna con super winzozz.