mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: variabile settata

quale funzione devo utilizzare per sapere se una variabile è settata?
analogamente al isset di php.
nel mio caso specifico mi serve in uno script che deve elaborare i
risultati di un form passati in GET, ma io non so quali campi del form
sono stati riempiti e quindi quali delle relative variabili sono settate.
Spero di essere stato chiaro, grazie per l'aiuto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Spero di essere stato chiaro, grazie per l'aiuto.
Se hai possibilita` di installare moduli sul calcolatore su cui 
poi girera` il tuo script, suggerisco di esaminare Data::FormValidator.
E` uno strumento che fornisce gran parte dei meccanismi necessari
alla validazione di form web.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 Spero di essere stato chiaro, grazie per l'aiuto.
Riporto da perldoc perlsyn:
	Truth and Falsehood
	The number 0, the strings '0' and '', the empty list (), and 		 
undef are all false in a boolean context. All other values are   	true.
Non mi intendo molto di Perl in ambito web, ma direi che funziona allo 
stesso modo di uno script normale...
Quindi, per sapere se una variabile è valorizzata o meno, di solito si 
usa (esempio):
	use strict;
	use warnings;
	my $var;
	if( $var ) {
		print "La variabile e' settata\n";
	} else {
		print "La variabile NON e' settata\n";
	}
Ciao,
-- 
+--------+ | ASCII ribbon campaign ( ) | 
www.autistici.org/kral
|  kral  | |  - against HTML email  X  |
+--------+ |              & vCards / \ | my gpg id = 0x7C946947

 are       true.
[CUT]
Scusate ho detto una ca**ata...
Difatti, se $vaiabile = '0'; if( $variabile ) restituirą falso.
Come ha scritto Stefano, usa l'istruzione defined.
Scusate ancora,


 perldoc -f defined
Indicazione corretta. :-)
Sottolineo poi un passo della doc quando si lavora sugli hash:
	When used on a hash element, it tells you whether
	the value is defined, not whether the key exists
	in the hash.  Use "exists" for the latter purpose.
by
	- Enrico
--- have fun with 
www.perl.it
 ---
Newsgroup: it.comp.lang.perl
Titolo: domanda idiota

scusate la domanda davvero idiota, ma a che serve Perl? dico, a parte il fatto
che esiste una versione dell'interprete per tutti i sistemi operativi, a parte
il fatto che ci si fanno CGI che è una bellezza, ma mi sembra che Perl sia
qualcosina di più... ad esempio sentivo dire di un'estensione di Visual C++ che
permette di usare inline-Perl (roba del tipo
perl{
    print 'che sturia!'
}), quindi sospetto che dietro ci sia di più. Cosa posso farci, in pratica, a
parte applicazioni CGI? mi pare che le possibilità siano parecchie, anche se da
sola non ci arrivo a capire quali... (tenete comunque conto del fatto che da
quando ho sostituito quella porcheria di MS-DOS con il MITICO 4Dos non mi passa
più manco per la capa di sostituire i file batch con script, come pensavo di
fare in un primo momento. Volendo ci posso scrivere anche le CGI per il mio
server locale, l'istruzione "text... endtext" mi sgrava dalla necessità di
escapare i simboli di minore e maggiore, cosa tra l'altro nemmeno possibile in
MS-DOS, che sono indispensabili per generare HTML)

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

Newsgroup: it.comp.lang.perl
Titolo: aiuto con espressioni regolari

Salve a tutti,
sono un po' digiuno di espressioni regolari. Se ho una variabile con una
serie di frasi (ossia parti che iniziano con una maiuscola e finiscono con
un .) come faccio a splittare le frasi?
@frasi = split( /[A-Z].*\./ , $text);
non funziona! Il .* credo si mangi tutto quello che c'è in $text, come devo
scrivere l'espressione?
Grazie,
Luca

Luca Ferrari wrote:

C'eri quasi:
my @frasi = $testo =~ /([A-Z].*?\.)/gs;
quando vuoi che il match sia non greedy (o /minimale/ che dir si 
voglia), devi usare il quantificatore "?".
A latere: non usare split, semplicemente cattura tutti i match (mediante 
il modificatore "g").
Infine il modificatore "s" permette a "." di matchare anche il newline 
(per gestire il caso in cui una frase sia spezzata su più righe 
consecutive).
Ciao,
Emanuele



Dipende anche dalla presenza o meno di \n all'interno della frase, e se vuoi
o no conservare il punto finale. Comunque, prova una delle forme seguenti
(stampa l'array @frasi dopo ognuna per vedere se ti va bene):
$text="Frase numero 1.Frase 2.Questa e' la frase 3.E la frase 4.";
@frasi=split /\./,$text;
@frasi=($text=~m/([^.]+)/g);   # come il precedente
@frasi=($text=~m/([^.]+\.)/g);
Newsgroup: it.comp.lang.perl
Titolo: stringhe

E' possibile confrontare una stringa con una serie di variabili?
tipo $stringa = ":
leonet.azzurranet.org
 Erix 001" con
$server =":
leonet.azzurranet.org
",
$destinatario = "Erix",
e $messcode = "001" ?
Se x scoprire il destinatario, faccio, ad es:
($destinatario) = ($stringa =~ /^$server (.*) $messcode/);
nn funzia :°(
Suggerimenti?
Erix

Erix wrote:

Perche non funziona?
Questo codice:
$stringa = ":
leonet.azzurranet.org
 Erix 001";
$server =":
leonet.azzurranet.org
";
$messcode = "001";
($destinatario) = ($stringa =~ /^$server (.*) $messcode/);
print "$destinatario\n";
a me stampa 
Erix
che e' quello che vuoi se ho ben capito.
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: Gestione della Data

Contatto questo NG per la prima volta, con un quesito forse banale,
ma mi sono accostato al Perl da poco tempo ...
Ho utilizzato questa sequenza di stringhe per ottenere la Data dal server:
########################################
$richiamo_data = "/bin/date";
$data = `$richiamo_data +"%A, %B %d, %Y at %T (%Z)"`; chop($data);
print "$data";
########################################
Essendo il server americano, vorrei convertire i valori che mi restituisce
in "formato" italiano.
Come posso procedere per incrementare di 6 il valore dell'ora ?
E' possibile isolare la variabile relativa all'ora?
Grazie.
Alessandro

 E' possibile isolare la variabile relativa all'ora?
Ti conviene piuttosto farti dare la data da perl stesso:
  $data = localtime;
 
ti mette in $data la data nel formato "Tue Oct 27 14:48:35 1998', 
mentre 
 
  @data = localtime;
 
ti riempie l'array @data con 9 elementi, nell'ordine:
 secondi, minuti, ora, giorno, mese, anno, giorno della settimana, settimana,
 giorno dell'anno e oralegale.
 
 mese e giorno della settimana partono da 0 (quindi da 0 a 11 e da 0 a 6).
 L'anno e' l'anno effettivo meno 1900.
 
 Puoi anche usare gmtime che ti da l'ora rispetto a GMT.
 
 Nel tuo caso, potresti fare
 
 @data = gmtime;
 $data[2]++;    #aggiunge un'ora al GMT 
 e poi riconvertirti i dati.
 
 Probabilmente il modo migliore e' quello di fare i conti in secondi 
 dall'epoch e riconvertire tutto:
 
   $tempo = time;          # Tempo in secondi dal 1 Gen. 1970 sul server
   $tempo += 6 * 60 * 60;  # aggiungi 6 ore
   $data = localtime ($tempo);
   print $data;
 
 ovvero
 
   print scalar localtime ( time + 21600);
 
 Quest'ultimo metodo ha di buono che ti gestisce automaticamente il
 cambiamento di giorno/mese/anno. Altrimenti se sul server sono le 23 del 31
 dicembre 1998, e tu aggiungi 6 al numero delle ore, che ottieni? Le 29 del 31
 dicembre? le 5 del 32 dicembre? Qui fa tutto lui.
 
 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: Sessioni e Proxy

Ciao,
Ho attivato la gestione delle sessioni in un programma CGI usando
CGI::Session ed utilizzo un cookie per memorizzare l'id della sessione.
Il programma smette di funzionare correttamente se lo script viene
eseguito passando attraverso un server Proxy, si direbbe che il cookie non
venga rilevato correttamente e quindi viene creata una nuova sessione 
per ogni pagina generata.
Non so se è significativo : lo script genera una pagina html con diversi
frame, la routine di gestione delle sessioni viene richiamata comunque
per ogni frame.
Accludo la sub di gestione delle sessioni,  sono poche righe di codice :
    sub session_manage {
	%cookie = cookie('EasyDB');
	my $sid = $cookie{'CGISESSID'} || undef;
	$session = new CGI::Session("driver:File", $sid, {Directory=>'/tmp'});
	$session->save_param( $CGI::Q);
	$session->expire(600);     # expire after 600 seconds
	# Cookie
	if ($path_info EQ '1') {
 
	    $cookie{'CGISESSID'} = $session->id();
	    $mycookie = cookie(-name=>'EasyDB',
			       -value=>\%cookie,
			       -domain=>'nome.dominio');	 
	    print header(-cookie=>$mycookie);
	}
	else
	{
	    print header();
	}
 
    }
Francesco

 per ogni pagina generata.
*Potrebbe* essere un problema della pagina HTML che lancia il cookie. In 
sostanza dovresti mettere un header expires adeguato anche nell'HTML, 
per "aiutare" il proxy a ricordare.
Oppure prova a dare un'occhiata a questa pagina, dove un programmatore 
ha usato CGI::Session proprio per realizzare un proxy, magari potrebbe 
esserti d'aiuto:
http://author.handalak.com/archives/042003/000064.html
Ad ogni modo l'autore di CGI::Session ha scritto:
<<As for the ip_match switch, yup, you guys are right. It does not work 
on certain proxy servers>>

 on certain proxy servers>>
Hmm, passo ad Apache::Session ?

 Hmm, passo ad Apache::Session ?
se devo essere sincero le sessioni me le sono sempre gestite a modo mio, 
ma è cosa da non fare :)
Oltre ad Apache::Session c'è anche CGI::kSession
non posso dirti nient'altro che: provali :)
Newsgroup: it.comp.lang.perl
Titolo: Audio Recording

Ciao ragazzi,
è la prima volta che scrivo. Volevo avere questa informazione:
Sono riuscito con la libreria Win32::SoundRec a registrare audio
tramite microfono su sitema WINDOWS XP.  Il mio problema è il
seguente. Dovrei poter registrare l'audio di alcuni client mediante
un'interfaccia web fatta in perl. Secondo voi è fattibile? Cioè devo
necessariamente utilizzare un'applet in java o c'è qualche modo per
farlo tramite perl?
grazie a chi vorrà rispondermi.
cordialmente
Daniele
http://www.gizax.it

 farlo tramite perl?
Ehm... risposta breve: qualcuno ha da ripensare l'architettura del
sistema.
Risposta lunga:
Per evidenti motivi di sicurezza, il microfono è accessibile soltanto
dalla macchina cui è attaccato.
Un browser web di solito non lo vede neppure.
Del codice mobile che esegua *sul client* (applet Java, coso Flash)
potrebbe accedervi, ma di default gli è impedito (ci sono impostazioni
apposite per attivarlo, ma non chiedermi dove, ché non lo so).
Il codice Perl di cui parli devo dedurre esegua sul server (ad esempio
producendo le pagine che vengono mandate al browser): in questo caso
non c'è alcun modo di fargli vedere (direttamente) il microfono.
Certo, potresti fare una applet Java o un coso Flash che prendono il
segnale dal microfono e lo mandano (in un qualche modo che ti devi
implementare) al server. Ma allora perché fai il resto via Web?
-- 
  dakkar
  sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN

>(applet Java, coso Flash)
"Coso flash" è un termine parecchio divertente e che rende bene e in
tutte le sue sfumature l'atteggiamento che perlisti induriti possono
avere nei confronti di flash - Mx o meno. Sulla scia dei vari applet,
scriptlet e - perchè no, anche se da altri contesti - wavelet  etc.
proporrei di adottare per i cosi Flash, con ovvia estensione, il
termine di stufflet.
InModIs

inm...@tiscalinet.it
 writes:

Beh, tieni conto che pur di evitare di usare Flash, mi sono imparato
JavaScript e le librerie prototype e 
script.aculo.us
, e sono riuscito
a fare un bel po' di effettini dinamici animatosi. Che probabilmente
non userò mai nelle mie pagine, ma quando un cliente chiede e paga...


non userò mai nelle mie pagine, ma quando un cliente chiede e paga...
Beh, si parte dal presupposto che se qualcuno paga si può prescindere
- e bene - dalle proprie idee, o perlomeno si possono mettere in
condizioni di non nuocere - questione di prezzo. Comunque se si
facesse un confronto tra la percezione del valore che hanno  clienti
(anche blasonati) delle animazioni "wow-effect" rispetto a soluzioni
di sostanza ... no, aspetta, meglio non pensarci
Ciao
InMoDIs
Newsgroup: it.comp.lang.perl
Titolo: inserire perl nell'html

si può inserire un "tag" perl nell'html di una pagina?
grazie

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

si può inserire un "tag" perl nell'html di una pagina?
C'e` un modulo per apache che mostra pagine con all'interno codice perl.
Non ricordo il nome, ma di sicuro e` in debian.
-- 
ciao, |
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 grazie

A questo punto, meglio PHP...


> si può inserire un "tag" perl nell'html di una pagina?
Beh, non necessariamente e` meglio PHP... ci sono vari modi
piu` o meno efficienti di utilizzare il Perl all'interno di
una pagina HTML. Io ho utilzzato eperl qualche volta e mi
sono trovato bene.
	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!

Che - oh, wow! - ha anche dei comandi per creare immagini GIF!


 Che - oh, wow! - ha anche dei comandi per creare immagini GIF!
Perchè, il Perl no?
-- 
___________________________________
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Ma va'? Funzioni native o importate?


 Ma va'? Funzioni native o importate?
Libreria GD (dai un'occhiata su CPAN)
Ciao
M.
-- 
____________________________________________________
    Life's just a blast, it's moving realy fast    
better stay on top or life will kick you in the ass.
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Newsgroup: it.comp.lang.perl
Titolo: help! non funge, perchè?

Innanzitutto, un saluto a tutti. Ho provato a scaricare il modulo
Net::Ping..
Ho provato a mandare in esecuzione questo script:
 use Net::Ping;
 
$host='
libero.it
';
$p=Net::Ping->new();
$p->ping("$host");
$p->close();
Da quanto ho letto, dovrebbe restituire 0 se non è possibile fare il
ping, 1 se è possibile.
Ma non ottengo nessun risultato; anche mettendo un print "$p" prima del
close (mi restituisce un codice hash).
Qualcuno saprebbe cosa c'è di sbagliato?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 hash). Qualcuno saprebbe cosa c'è di sbagliato?
Devi semplicemente controllare il valore di ritorno di ping().
 my $rc = $p->ping( $host );
 print $rc;
Max

Newsgroup: it.comp.lang.perl
Titolo: [spot] shell professionali

 
http://open-perl-ide.sourceforge.net/
non ne ero a conoscenza, lo scarico e poi ti faccio sapere.
-- 
Ciao, Dmitry 
Posted from X-Privat Free NNTP server - 
www.x-privat.org

 
E' molto carino.
Io fino ad oggi per comodita' usavo Perl Editor (EZ software).
Ma anche questa IDE e' carina...
M.

>> 
http://open-perl-ide.sourceforge.net/
Devo dire che e' davvero molto interesante...
Sapete se c'e' qualcosa di simile per linux?
-- 
nathanvi
ICQ --> 20318568
mail --> newsgroup @ 
nathanvi.it
Newsgroup: it.comp.lang.perl
Titolo: Cercasi Collaboratori: leggere soltanto se non si ha nulla da fare

Salve a tutto il NG,
Pensi che un buon progetto informatico se organizzato e fatto bene possa
rivoluzionare il mondo?
Stai cercando di dare un senso alla tua esistenza?
Avresti da sempre voluto partecipare a un progetto informatico e sai 
programmare in perl ma vuoi metterti sempre alla prova con sfide nuove e 
impossibili?
Se hai letto sin qui significa che probabilmente sei la persona giusta!
Inviami una mail a 
studio.italiano(QuellaStranaLetteraCheNoiItalianiBhiamiamoChiocciola)
tiscali.it
 
inserendo come oggetto "Il progetto informatico atteso da tutti" nel caso
volessi maggiori informazioni
Ciao e grazie per l'attenzione,
Alcibiade
ps. se vuoi puoi mandare all'indirizzo anche il tuo CV secondo quanto 
stabilito dalle normative vigenti in Italia in materia di privay (ma non è 
obbligatori) 

 inserendo come oggetto "Il progetto informatico atteso da tutti" nel caso
Un'agenzia di agenti segreti?

 "Il progetto informatico atteso da tutti"
Dai dicci qualcosa in piu`
S.
-- 
Stefano Rodighiero      |  
http://www.stefanorodighiero.net
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

 dare un senso alla tua esistenza
Scientology.org ?

Newsgroup: it.comp.lang.perl
Titolo: scherzi del pacchetto perl

Ragazzi, io ho scaricato il pacchetto perl da activestate e ho installato il
tutto.
Mi ha creato 200 cartelle + 1 nel menu avvio ma vuota....
Da dove si comincia? (scusate la banalità della domanda)

probabilmente il 200 è una battuta (spero) un volta decompresso dentro la dir
bin c'e un file perlw32 install.bat eseguilo e rispondi yes a tutte le domande;
questo è quanto ho scritto nei miei appunti  di alcuni mesi fa.
poi dovrebbe essera a posto
Francesca ha scritto:



PGP Key 5.5 available
"The 400-MHz Power Mac G3 takes no prisoners during game play" -
http://www.apple.com/powermac/
Newsgroup: it.comp.lang.perl
Titolo: problema con librerie GD (lungo)

Premesso che ho activeperl 5.8 su un sistema win32 e GD 2.07, volevo 
chiedere se qualcuno può aiutarmi a capire da dove proviene u certo 
tipo di problema. In pratica ho fatto il port da un vecchio script di
INNreport per DNEWS che usava le GIF per poter usare il nuovo formato
supportato da GD, ovvero PNG. Lo script funziona al 99 % bene, ci sono
solo due immagini che non vengono create correttamente, sembra che si 
sovrappongo e non capisco il motivo. La pagina dei risultati è, ad 
esempio, questa:
http://www.x-privat.org/stats/index.html
i grafici di incoming feed e outgoing feed non sono veritieri e portano
immagini sovrapposte.
Continuando però lo scrip mi genera correttamente tutti gli altri 
grafici del report, come ad esempio qui:
http://www.x-privat.org/stats/news-notice.2003.09.15-00.00.05.html
Ho idea che vi sia qualcosa a un certo punto del codice che manda in 
palla la creazione dei primi due grafici :(
Il codice lo ho messo in FTP, casomai qualcuno lo volesse studiare 
anche per uso personale 
ftp.x-privat.org/project/dnewsreport.zip
questo è 'output su stdout del responso del perl:
----
WINDOWS operating system detected.
Daily Usenet report from Sep 13 00:00:00 to Sep 14 00:00:00
before date_idxbefore val_inbefore val_outbefore foreachbefore chrono
Chr: start 
10634112001063411200
1063497600*
*1e+030*
1063411200*
1063497600*
Chr: 1st div: 86400
Chr: 2nd div: 86400
Chr: 1st foreach 
Chr: After unit
Chr: midpoint? 
after chronooutbefore date_idxbefore val_inbefore val_outbefore 
foreachbefore chrono
Chr: start 
10634112001063411200
1063497600*
*1e+030*
1063411200*
1063497600*
Chr: 1st div: 86400
Chr: 2nd div: 86400
Chr: 1st foreach 
Chr: After unit
Chr: midpoint? 
after chronooutDaily Usenet report from Sep 13 00:00:0 to Sep 14 
00:00:0
Daily Usenet report from Sep 14 00:00:0 to Sep 15 00:00:0
----
Qualche idea su come affrontare il problema?
-- 
Un'omelia per essere convincente deve essere come la minigonna:
corta, aderente alla vita e lasciare intravvedere il mistero
°°° Posted from X-Privat Free NNTP server - 
www.x-privat.org
 °°°

 palla la creazione dei primi due grafici :(
Potresti dirci dove lo script genera i due grafici?
Ho provato a darci un occhio ma ... ;)
Newsgroup: it.comp.lang.perl
Titolo: Espressione regolare

Ciao a tutti sono alle prime armi col perl.Leggendo la documentazione
riguardo gli array di array  ho incontrato la seguente sintassi ma non ne
capisco il significato:
# another element
 $AoA[1][1] =~ s/(\w)/\u$1/;
So che =~s/ e' l'espressione regolare che fa una sostituzione di pattern, ma
l'intera espressione =~ s/(\w)/\u$1/; non mi e' chiara...qualcuno saprebbe
darmi una spiegazione chiara?
Ciao e grazie

  $AoA[1][1] =~ s/(\w)/\u$1/;
Mi sembra che prenda la prima lettera ($1) dell'elemento $AoA[1][1] e la
mette in maiuscolo.
Infatti ( da perldoc perlref ):
	\w  Match a "word" character (alphanumeric plus "_")
	\u Uppercase next char (think vi)
Non so in che contesto venga usata negli array di array, ma sembra
servire a questo.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 ha scritto nel messaggio
news:20030721150415.00...@paranoici.org...


Newsgroup: it.comp.lang.perl
Titolo: regexp con variabili

vorrei fare una funzione che mi faccia questo:
sub check_agent ($browser) {
	if ($riga =~ /$browser/) {
     something
	}
}
cioe', io gli passo il $browser, lui lo controlla con la riga che sta 
esaminando e, in caso di corrispondenza, mi fa qualcosa
grazie
-- 
Umin
n. p.: Pink Floyd - Us & Them

 grazie
risolto
-- 
Umin
n. p.: The Doors - Alabama Song

Newsgroup: it.comp.lang.perl
Titolo: Nuova rivista di programmazione

ATTENZIONE !!
	In previsione del lancio di una nuova ed innovativa rivista di 
programmazione, Digitalia cerca programmatori italiani che desiderino 
collaborare. Oltre alla ovvia conoscenza di almeno un linguaggio di 
programmazione, è richiesta una ottima capacità di sintesi e l'abilità di 
progettare gli articoli come strutture multimediali (maggiori dettagli a 
chi è interessato) e non come semplice testo. Siamo interessati a quattro 
tipi di collaborazione:
	1)	Realizzazione di serie di articoli dedicati ad alcuni temi 
		specifici. Il numero di articoli per serie è variabile.
	2)	Realizzazione di singoli articoli.
	3)	Tips&Tricks.
	4)	News.
Nella mail, è necessario inserire come subject un riferimento ad una di 
queste quattro categorie (per esempio, rif.3 o rif.2), specificare il 
proprio curriculum vitae e gli argomenti di cui si vorrebbe scrivere. Non 
inviate mail che non contengano tutti e tre gli elementi.
Nota: 	non è richiesta una elevata conoscenza della programmazione in 
	generale ma una buona conoscenza degli argomenti trattati.
Contattatemi per maggiori informazioni.
-- 
The Bitland Prince - Digitalia
E-Mail address: tbpr...@SoftHome.net
Owner & Webmaster of 
www.juventus.org
 
"Information should be free..."



programmazione...

[SNIP]
scusa, ma non sei quello di ioProgrammo??
-- BGies [
bg...@usa.net
]

"Information should be free..."
--------------------
Sono interessato alla cosa, ma prima vorrei avere maggiori informazioni
sulla rivista. Spero che possiate accontentarmi. Se possibile, contattami in
privato, all'indirizzo 
mar...@dmw.it
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260
http://www.armaditaggia.com/marco
Newsgroup: it.comp.lang.perl
Titolo: shutdown da cgi perl

Salve, 
dovrei far fare ad una macchina Linux lo shutdown tramite un cgi-bin, 
il problema e' che il S.O. non mi permette di eseguire degli script
suid ho letto dalle faq del perl che lo script potrebbe essere
lanciato da un wrapper in c ad esempio :
    #define REAL_PATH "/path/to/script"
    main(ac, av)
        char **av;
    {
        execv(REAL_PATH, av);
    }
ma non mi funziona.
Avete qualche suggerimento in proposito o qualche script gia' pronto ?
Il server web e' apache 1.3.11 la macchina e' in una rete locale
quindi il problema sicurezza e' limitato.
Ciao da Obe.

 Ciao da Obe.
Prova WebMin, fa questo ed altro, in piu' cosi' puoi vedere come sono fatti
i suoi cgi e gli script in perl
-- 
-------------------------------------------------------
mailto:
top...@masse.net
 
http://www.masse.net/~topper
My ICQ number is:55788427 
When i find all of the reasons
maybe i'll find another way

i suoi cgi e gli script in perl
lo provero' per ora ho risolto utilizzano script di bash.
Ciao da Obe.

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

Salve,
     mi sono accorto che quando leggo dallo STDIN dei dati ad esempio:
while( sysread(\*STDIN, $dati, 2048) )
e poi faccio lenght($dati) non sempre ottengo 2048, quindi devo supporre 
che per qualche motivo a me strano non riesco a leggere da STDIN sempre 
a 2048 chars (o bytes)...come posso ovviare a questo?
come posso fare in modo che in $dati ci siano solo e sempre 2048 di dati 
letti sa STDIN?
magari una cosa tipo: 
while( sysread(\*STDIN, $dati, 2048) )
{
   $buffer .= $dati
   if( lenght($buffer) < 2048 )
   {
      next;
   } else {
      undef $buffer;
   }
 
   # do something with $dati...
}
avete qualche idea migliore??
Grazie

 avete qualche idea migliore??
forse devo rivedere questo codice:
my $buffer;
while( sysread(\*STDIN, $dati, 2048) )
{
   $buffer .= $dati;
   next if lenght($buffer) < 2048;
   # do something with $buffer...
   undef $buffer;
}

 Grazie
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: CIAO A TUTTI !!!

>Visita il mio sito erotico :
Ma visitati qualcos'altro !
""""""""""""""""""""""""""""""""""""""""""""""
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
""""""""""""""""""""""""""""""""""""""""""""""
                 Trust no ONE.


http://www.angelfire.com/la/pamela69696969
Newsgroup: it.comp.lang.perl
Titolo: Chi ha usato Perl per Win95 ?


 


Maurizio wrote:

ciao,


ho appena installato il perl per Win32 sotto windows 95, sul quale gira

il Personal Web Server di Front Page.

Il problema e' che gli script che chiamo non girano: mi sembra che
sia

necessario eseguire una modifica per farlo andare.

Qualcuno saprebbe dirmi di che modifiche si tratta ?

 

 

in che senso non girano?...te li apre come fossero testi?.. in  questo
caso devi associare l'estensione cgi/pl all'esecuzione di script..

non li trova?.. hai specificato i path di ricerca degli script nel
server e associati a perl.exe?


se sono fatti per sistemi unix a volte bisogna ritoccarli perche' alcune
funzioni non sono supportate.. ma le modifiche variano da script a script..


spero che la mia risposta sia abbastanza confusa..... ;-)


Ciriciao!


 


--

Piera "Vampiera" Poggio

----------------------------------------------------------------------

And crawling on the planet's face, Some insects, called the human race

Lost in time, and lost in space, And meaning........

----------------------------------------------------------------------

Home Page : 
http://piera.lapam.mo.it


POWWOW  : 
pi...@lapam.mo.it


ICQ  : 1396500

 


 Qualcuno saprebbe dirmi di che modifiche si tratta ?
Le FAQ spiegano tutto.
In particolare qui:
 
http://www.activestate.com/support/faqs/
     win32/perlwin32faq6.html#How_do_I_configure_Microsoft_Per
Bye, MM
Newsgroup: it.comp.lang.perl
Titolo: operazioni con le date

Ciao a tutti
sono un programmatore Perl agli esordi!
sto lavorando con le date e non riesco a passare, sotto forma di
stringa, i valori della data odierna ad una determinata funzione.
Mi spiego meglio:
ho creato una funzione chiamta make_data()
sub make_data()
{
my ($vargiorno,$varmese,$anno)=@_;
 
my @MONTH;  my @DAY;
$DAY[$vargiorno+0]=" selected";
$MONTH[$varmese+0]=" selected";
 
my $htm_data = qq~
 <SELECT name="gg_fine">
 <option$DAY[1]>01
 <option$DAY[2]>02
 ...
 <option$DAY[31]>31
 </SELECT>
 <SELECT name="mese_fine">
 <option value=1$MONTH[1]>Gennaio
 <option value=2$MONTH[2]>Febbraio
 ...
 <option value=12$MONTH[12]>Dicembre
 </SELECT>
  <SELECT name="anno_fine">
 <option value=1$YEAR[2002]>2002
 <option value=2$YEAR[2003]>2003
 <option value=3$YEAR[2004]>2004
 </SELECT>
        ~;
return $htm_data;
}
e dove voglio far comparire la data automaticamente passo 
$htm_data = &make_data("18","02","2004");
e poi lo stampo con un semplice print, così le tre caselle select
selezionano "automaticamente" i valori di $htm_data per giorno, mese e
anno.
IL MIO PROBLEMA:
vorrei che il passsaggio dei valori gg,mm,aaa ad $htm_data fosse in
base alla data del sistema, e non passata come adesso tramite
stringa... ma non so prorpio come fare!!!
Qualcuno ha dei consigli?
Aspetto vostre notizie.
Grazie 1000 anticipatamente.
Lorenzo Perotti
lorenzo...@email.it

Qualcuno ha dei consigli?
   &make_data(localtime(time))
Ma, se non dici qual è il problema, rischia di non essere la soluzione.
Potrei anche dirti che, per lavorare con le date, è probabile che ti
convenga usare uno degli innumerevoli moduli appositi, ma, anche questa,
rischia di essere una soluzione in cerca di un problema.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: accesso file da CGI

Salve, ho fatto il seguente script:
open (GINO, "</www/cgi-bin/pippo.db")
$line = <GINO>
print "$line";
close (GINO);
fin quì ok, ma quando provo dal cgi:
#!/usr/bin/perl
use CGI qw(:standard);
print header;
print start_html("CICCIO CICCIO");
print "PIPPO PIPPO<br>";
open (GINO,"</var/www/cgi-bin/pippo.db");
$linea = <GINO>;
print "$linea";
print end_html;
close (GINO);
Non c'è verso di stampare a video la riga che ha letto.
Quale può essere il motivo?
Grazie

 Grazie
che errore ti da?
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

Ti consiglio di fare sempre una cosa di questo tipo:
$nomefile = '/www/cgi-bin/pippo.db';
open (GINO, "<$nomefile");
Cosi' non rischi che i punti o altri caratteri particolari (tipo @ o
~) ti incasinino.
Poi sei sicuro che il percorso del file sia corretto?
A volte i server hanno degli strani modi di stabilire la posizione dei
file.
Potresti provare a non fornire nessun path
$nomefile = 'pippo.db';
ciao,
DarkWave


 Quale puň essere il motivo?
chiedilo a $! :-)
    open (GINO,"</var/www/cgi-bin/pippo.db")
    or die "non riesco ad aprire il file: $!\n";
immagino che sarŕ qualcosa di simile a Permission denied.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;


oppure il file e' vuoto:-)
---
Mario Rizzuti

Grazie a tutti, mi avete dato dei buoni consigli, ma il problema è del
webserver che non riesce a capire i percorsi assoluti.
Con ../../path, tutto è andato a meraviglia.
Grazie ciao

non vorrei dire castronate, ma quando usi il modulo CGI
automaticamente tutti i "print" (senza filehandler (si dice cosi?)) 
finiscono in risposta al client e non sul tuo monitor.
 (a meno che tu non stia lanciando lo script da riga di comando
  e non come cgi)
L'altra eventualita: il web-server non ha diritti di lettura sul file in 
questione
... credo
antonio

Newsgroup: it.comp.lang.perl
Titolo: Salvare parole cercate nel sito

Salve a tutti, non sono un programmatore perl tuttavia ho installato un
motore di ricerca interno al sito scaricato da cgi-resources. Il programma
gira bene ma manca la possibilita' di sapere quali parole sono state cercate
e quante volte.
Qualcuno puo' inviarmi il codice per ottenere un file di testo contenente
tali informazioni salvato nella mia directory  cgi-bin?

Quello che chiedi non si puo' fare ! Cioe' "sapere quali parole sono state
cercate e quante volte" si puo' fare (ed e' anche semplice), ma "inviarmi il
codice per ottenere un file di testo contenente tali informazioni" non credo
proprio !!!
Immagino che la ricerca parta da una texfield di un form HTML ??
Bene tale form ha come action il tuo script CGI (motore blablabla), ora il
mio script (se per caso te lo dovessi scrivere) non entrerebbe proprio in
gioco !!!
Ci sono molti modi per risolvere questo problema !!! Unire i due script in
uno solo etc.....
Insomma potrei elencarti una decina di modi, ma credo che il migliore
(perche' piu' immediato) sia il primo. (tutti i metodi richiedono la
modifica dello script originale, tranne quello di implemetare uno script che
una volta svolto il suo lavoro chiama il tuo ripassandogli i parametri, ma
e' una brutta cosa a pensarci, al massimo e' piu' giusto il contrario!)
Il altre parole, nel con il metodo citato, il motore di ricerca salva le
parole ed incrementa il contatore delle parole gia' presenti, e poi avvia la
ricerca (o viceversa).
E' chiaro quindi che avrei comunque bisogno dello script per modificarlo ed
aggiungere tale funzione etc....
Inoltre c'e' abbastanza da lavorare e penso che tutti noi lavoriamo per
essere retribuiti. E' vero per molti e' anche una passione, cosi' come e'
bello dare una mano agli altri. Infatti se tu volessi scrvere tale funzione
e non sapessi come fare, io sarei il primo a darti una mano. Ma visto che mi
dovresti inviare lo script, l'HTML e poi dovrei lavorarci da solo e fartelo
io al 100%, mi sembra un vero e proprio lavoro e  non semplicemente dare una
mano.
Ora vorrei aiutarti, l'unico modo per farlo senza perdere tempo e denaro :-)
sarebbe di consigliarti un motore freeware che gia' implementa tale
funzione. Purtroppo conosco pochi CGI freeware e non me ne viene in mente
nemmeno uno che faccia al caso tuo.
Alex

In effetti non chiedevo tanto, altrimenti avrei allegato le parti di codice
interessate come fanno tutti, ma solo se esiste qualche routine gia' pronta
o se qualcuno si era gia' imbattuto nello stesso problema e l'avesse risolto
con qualche aggiunta o modifica visto che di motori di ricerca che
implementano questa funzione stranamente non ce ne sono gia' pronti.
Grazie cmq.
Newsgroup: it.comp.lang.perl
Titolo: Tempo

Ciao a tutti, vi volevo chiedere se è possibile fare un programma in perl 
che fa:
quando sono passati 30 minuti allora
print "SVEGLIA!!";
il problema e come fargli capire che sono passati 30 minuti =)
grazie in anticipo

 wrote in message Xns91748BB...@192.106.1.6...

Dando per scontato che usi Linux e che non hai nessun
genitore/fratello/collega che possa passare ogni tanto a
darti uno spintone, userei cron per schedulare un processo
da lanciare ogni mezz'ora. Visto che in tutta questa storia
Perl rimarrebbe girarsi i pollici (e visto che
scriverei l'Hello World!, che si trova a pagina
10 di qualunque manuale di programmazione), ti propongo
una variante...
#!/usr/bin/perl
use strict;
use Xmms;
my $remote = Xmms::Remote->new;
my $config = {
 # To be tuned according to your falling-asleep speed :)
 fading_speed => {
  slow => 0.5,
  medium => 0.25,
  fast => 0.1
 }
};
wakeup_bastard();
sub goodnight_son
{
 fadeout( 'fast' );
 $remote->stop;
}
sub wakeup_bastart
{
    fadein( 'fast' );
}
sub fadein() { fade( 'in', shift ) }
sub fadeout() { fade( 'out', shift ) }
sub fade
{
 my $mode = shift;
 my $speed = shift;
 my $vol = $mode eq 'out' ? $remote->get_main_volume : 0;
 while(($mode eq 'out') ? (--$vol > 0) : (++$vol < 100)) {
  $remote->set_main_volume( $vol );
  # Useful snippet to sleep a fractional amount of seconds
  select( undef, undef, undef, $config->{ 'fading_speed' }->{ $speed });
 }
}
Il brano per svegliarti lo decidi tu :))
ciao
Stefano

 il problema e come fargli capire che sono passati 30 minuti =)
sincrono:
sleep(30*60);
print "SVEGLIA!";
asincrono:
local $SIG{ALRM} = sub { print "SVEGLIA!" };
alarm(30*60);
-- 
/federico

 wrote in 
news:k005v9....@federico.milano.yahoo.com
:

Grazie tante delle risposte

Newsgroup: it.comp.lang.perl
Titolo: @INC personalizzato

Ciao,
per modificare momentaneamente @INC posso usare:
perl -I/path_dir
oppure
use lib "path_dir";
ma è possibile modificarlo stabilmente?
Cioè, esiste un settaggio di qualche file di configurazione di PERL che
modifichi il contenuto di @INC?
Grazie.
 
-- 
-- Marco Allegretti --
http://www.shishii.com

modifichi il contenuto di @INC?
unshift @INC, '/libs';
unshift @INC, '/scripts';
etc...
--
http://www.pigmalion.info/
Internet è uno dei veicoli più validi per la difesa della libertà,
poiché offre la verità a chi vuole vederla e intenderla...
Vinton G. Cerf


Puoi aggiungere i percorsi che ti interessano tramite la variabile 
d'ambiente PERL5LIB.
 $ export PERL5LIB=/tmp/pippo:/tmp/topolino
 $ perl -V
 ...
 Compiled at Aug 10 2003 01:06:01
   %ENV:
     PERL5LIB="/tmp/pippo:tmp/topolino"
   @INC:
     /tmp/pippo
     /tmp/topolino
     /usr/local/lib/perl/5.6.1
     /usr/local/share/perl/5.6.1
     /usr/lib/perl5
     /usr/share/perl5
     /usr/lib/perl/5.6.1
     /usr/share/perl/5.6.1
     /usr/local/lib/site_perl
Max

 Max
Grazie č proprio quello che cercavo.
Newsgroup: it.comp.lang.perl
Titolo: [PDK]Fondere il perl nel C

Buona sera.
La domanda in questione è un po' complicata.
Mi riferisco al fatto di poter inserire il codice perl nel C.
Se posso compilare uno script perl contenente delle funzioni in DLL. Poi
inserirei questo libreria nel programma compilato del C, potrei teoricamente
passare dei parametri a questa libreria per così ottenere un risulato?
Oppure più semplicemente c'è una libreria in C++ per usare il codice perl?

 Mi riferisco al fatto di poter inserire il codice perl nel C.
Programming Perl 3rd, dedica un paio di pagine a questo argomento e 
comunque rimanda a 
perldoc perlcall
Anche Professional Perl Programming dedica diverse pagine all'argomento
(scritte da Aldo Calpini) con una trattazione un po' + approfondita.
-- 
$_=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

Ti ringrazio..ma siccome devo scappare subito di casa ti ringrazio con un
semplice grazie...
GRAZIE!!!!
Ciao..buon appetito (se cena pranzo o colazione)

Newsgroup: it.comp.lang.perl
Titolo: Aiuto qualcosa mi sfugge

Precedenti comandi di select funzionano perfettamente
my $sth = $dbh->prepare("INSERT INTO inacc
(idcliente,data,mtn,cod,descr) VALUES (?,?,?,?,?)") or die 'INSERT non
va';
fin qui tutto bene nessun errore
$rv = $sth->execute(1,2,3,4,'5') or die 'execute non va';
execute non riesce e da errore
La tabella è la seguente:
Name		Data type
-----------------------------
idcliente      INTEGER
data		DATE
mtn		DOUBLE
cod		INTEGER
descr		LONGTEXT
Qualcosa mi sfugge, qualcuno vede l'errore?

 Qualcosa mi sfugge, qualcuno vede l'errore?
Che DBMS?
 Raffaello

 Qualcosa mi sfugge, qualcuno vede l'errore?
Difficile che '2' possa andar bene come valore per un campo DATE.
MM

 Che DBMS?
MySQL

 Difficile che '2' possa andar bene come valore per un campo DATE.
Centrato nel segno! Ho inserito '2007-01-01' ed ora funziona.
Grazie e scusate per l'imperdonabile svista.
Oreste
Newsgroup: it.comp.lang.perl
Titolo: pattern matching

Salve a tutti, da pochi giorni mi sono addentrato nel perl... già ci sono
problemi
se io scrivo $testo=~/pattern/
perl va a cercare il mio pattern nel testo, giusto?
Scritto così, quante volte lo cerca? Ammettiamo che
$testo='barabba'
e $testo=~/ba/
perl cercherà ba in barabba e lo troverà... quante volte? se lo trova una
volta sola (la prima a sinistra), come faccio a chiedere quante volte ba
compare in barabba?
Grazie
__________________________________________________________________ Davide
ICQ#: 96075343 Current ICQ status: + More ways to contact me
__________________________________________________________________

 compare in barabba?
Cerca tutte le occorrenza che trova nel tuo esempio 2, se nn mi ricordo
male, ora non posso provarlo, per sapere quante occorrenze hai trovato
$n=$testo=~/ba/;
in $n dovrebbero esserci il numero di occorrenze.
Provalo.
Ciao 
Fabrizio

perldoc perlre
perldoc perlretut
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 Provalo.
Quasi. E` vero quel che dici se usi il modificatore /g e se fornisci
un contesto di lista all'espressione che ne risulta:
  $testo =~ /ba/g
Ad esempio...
  my $testo = 'barabba';
  my @occ =  $testo =~ /ba/g;
  print "@occ";
...stampa 'ba ba'.
Ma in questo caso si vuole solo il numero di occorrenze. Si puo` fare:
  my $testo = 'barabba';
  my @occ =  $testo =~ /ba/g;
  print scalar @occ;
Oppure, usando un idioma (non cosi` tanto) tipico:
  my $testo = 'barabba';
  my $n = () = $testo =~ /ba/g;
Come si puo` leggere in [perldata], un assegnamento tra liste ( vale
a dire () = $testo =~ /ba/g ) in un contesto scalare ritorna il numero
di elementi prodotti dall'espressione a destra dell'uguale).
 
http://www.perldoc.com/perl5.8.0/pod/perlfaq4.html#How-can-I-
  count-the-number-of-occurrences-of-a-substring-within-a-string-
 
http://www.perldoc.com/perl5.8.0/pod/perldata.html
  [cerca nel testo "List assignment"]
ciao
Stefano

 ha scritto nel messaggio
news:b18ha5$10kl6q$1...@ID-159100.news.dfncis.de...


 mi sembri la Table-Of-Contents vivente di perldoc!! :-)
Perl è bellissimo quando ne sai già qualcosa, ma quando stai cominciando è
un gran casino cercare nella documentazione, così la Table-Of-Contents me la
sono già quasi imparata a memoria mio malgrado :-S
la doc è talmente povera di tools di ricerca ed aiuti che secondo me ci
vorrebbe un NG solo per dare alla gente indicazioni su DOVE cercare nella
doc... proponiamo it.comp.lang.perl.doc ??? :-)))


 doc... proponiamo it.comp.lang.perl.doc ??? :-)))
   Ci vorrebbe un Google della documentazione... ;)
-- 
Alla prossima,
Marco

   Ci vorrebbe un Google della documentazione... ;)
...e qualcosa del genere gia` esiste: 
http://www.perldoc.com
-- 
Alla prossima,
Marco

 ha scritto nel messaggio
news:b1b8ff$11f7tu$1...@ID-159100.news.dfncis.de...

Newsgroup: it.comp.lang.perl
Titolo: non riesco a catturare pagina html

con questo script vorrei catturare l'output di richiesta di una pagina html,
ma mi vengono restituiti solo 1300 byte, invence di 4000 byte della pagina
completa, come mai?
$sock = IO::Socket::INET->new
        (
                PeerAddr => '
liberomail.libero.it
',
                PeerPort => 80,
                Proto => 'tcp'
        );
print $sock "GET / HTTP/1.0\r\n";
print $sock "Accept: */*\r\n";
print $sock "Accept-Language: it\r\n";
print $sock "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT
5.0)\r\n";
print $sock "Host: 
pippo.it
\r\n";
print $sock "Proxy-Connection: Keep-Alive\r\n";
print $sock "\r\n\r\n";
$sock->autoflush( 1 );
$sock->recv( $in, 4096 );
print STDERR $in;
close( $sock );
grazie

 alto, tipo LWP?
ci avevo pensato, ma non esiste nel mio pc, per cui credo che debba
utilizzare CPAN per scaricarmelo, vero?
grazie, ciao

 # perl -MCPAN -e shell
Funziona anche con il perl "ActiveState" sotto Windows.

 anche il comando sopracitato.
Giusto, ho risposto troppo in fretta e mi ero scordato dei moduli da 
compilare.
Perņ mi č capitato varie volte di dover usare moduli introvabili con PPM 
mentre erano installabili benissimo con MCPAN.
Newsgroup: it.comp.lang.perl
Titolo: Problema da principiante!

Premetto che ho appena iniziato ad interessarmi al Perl, e sono piů i dubbi
che le certezze. Comunque ....
Primo Problema - Perl x Dos.
Voglio creare uno script che, tra l'altro, deve riceve dalla linea di
comando il nome completo di una directory (ad esempio C:\UTIL\FILE per
creare poi un file con la lista dei file in essa contenuti (non le
directory).
Ho provato a utilizzare il comnd system nel seguente modo:
$Percorso = "dir " . $ARGV[0] . " /A-D";
system  '$Percorso';
Ma non ho ottenuto nulla perché, se ho ben capito, l'interprete non opera la
sostituzione.
Come posso fare ?
Grazie

...

Prova:
 if (opendir PERCORSO, $ARGV[0] ){
    @allfiles = readdir PERCORSO;
    foreach $afile (@allfiles){
        #stampa il file...
    }
}
Non so bene come escludere le directory, che dovrebbero comparire nella
lista @allfiles pure loro.
Ti puo' probabilmente essere utile la funzione stat, che dovrebbe restituire
in una qualche maniera un'insieme di proprieta' di un file, tra le quali
probabilmente il fatto se sia una directory o meno.
Sono anche io un principiane ma spero di esserti stato almeno un po' utile.
Ciao
Maurizio
--
Maurizio Coppari
C.I.R.F.I.D. - University of Bologna
via Galliera 3, 40126  Bologna
e-mail: 
cop...@remove.cirfid.unibo.it
           (please remove remove in reply)

 directory).
my $dir = "ksjdhksjhdfkj/sdlkfjsldkfsj";
opendir D, $dir;
my @files = grep { ! -d $dir."/".$_ } readdir D;
closedir D;


lista @allfiles pure loro.
Puoi utilizzare l'operatore di test su file unario -d, che ritorna true se
il file in questione e' una directory
es:
if (opendir PERCORSO, $ARGV[0] ){
    @allfiles = readdir PERCORSO;
    foreach $afile (@allfiles){
    $thefile = "$ARGV[0] \\$afile";
    unless (-d $afile) {
        print "$afile\n";
        }
    }
}
Mario

system  '$Percorso';
$directory=~s/\\/\//g;
opendir (DIR, "$directory");
@CONTENUTO=readdir (DIR);
for ($i=0; $i<=$#CONTENUTO; $i++) {
	if (!(-d "$CONTENUTO[$i]")) {
		push (@CONTENUTO_DIR, $CONTENUTO[$i]);
	}
}
Non ho potuto testarlo perchè ho qualche problema di configurazione
del perl e non mi funziona bene l'interprete, comunque provalo.
P.S. Evita di usare il comando "system", rallenta parecchio e ti
impedisce la portabilità del programma su altri sistemi operativi.
Meglio gli apici inclinati che ti permettono di salvare l'output in un
array, sono più veloci ma anch'essi non sono portabili.
@PIPPO=`dir $ARGV[0] /A-D`;
Ciao
Andrea Busia
---------------------------------
Redattore di 
www.ludus.it
La prima rivista online italiana
dedicata al mercato dei videogiochi
---------------------------------
Newsgroup: it.comp.lang.perl
Titolo: Cosa devo fare x programmare giochi stile pac-man

Ho il desiderio di riuscire a programmare giochi arcade molto
"semplici" stile pac-man duke nuke 1 o 2 ecc.
Sapete indicarmi:
1 - che linguaggio devo imparare
2 - dove posso trovare il compilatore ed eventuali programmi per
effettuare la grafica (una specie di thedraw pero' per la grafica)
3 - che libro devo comprare per imparare il suddetto linguaggio
Speranzoso in un AIUTO ringrazio, ciao.
					Gianluca

...


Puoi imparare VB5 che non č male , poi ti posso dare delle dritte rispetto
ad alcune librerie per Sprite (Animazioni) e effetti (3D).
        Ciao da Leonardo             
leoo...@tin.it

Newsgroup: it.comp.lang.perl
Titolo: Is this possible with Perl??

Usually when you open a flat text file that reads line by line you go..
open(FILE,"file.txt");
while($line =<FILE>) {
    # do stuff here
}
close(FILE);
Instead of opening files like that, I want to create a standard sub routine
or module so I can open files something like this..
use MyModule;
$file = new MyModule("file.txt");
while($line = $file->fetchrow()) {
    # Do stuff here
}
My question is.. how do I program the fetchrow() sub routine to return the
specific line of the file that it is currently on.  I can think of some ways
of accomplishing this, but it would be extremely inefficient (such as
storing the entire file in an array when the object is created).  Is there a
way to seek or stream the data through the function as if I just used the
standard Perl method for reading files so that the only data that is stored
in memory is the current line.
The reason why I want to accomplish this is because I want to create a
module that mimics the DBI module to be used on text databases.  I want to
create a module that understands all the basic SQL commands and has the
fetchhash and fetchrow commands that DBI has.  This way I can create the
front end of a program and easily port it to use mySQL or flat-file
databases with little or no modification.

# use a file handle as your internal data structure.
# so fetchrow can use native <FH> (readline) and perl itself will keep track
# of your current offset in file
# anyways if you want to implement that flat file db manager
# i guess you really should "tie" a file handle.
# perldoc perltie
package MyModule;
use Carp;
use Fcntl qw(:flock);
sub new {
	my ($class,$file) = @_;
	ref $class				and carp("cant clone"), return;
	open my $fh, "<$file"		or carp("cant open file: $!"), return;
	flock $fh, LOCK_SH | LOCK_NB	or carp("cant get shared lock"), return;
	bless $fh => $class;
}
sub fetchrow {
	ref(my $self = shift)	or confess "not a class method";
	scalar <$self>;
}
sub close {
	ref(my $self = shift)	or confess "not a class method";
	close $self	or carp "error closing file";
}
sub DESTROY { $_[0]->close() }
-- 
Posted from 
mail2.galactica.it
 [212.41.208.19] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG