mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Ordine a caso

Vorrei sapere come poter riordinare gli elementi di un array scalare a caso:
@mioarray = (rosso,giallo,verde,blu);
vorrei riordinare gli elementi in modo da poter avere un
ordine diverso
es.
@mioarray = (verde,rosso,blu,giallo);
Grazie

proposta: (non testata)
crea un hash che abbina "ordine" con un nuomero casuale (tra 0 e 1, con
tanti decimali.
p.es
. %hash=(rand,0,rand,1)
equivalente a %hash = ( 0.4352134 => 0
                        0.3865468 => 1,
                        0.7895310 => 2,) ecc.
spero che usi un ciclo, 
ordina questo %hash secondo la chiave
preleva adesso in modo sequenziale il numero "ordinato"
(nel mio esempio esce 1,0,2)
approfittane, e esatrai dal tuo array usando questo nuovo ordine
@mioarray = (verde,rosso,blu,giallo);
$i=0;
$hash{rand}=$i++ foreach (@mioarray);
# NB per evitare un caos prevedibile, dovresti "inizializzare" il caos
foreach $e (sort keys %hash) {
       print $mioarray[$hash{$e}];
#      ... qualsiasi altra monada
       }
 e che il signori ce la mandi buona !
ciao, antonio


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

 $hash{rand}=$i++ foreach (@mioarray);
ha un difetto terribile (specialmente per chi ha sfiga)
se per caso escono due numeri casuali uguali, perdi un elemento
dell'array ...
č poco probabile per array piccoli, ma se sono grandi, allora...

 Grazie
-- 
ASTAT - Istituto provinciale di statistica
viale Duca D'Aosta, 59
I - 39100 Bolzano
tel: 0471/994045  fax: 0471/994008
http://www.provinz.bz.it/astat

On Thu, 23 Sep 1999 10:03:53 GMT, 
bale...@dada.antispam.it
 (Marco
Balestra) wrote:
| Alla fine ho trovato un modo un po' barbaro, ma che pare funzionare
| bene: non si basa tanto sul numero rand, ma sul prodotto dell'ordinale
| del codice ASCII di due cifre diverse di due rand diversi ;)
e se venissero due chiavi uguali?
Oha

e se venissero due chiavi uguali?
In realta' e' il rand(prodotto_di_cui_sopra), per cui che vengano
uguali e' abbastanza improbabile.
BTW per array di grosse dimensioni basta verificare l'ev. presenza di
chiave con una RE, non c'e' granche' da variare.


 
Non so se sia migliore o peggiore di quanto già suggerito...
my @list = (1 ,2 ,3 ,4 ,5 ,6, 7);
my @newlist;
while (my $count = int @list) 	{
	my $rnd = int rand ($count);
	push @newlist, $list[$rnd];
	$list[$rnd] = $list[0] if $rnd; 
	shift @list;
}
print join "\n", @newlist;
Max

 srand($$);
 my @list1 = (1,2,3,4,5,6,7,8,9);
 my @list2 = sort { int(rand(3))-1 } @list1;
 print join ",", @list2;
Max

Newsgroup: it.comp.lang.perl
Titolo: Nome del Browser

come faccio a identificare il nome del browser???
ie5
netscape
gozzilla
altri
vorrei identificare il nome di tutti i browser possibilmente cč il modo??
Grazie

 vorrei identificare il nome di tutti i browser possibilmente cè il modo??
leggi $ENV{'HTTP_USER_AGENT'}
Ciao
M.
-- 
:wq

 come faccio a identificare il nome del browser???
E' scritto nella variabile $ENV{'HTTP_USER_AGENT'}
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/


--
Posted from [212.216.176.55] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: redirect con controllo

Ciao,
dovrei fare un reindirizzamento dal mio server ad un'altro. Nello
script però verrei fare il controllo che il web server dell'altra
macchina sia su, prima di reindirizzare, in modo tale da rivolgermi ad
un terzo server se ci fossero problemi.
Mi sapete dire se in perl c'è la possibilità di fare questo controllo?
grazie in anticipo e ciao
Tatiana

 Mi sapete dire se in perl c'Š la possibilit… di fare questo controllo?
Va bene un ping alla macchina?

Ciao Tatiana!

Puoi mandare un request al web server, e vedere se ti torna la risposta.
Per far cio` puoi utilizzare LWP::Simple. Ad esempio:
use LWP::Simple;
$content = get("
http://www.mioserver.com/
");
if (defined $content) {
    # Il server e` attivo
} else {
    # Il server non e` attivo
}
Un ping ti garantisce solo che la macchina remota sia su e risponda ai
ping, ma non che il web server sia funzionante.
Mandi, Michele.

 Mandi, Michele.
ciao,
Nids

Ciao,
grazie per l'aiuto! 
con le varie prove che ho fatto sono riuscita solamente a controllare
che le macchine siano su, e non i web server. Con Net::Ping come
faccio a impostare la porta 80?
grazie e ciao
Tatiana
ecco il mio esempio...
##########################################################################
use Net::Ping;
# parametri
$server1 = 'labdm';
$server2 = 'dozer';
$moduloDM = 'DM';
$msg = 'I SERVER NON SONO DISPONIBILI!!!\n';
$ping1 = Net::Ping->new("tcp", 2);
#$ping1->{port_num} = (80);
if ($ping1->ping("$server1")) { # Il server principale e` attivo
    print "Status: 302 Moved Temporaly\r\n".
          "Location: http://$server1/$moduloDM/\r\n".
          "\r\n";
   undef($ping1);
} else { # Il server principale non e` attivo
    undef($ping1);
    $ping2 = Net::Ping->new("tcp", 2);
    #$ping2->{port_num} = getservbyname("http", "tcp");
    if ($ping2->ping("$server2")) {
        # Il server secondario e` attivo
        print "Status: 302 Moved Temporaly\r\n".
              "Location: http://$server2/$moduloDM/\r\n".
              "\r\n";
    } else { # Il server secondario non e` attivo
        print "Content-type: text/html\n\n";
        print "$msg";
    }
    undef($ping2);
}
####################################################################

 faccio a impostare la porta 80?
Il ping non serve per sapere se un dato servizio è attivo o meno,
riporta solo se la macchina in questione è raggiungibile o meno.
Potresti fare le seguenti cose:
1 - Verificare se il server è su ( Net::Ping )
2 - Se il server è usare LWP::Simple->head(
www.tuoserver.bo
) per
    ricavare l'header dell'eventuale pagina iniziale. Se questa
    operazione riesce, allora il web server è attivo.
Ricapitolando usare Net::Ping per vedere se il server è su ( perldoc
Net::Ping ) e usare LWP::Simple ( perldoc LWP::Simple ) per fare delle
richieste al web server. Guarda soprattutto le funzioni head e
is_success.
Spero di essere stato chiaro (scusate le ripetizioni).
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \
Newsgroup: it.comp.lang.perl
Titolo: richiesta di aiuto 2

Ciao a tutti.
Ho intenzione di implementare un sito web che usi le cgi-bin con linguaggio
perl. C'è qualcosa in linea (possibilemente in italiano, ma anche se è in
inglese fa niente) da consultare? Tipo un manuale pratico in cui si può
imparare da zero la questione?
Grazie, Vittorio.

imparare da zero la questione?
http://www.perl.com
 per il Perl. Per l'interfaccia CGI prova a cercare su 
Northernlight, Lycos, Altavista, ...
	Miky.
-- 
Michele Beltrame
mi...@skm.to
http://www.italpro.com/mb/
They can take your life, but they can't take your pride.

 Grazie, Vittorio.
Ciao, dunque un ottimo posto dove trovare le informazioni e' la rete
stessa, potresti usare un motore di ricerca e cercare cgi-bin cgi e
simili (ti consiglio metacrawler: 
http://www.metacrawler.com
) oppure usa
yahoo (
www.yahoo.com
) e seleziona la categoria internet programming in
una delle sottocategorie ci sono un sacco di esempi cgi, se invece ti
servono info sul perl stesso fammelo sapere che ti mando un help in
formato postscript fenomenale ;)
ciao
			Davide
Newsgroup: it.comp.lang.perl
Titolo: Split loop ?!

Salve!
Ho un problema con uno script che ho fatto. Nel mio pc funziona
correttamente (un k6 350, 256 di ram, mandrake 9.1, perl 5.8), sui
computer dell'università anche, su quello del mio relatore no !
Il programma viene lanciato, dopo un po' esce con un errore del tipo:
Split loop at <nome_programma> line xxx, <nome_file> line xxx
Da quello che posso intuire si ferma mentre sta analizzando un file riga
per riga per cercare delle stringhe, da quel poco che so non mi pare che
questo sia un errore causato dal codice, anche perchè non capisco cosa
c'entri il loop con l'istruzione split che uso io.
Credo sia un controllo del sistema operativo che mi ferma il processo
forse perchè inizia ad usare troppa ram o ci mette troppo tempo, ma
anche questo mi pare strano perchè dubito di avere un pc migliore in
prestazioni rispetto a quello del relatore ( la versione di perl è la
stessa.)
Avete idea di cosa potrebbe essere o di come potrei fare per capire da
cosa è dovuto il problema? In caso vi posto la parte di codice con la
riga a cui si riferisce l'errore...
Grazie
Fabrizio

 riga a cui si riferisce l'errore...
Il file che elabori è lo stesso sia sulla tua macchina che quella del
relatore?
Se la risposta è no, il codice e un esempio di come è strutturato il
file (se particolare) in questo caso sarebbero d'aiuto.:)
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 relatore?
Si, è lo stesso file.

forse perchè inizia ad usare troppa ram o ci mette troppo tempo,
No, è un messaggio diagnostico di perl, e precisamente uno classificato
come "(P) An internal error you should never see (trappable)".
Se nonché l'hai visto e, quel che è peggio, ce l'hai pure detto, sicché
tentare di far finta di niente a questo punto è un po' dura.
Evidentemente si tratta di un baco di perl (nessuno split dovrebbe poter
logicamente produrre un ciclo infinito). I riferimenti che ho trovato in
rete parlano di qualcosa relativo a Unicode e/o UTF-8, anche se non è
particolarmente chiaro che cosa. Se è così, il fatto che non si verifichi
sul tuo computer potrebbe dipendere dal linguaggio o dalla codifica
caratteri impostata. Peraltro, a quanto pare, anche una modifica
dell'espressione regolare con un'altra equivalente potrebbe allontanare il
problema.
La soluzione definitiva è naturalmente una versione di perl che abbia
corretto il baco.
Ciao.

logicamente produrre un ciclo infinito).
Credo che possa essere il #20912, segnalato e risolto in febbraio. Un
aggiornamento di perl ad una versione posteriore a questa data dovrebbe
quindi bastare.
Ciao.

 quindi bastare.
Ok, grazie!
Proveremo ad aggiornare e speriamo .. :))

Proveremo ad aggiornare e speriamo .. :))
Se si tratta di quel baco, questo è un brano di codice minimale che
riproduce l'errore:
   perl -le '$p="a,b"; utf8::upgrade $p; split(/[, ]+/,$p)'
Per quello che posso capire, l'errore si presenta solo con la codifica
UTF-8, quindi, se non è strettamente necessaria, un sistema per aggirarlo è
non usare questa codifica.
Per quanto riguarda ActivePerl, il build 806 presenta il baco, il build 807
no.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Help, upload tutto ok ma filesize =0 (lungo)

prima andava... ora sembra andare (non vengono rilevati errori )
ma il file uplodato ha dimensione "0"!
Non posto il codice perche' proppo lungo ma ho provato diversi
script tutti con size 0 la dir di upload è 777 (altrimenti verrebbe rilevato
l'errore)
Che cavolo puo' essere?.. Penso che dipenda dal server (linux)  ma chi se ne
occupa
non riesce a capire cosa puo' essere.....
Ps c'è un NG migliore per chidere?
Grazie

 
diciamo che non si capisce ove sia il problema.....
-- 
Leo "TheHobbit"
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GED/CS d? s-:+>-: a C+++ U+++ L++(+++)>++++ P+++>+++++ E+(++) 
W++ N+ K? o? !w O? M V--- PS+++ PE-- Y+ GPG+ t++ 5? X- R+ tv+ 
b++++ D? DI? G e(++++)* h(+) r--(---) y(+)-->+++*
------END GEEK CODE BLOCK------
remove nospamme from mail address to reply

 diciamo che non si capisce ove sia il problema.....
azz.. che delusione..  speravo di trovare aiuto:-(

 
Tu prova a spiegarti meglio....
-- 
Leo "TheHobbit"


> Tu prova a spiegarti meglio....
è semplicissimo i programmi di upload via HTTP
<FORM ENCTYPE="multipart/form-data"   ACTION="xxx.cgi" METHOD="POST">
da alcuni giorni mi scrivono i file con dimensione zero senza segnalare
alcun errore.
Fino a pochi giorni fa funzionavano regolarmente (da molti mesi)
i permessi sulle dir sono come richiesti (777)
Ho provato diversi prog. ma tutti hanno lo stesso problema!
Penso che abbiano cambiato delle impostazioni sul server
(linux) ma non mi sanno dire..
Cosa puo' essere ?..
Grazie

Newsgroup: it.comp.lang.perl
Titolo: IDE PERL x LINUX

Esiste ?
me ne consigliate uno?
Grazie

 Grazie
Di niente

svetj ha scritto:

Prova l'accoppiata Eclipse + Epic

Newsgroup: it.comp.lang.perl
Titolo: problemi con le cgi

Salve a tutti!
Ho un problemino: ho creato una cgi per richiamare uno script in perl.
Sia lo script sia la cgi sono fatti in perl. Lo script genera una pagina
html. Il problema e' che non vorrei modificare lo script, ma chiamarlo dalla
cgi. Quando chiamo la cgi dalla linea di comano (linux) l'output viene
visualizzato sullo schermo, quando invece lo richiamo dal netscape non si
vede nulla.
lo script e' piu' o meno fatto cosi':
------------
#!usr/bin/perl
print "Content-type: text/html";
varie print per vedere cosa fanno le variabili di ambiente...
vari comandi per estrerre i parametri
system (nome_script);
-------
come posso fare per far eseguire alla cgi un altro script in perl e
ovviamente vedere i risultati sul browser?
come posso fare per far eseguire a perl un comando come se fossi sulla linea
di comando (e ovviamente vedere i risultati sul browser)?

 print "Content-type: text/html";
Io qui aggiungerei un print "\n\n"; per
l'header completo...
Sei sicuro che il server http esegua lo script?
E' il file .cgi nella dirctory giusta ? /cgi-bin usualmente.
I permessi sono settati giusti (x per tutti ?)
Ciao.
Alessandro

Alessandro
ci sono riuscito :- )
grazie
bye...
...frankie
Newsgroup: it.comp.lang.perl
Titolo: Problema

Salve!
Ho cominciato da poco a programmare in Perl da autodidatta, e mi sono
trovato davanti ad un problema che non riesco a risolvere, e che vi illustro
di seguito. C'è qualcosa che mi sfugge, e conto sul vostro aiuto.
All'interno di un file data.txt, ho una struttura di dati di questo tipo:
dato1|link1|URL1
dato2|link2|URL2
...
devo prelevare da questo file i dati che nel primo campo hanno la stringa,
per esempio, Home.
Fin qui è semplice:
#!/usr/local/bin/perl
$data="d:\\index.dat";
$data1="d:\\index1.dat";
open (DIR, "<$data");
@list = <DIR>;
close(DIR);
foreach $line(@list) {
             @input = split(/\|/,$line);
             if($input[0]=~/Home/g){
             push(@toorder,$line);
             }
}
A questo punto devo ordinare lessicalmente - secondo il secondo campo link -
i dati che ho prelevato e posto in toorder, ed infine porli in un secondo
file con la stessa struttura di quello originario.
Come devo scrivere il codice?
Ringrazio anticipatamente.
Marcello

 A questo punto devo ordinare lessicalmente - secondo il secondo campo link
------------------------------------------------------------------------
foreach $line (@list) {
	@input = split /\|/, $line;
	if ($input[0] =~ /Home/) {
		push @unsorted, $line;
		push @index, $input[1];
	}
}
@sorted = @unsorted[ sort { $index[$a] cmp $index[$b] } 0 .. $#index ];
------------------------------------------------------------------------
Dai un'occhiata a perlfaq4.
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)

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

Date un occhiata quiiii
www.kobrass.it/occhio.html
Distinti saluti
PFK
Paolo...@kobrass.it
www.kobrass.it

ma è una figata, l'hai fatto tu?
Newsgroup: it.comp.lang.perl
Titolo: inviare gif al browser

Ciao a tutti di questo NG.
Vorrei chiedervi se mi aiutate a risolvere un problema a cui non riesco a
venire a capo.
Sto scrivendo un counter ed ho le singole immagini gif di ogni cifra.
Attalmente il counter genera lui stesso l'immagine finale senza utilizzare
le gif, ma generando dinamicamente una bitmap.
Io ora invece vorrei utilizzare delle gif ( o jpg ) per le cifre, quindi
anche a colori.
So come leggere una singola cifra e inviarla al browser, ma non so come
prendere le gif di più cifre, metterle assieme e poi inviarle al browser in
un'unica immagine (infatti il counter viene richiamato dal tag IMG). Una
soluzione bruttissima sarebbe quella che dalla pagina web richiamo
singolarmente le singole gif, ma questa non mi piace e la scarto subito;
l'altra sarebbe quella di utilizzare i ServerSideInclude, ma scarto anche
questa per vari motivi.
Chiedo a voi quindi se riuscite ad aiutarmi a mettere assieme più immagini
in una sola e inviarla al browser.
Grazie e Ciao,
Tommaso.
--
----------------
Tommaso Trani
    Edinf s.a.s. - Sviluppo Software Personalizzato
        eMail: 
ed...@softwareplanet.net
            Web: 
www.softwareplanet.net
Sul Web: corsi di programmazione di Visual C++, JavaScript, Perl, HTML,
Linux...
----------------
Vuoi guadagnare sfruttando il tempo impiegato a navigare in Internet?
    Clicca qui: 
www.softwareplanet.net/Guadagnare/Guadagnare.htm

 anche a colori.
1) Fai le gif o jpeg di ogni numero (magari ad altezza fissa che è più
facile)
2) usa GD, un modulo per generare immagini (le versioni vecchie per le
gif, quelle nuove per PNG e JPG)
3) fai leggere da GD le immagini corrispondenti alle cifre di cui è
composto il numero (+facile se le chiami 1.gif, 2.gif etc :) , crei una
nuova immagine larga quanto la somma delle larghezze delle immagini
delle cifre e ci copi sopra queste ultime nella giusta sequenza.
Ciao.
Stop! :)


Ciao,
prova con il seguente listato:
# apri il file count.txt che usi come database
open (count, "<count.txt");
$count = <count>;
close (count);
$length = length($count);
# separi le singole cifre e le inserisci  in un array
@gcount = split (//, $count);
print "Content-type: text/html\n\n";
for ($i=0; $i < $length; ++$i) {
# scrivi sulla pagina html i tag <img src> per ogni singola cifra. $images è
la directory dove hai messo le gif che si dovranno chiamare 0.gif,1.gif,ecc
print "<img src=\"$images/@gcount[$i].gif\" width=\"$width\"
height=\"$height\">";
}
exit;
Ovviamente dovrai invocare lo script con un <!--#exec
cgi="/cgi-bin/
count.pl
" --> nel punto dove deve comparire il numero
Ciao

 wrote in message
8pa5ma$hpj$1...@lacerta.tiscalinet.it...


 wrote in message
39B8127E...@friuli.com...


 GD.
Vai su 
http://simi.polito.it/perl/index.html#scritte
e trovi quello che fa al caso tuo (o quasi) :)
Newsgroup: it.comp.lang.perl
Titolo: Prelievo di dati da internet!

Ciao, non conosco perl ma ho basi di programmazione e mi ritengo flessibile,
quindi vorrei risolvere il mio problema senza iniziare perl da zero (sono un
po presuntuoso ma ho veramente fretta!)!
Devo gestire delle pagine che contengono prezzi di borsa e capite che devo
formire informazioni aggiornate in modo costante: sapete insegnarmi a
gestire il prelievo di prezzi da altri siti e aggiornare le mie tabelle o
quando chi naviga richiede la pagina con i prezzi o lato server ogni x
minuti?!!?
Ciao
Maurizio

minuti?!!?
Puoi accedere ad una URL con libwww-perl e poi parsare la pagina...
	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: Accedere alle porte HARDWARE

E da un paio di giorni che giro tra i moduli e non trovo il modo di gestire
delle porte hardware, avete esperienze di questo tipo, nel vecchio Basic
esistevano il Poke e Peek.
Grazie
Sergio


Non ho alcuna esperienza, ma se non lo hai già fatto, ci sono alcuni
moduli da cui trarre spunto:
http://search.cpan.org/author/SCOTT/Device-ParallelPort-0.03/
http://search.cpan.org/author/BBIRTH/Win32-SerialPort-0.19/
--
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d

Newsgroup: it.comp.lang.perl
Titolo: richiamo file in altra dir

dovrei richiamare il file eventi.txt posto nella  dir pl  eseguendo il file
eventi.pl
 posto nella dir cgi-bin
ho provato cosi' ma non funziona:
open(IN, '</pl/eventi.txt') || die('Errore aprendo il file' );
precisoche la cartella pl NON e' una sotto dir della cgi-bin
Grazie e ciao

 open(IN, '</pl/eventi.txt') || die('Errore aprendo il file' );
sei sicuro che il path sia giusto?
/pl/eventi.txt
mi pare strano, forse
../pl/eventi.txt

Newsgroup: it.comp.lang.perl
Titolo: Lista distribuzione tipo Majordomo.

Salve a tutti,
sto cercando un CGI che offra più o meno le stesse funzioni di
Majordomo:
Mi serve un programma che controlli un indirizzo email e inoltri i nuovi
messaggi a tutti gli iscritti. Non riesco a trovare nulla. Qualcuno mi
sa' aiutare?
Grazie
Salvatore
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Majordomo:
come majordomo c'è 
http://www.sympa.org/
ma non credo sia proprio un CGI.

 wrote in message
news:dkfkfe$o83$
1...@nnrp.ngi.it


Newsgroup: it.comp.lang.perl
Titolo: semplice re

Salve,
     vorrei controllare che un valore preso da 
cgi.pm
 param contenga 
solo:
SC_0123456789.jpg
ovvero "SC_" poi solo numeri e infine ".jpg"
un aiutino?
grazie!

,
scriveva:

Veramente, è davvero un po' TROPPO semplice, per pensare che sia necessario
un "aiutino", oltre a quello di consigliarti di rileggere la
documentazione.
Comunque (in fondo, è quasi Natale), direi che /^SC_\d+\.jpg$/ dovrebbe
funzionare, o anche /^SC_[0-9]+\.jpg$/. Ci si può forse aggiungere il
modificatore /i, giusto per stare tranquilli.
Ciao.

 Comunque (in fondo, è quasi Natale)
allora ho un altra domanda :-)
dato che le immagini nella cartella /cgi-bin/ non sono accessibili, ho 
creato un piccolo script che me le manda tramite content-type: 
image/jpeg ed il parametro dell'immagine che voglio vedere gli arriva 
tramite PATH_INFO e non tramite CGI param:
use strict;
use warnings;
use CGI qw(:standard);
select( (select ( STDOUT ), $|=1)[0] );
my $q      = new CGI();
my $image;
if ( $ENV{"PATH_INFO"} )
{
   $image = $ENV{"PATH_INFO"};
   $image =~ s/\///;
}
my $size   = -s $image;
print $q->header(
         -type    => 'image/jpeg',
         -expires => '+10s',
         -content_length => $size
         );
open my $fh1, "<", $image or die "$image $!\n";
syswrite STDOUT, $_ while sysread $fh1, $_, 8 * 1024;
close $fh1;
__END__;
lo script lo richiamo così: viewer.cgi/dir/SC_0123456789.jpg (ho scelto 
questo metodo in modo che se tiro giù l'immagine sulla scrivania viene 
chiamata: SC_0123456789.jpg con il vecchio metodo: viewer.cgi?image= 
SC_0123456789.jpg l'immagine veniva chiamata sul desktop viewer.cgi)
quindi alla open arriva questo path: dir/SC_0123456789.jpg
credete che questo script sia abbastanza sicuro? credete che un utente 
con buone conoscenze di perl possa riuscire ad aprire altri files? o 
addirittura a mandare comandi unix??
grazie

 addirittura a mandare comandi unix??
direi che si puo' scaricare qualsiasi file a cui ha accesso in lettura 
l'utente che esegue il cgi.
ad esempio
viewer.cgi/../.htaccess 
(e' la prima cosa che mi viene in mente, in questo momento. Tieni conto 
che io non scrivo praticamente mai cgi quindi prendila con le pinze).
Forse un po' di filtro sul pathinfo prima di porgere il file al 
downloader lo dovresti fare.
Ciao
Joe

Non discuto sull'utilizzo di PATH_INFO, che probabilmente dà anche un
aspetto più "pulito" (ma non sono preparato ad una discussione a
riguardo). Se lo fai solo per il nome del file, prova a leggerti gli
standard riguardo all'header "Content-Disposition", che ti permette
fra l'altro di impostare il nome del file che verrà poi proposto dal
browser. Qualcosa tipo:
   Content-Disposition: attachment; filename=whatever.jpg
per "forzare" il download, oppure
   Content-Disposition: inline; filename=whatever.jpg
per vedere l'immagine direttamente nel browser.
Ciao,
   Flavio.
Newsgroup: it.comp.lang.perl
Titolo: problema use

Cia a tutti, premetto che non sono proprio un novizi di perl. Pero' in
sto linguaggio ci sono delle cose che proprio...
Cmq vengo subito al dunque:
io ho un modulo diciamo che si chiama "MyModule.pm" e in questo modulo
definisco una variabile diciamo $myVariable.
MyModule.pm è utilizzato da un file cgi, "myCgi.cgi". io vorrei fare
qualche cosa del genere:
use MyModule myVariable => 1;
e dunque settare in questa maniera la viariabile $MyVariable definita
in MyModule.pm ad 1. E' in effetti quello che si fa quando si utilizza
il modulo di test Test::More:
use Test::More tests => n;
Ho cercato di analizzare il codice di questo modulo ma non sono
riuscito a capire come si fa questa operazione.
Spero che quelcuno sappia aiutarmi. Vi ringrazio in anticipo.
Stefano.

 use Test::More tests => n;
L'espressione precedente non serve ad impostare la variabile '$test' del
modulo. La lista (nota che '=>' è equivalente a ',' ) che segue il primo
argomento di 'use' viene passata come argomento di 'import'. Quindi, se
vuoi sapere che cosa che accade in Test::More, devi andarti a vedere che
cosa combina 'import' con gli argomenti che riceve.
Se il tuo modulo MyModule definisce una variabile globale myVAriable (ossia
una variabile dichiarata con 'our' o con 'use vars' [obsoleto]) puoi
modificarne il valore in qualsiasi momento così:
 $MyModule::myVariable = value
Max

 Spero che quelcuno sappia aiutarmi. Vi ringrazio in anticipo.
Non e` affatto complicato.
L'unica variazione che apporto (e suggerisco) rispetto a quanto da te 
richiesto, e` l'invocazione di use fatta così:
use MyModule { my_var => 1 };
Infatti la tua invocazione di use potrebbe avere un maggiore appeal 
visuale, ma poi ti ritrovi con i valori "my_var" e "1" in due variabili 
diverse (o meglio due elementi diversi dell'array @_ del metodo import - 
leggi oltre) e non so quanto la cosa possa essere comoda.
Infine se devi valorizzare sempre e solo un'unica variabile, puoi 
addirittura utilizzare questa forma, che è la più semplice di tutte:
use MyModule 1;
OK, allora il trucco è semplicemente: tutti i parametri che passi a use 
dopo il nome del modulo da caricare, puoi intercettarli all'interno del 
metodo "import" che definisci nel modulo medesimo, tutto qui.
Quindi questo sarà il tuo script:
use strict;
use warnings;
use MyModule { my_var => 99 };
e questo sarà banalmente il tuo modulo (MyModule.pm):
package MyModule;
use strict;
sub import {
     my $my_var = $_[1]->{my_var};
     print $my_var
     # In questo caso d'esempio viene stampato 99.
     # Nel caso generale qui hai $my_var valorizzata come da te
     # richiesto, per farne cio` che vuoi.
}
1;
<autopromozione style="type: spudorata">
Benché sia incentrato su un altro argomento, quest'articolo apparso su 
Perl.it tratta la tecnica predetta con un certo dettaglio:
http://www.perl.it/documenti/articoli/2006/03/overloading_del_1.html
</autopromozione>
Ciao,
Emanuele.

Grazie a tutti per le risposte, provo e se ci sono problemi (ma non
credo la vostra spiegazione è stata perfetta) vi faro' sapere.
Stefano.
Newsgroup: it.comp.lang.perl
Titolo: permessi file in windows nt

Nella documentazione del perl ho trovato parecchie cose sul chmod, e vorrei
saper se secondo voi è più sicuro un server nt o unix, perchè a quanto pare
in unix si possono dare ai file dei permessi diversi da quelli di win nt.
Io in particolare ho spazio web su aruba, che ha server nt. Per cambiare i
permessi dei file faccio come se fosse un server unix, usando il chmod di ws
ftp o che altro?
grazie

 in unix si possono dare ai file dei permessi diversi da quelli di win nt.
Guarda, il discorso sulla sicurezza NT/Unix è un argomento che non è
possibile esaurire in un post. Considera cmq che Unix/Linux
sono S.O. che hanno alle spalle una ventina d'anni di "esperienza
testata sul
campo", mentre NT è piuttosto giovincello. Inoltre il codice sorgente
dei primi due
è stato scritto e riscritto da hackers, team universitari, centri di
ricerca ed
è (quasi sempre) disponibile e ben documentato, mentre NT, scritto da un
paio di
team di sviluppatori M$ di cui almeno il 50% a mio avviso si è dedicato
allo sviluppo
delle icone e dei puntatori animati della GUI, ha un grande numero di
API non documentate,
ergo un bravo amministratore sa come configurare il suo server
Unix/Linux per securarlo
(un sistema è sicuro quando i rischi di intrusione da parte dei "Bad
guys" sono a livelli
accettabili rispetto all'importanza dei dati  contenuti ed all'
importanza del  servizio
offerto, un computer totalemnte sicuro è un computer spento). Tanto per
fare un esempio
il server principale della microsoft (
www.microsoft.com
), quello che si
occupa di
fare da bridge tra il sito e la loro extranet aziendale è un server
Unix.
Permessi: Nt non utilizza un sitema di permessi simile ad Unix, in Nt
(server edition)
un file/directory) può essere non condiviso, condiviso in lettura,
condiviso in scrittura/esecuzione.
A riguardo dello spazio web che ha preso, probabilmente sarà presente un
"pannello di controllo",
ossia una pagina web dove cambiare permessi ai tuoi files.
chmod, chown, chroot su NT semplicemente non hanno senso (a meno che il
server ftp che gira sul server
win32 non giene voglia dare uno a tutti i consti).
Newsgroup: it.comp.lang.perl
Titolo: Posizione Sottostringa

Buongiorno a tutti!
    Prima di scrivere questo articolo ho dato una letta alle news ma non
ho trovato risposta. Il tema dominante comunque sembra il genere del
Perl: per me e' maschile, che strano, credevo fosse cosi'...
Passiamo al mio problema.
Volevo sapere se in PERL c'e' un comando che mi dia la posizione di una
sottostringa all'interno di una stringa.
P.e. nella stringa
"This is the end, my only friend, the end"
vorrei che cercando la sottostringa "only" mi restituisse l'indice, la
posizione di essa all'interno della prima, cioe' (contando dallo 0, se
non sbaglio) 20.
E' possibile questo agli occhi miei miracolo?
Thanx in advance.
Con simpatia.
Leopoldo Tomasatti.
p.s.
              per favore rispondete anche a 
now...@iol.it
--
Posted from 
bologna.nettuno.it
 [193.43.2.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

 E' possibile questo agli occhi miei miracolo?
 index();
 
 $a = "This is the end, my only friend, the end";
 print index($a,"only");
 
 produce 20.
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

E' possibile questo agli occhi miei miracolo?
index ($STRING, $SUBSTRING);
Ciao
Andrea Busia
---------------------------------
Redattore di 
www.ludus.it
La prima rivista online italiana
dedicata al mercato videoludico
---------------------------------

 wrote:
:     Prima di scrivere questo articolo ho dato una letta alle news ma non
: ho trovato risposta.
Bastava un 'man perlfunc' :-)
: Volevo sapere se in PERL c'e' un comando che mi dia la posizione di una
: sottostringa all'interno di una stringa.
: P.e. nella stringa
: "This is the end, my only friend, the end"
: vorrei che cercando la sottostringa "only" mi restituisse l'indice, la
: posizione di essa all'interno della prima, cioe' (contando dallo 0, se
: non sbaglio) 20.
nanux:~>perl -e 'print index("This is the end, my only friend, the end", "only"), "\n"'
20
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos
Newsgroup: it.comp.lang.perl
Titolo: Modulo DBDSQLite su slackware 10 errore installazione

Una volta scaricato DBD-SQLite-1.03.tar.gz e scompattato tento di 
installarlo cosě:
perl Makefile.PL (tutto fila liscio)
poi quando do il comando make ottengo questo errore.
dbdimp.c:21:4: warning: #warning "Using vararg macros to provide trace 
with line numbers"
dbdimp.c:231: error: conflicting types for `sqlite_db_last_insert_id'
/usr/lib/perl5/site_perl/5.8.4/i486-linux/auto/DBI/dbd_xsh.h:36: error: 
previous declaration of `sqlite_db_last_insert_id'
make: *** [dbdimp.o] Error 1
Come lo risolvo ???

 Come lo risolvo ???
Il mio consiglio è di scrivere all'autore del modulo.
Se è davvero un suo errore, allora sarà di sicuro felice di poterlo 
fissare, se è un tuo problema, al massimo ti ignorerà ;)

 Come lo risolvo ???
Credo che tu lo possa risolvere in due modi:
1) O aggiornando la versione di DBI alla 1.43: tieni conto che il
    `last_insert_id' e' una feature che si sta ancora stabilizzando;
2) oppure scaricando la versione successiva di DBD::SQLite (1.04) che
    nel frattempo ha fissato il tuo problema.
    Per i dettagli, puo' esserti utile fare riferimento a:
    - 
http://search.cpan.org/src/MSERGEANT/DBD-SQLite-1.04/Changes
    - news://
nntp.perl.org/perl.dbi.users/
 (cerca DBD::SQLite)
3) oppure tutti e due ?
Ciao!
-- 
Cosimo
Newsgroup: it.comp.lang.perl
Titolo: Modulo per resize immagini

Qualcuno e' a conoscenza di un  modulo Perl che consenta di
effettuare il resize di immagini in formato gif, jpeg e png?
Ciao e grazie
Daniele

 effettuare il resize di immagini in formato gif, jpeg e png?
 GD
 
http://search.cpan.org/search?dist=GD
 
http://stein.cshl.org/WWW/software/GD/
Le ultime versioni non supportano più il formato GIF.
Max

 wrote:

Grazie per il tuo aiuto, ma... sei sicuro? Ho guardato nella
documentazione del modulo GD che parla della possibilita' di get
delle dimensioni di una immagine ma non di un set.
L' unica cosa che somiglia a quanto  mi serve e': copyResized
che pero' copia blocchi all' *interno* di una immagine.
O sbaglio?
Daniele

 che pero' copia blocchi all' *interno* di una immagine.
Non capisco bene cosa tu intenda. copy() e copyResized() copiano dentro
l'immagine un blocco rettangolare prelevato da una qualsiasi altra
immagine. La seconda consente il ridimensionamento. Mi sembra che questo
sia sufficiente per ottenere l'effetto che cerchi. La documentazione
fornisce anche un esempio:
     $image->copyResized(
       $sourceImage,
       $dstX,$dstY,$srcX,$srcY,
       $destW,$destH,$srcW,$srcH
     )
           This method is similar to copy() but allows you to
           choose different sizes for the source and destination
           rectangles.  The source and destination rectangle's
           are specified independently by (srcW,srcH) and
           (destW,destH) respectively.  copyResized() will
           stretch or shrink the image to accomodate the size
           requirements.
           Example:
                   $myImage = new GD::Image(100,100);
                   ... various drawing stuff ...
                   $srcImage = new GD::Image(50,50);
                   ... more drawing stuff ...
                   # copy a 25x25 pixel region from $srcImage to
                   # a larger rectangle starting at (10,10) in $myImage
                   $myImage->copyResized($srcImage,10,10,0,0,50,50,25,25);
 
Max
Newsgroup: it.comp.lang.perl
Titolo: spedire 2 mail con un FORM solo

Ciao a tutti,
ho un piccolo problema...
devo riuscire a spedire 2 e-mail a 2 indirizzi diversi
utilizzando un unico SUBMIT
o meglio, l'utente deve premere un solo punsante "INVIA"...
poi, quello che succede a lui non deve interessare ma alla
fine io devo ottenere l'invio di 2 mail distinte.
Il server su cui opero è FreeBSD con Apache e quindi devo
sviluppare in PERL o in JAVASCRIPT.
Grazie a tutti per l'interessamento.


Usa Mail::Send ed utilizzi il Cc: o, se preferisci, il Bcc:
Ciao
M. 

 M.
Grazie, ci avevo già pensato ma...
ma c'è un ma...
le 2 mail *devono* essere diverse.


Credo che a mano si possa fare senza troppi problemi: nello script
imposti un blocco di codice che ti invia una mail seguito da un
successivo blocce che invia la seconda.
Il tutto ovviamente non l'ho mai testato!
Ciao
M. 

 Il tutto ovviamente non l'ho mai testato!
Ci ho pensato anch'io ma volevo utilizzare
il 
FORMMAIL.PL
 che è standard senza dover andare a
riscrivere tutto.

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

 che fa il submit al submit della principale...
Grazie per il suggerimento.. stavo pensando anch'io a javascript ma,
avendo poche informazioni anche su javascript ho postato lo stesso
messaggio anche su it.comp.lang.javascript :-)))
se hai già realizzato qualcosa del genere, saresti così gentile da darmi
qualche lume lo stesso ?
Grazie
B * R
r.bia...@tin.it

 qualche lume lo stesso ?
L'ho scritto sopra: una frame nascosta che fa il submit al submit della
principale sfruttando l'evento onSubmit della frame principale (ma qui
siamo OT).

Newsgroup: it.comp.lang.perl
Titolo: MANUALE PERL

dove posso trovare un manuale in italiano veramente completo?

dove posso trovare un manuale in italiano veramente completo?
Ce ne sono molti in giro, ho fatto una raccolta sul mio sito... guarda
nella sezione perl e vai ai links.
Fra poco me ne scrivo uno mio di manuale, visto che anche mio fratello
se lo vuole imparare... :)
--
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

Newsgroup: it.comp.lang.perl
Titolo: Perl XS


Salve a tutti... soprattutto a chi ha la voglia di rispondermi....


Saro' breve... promesso !

Sto cercando di portare gettimeofday (una funzione del kernel linux)
sotto perl tramite le strutture xs. Ovviamente non funge.

Cosi' ho provato a scrivere 
pari pari 
(scusate il linguaggio
poco tecnico...) l'esempio 1 del manuale perlxstut. Sorpresa !!! Non funziona
! Un banalissimpo Hello world.

Non so che fare... se qualcuno puo' aiutarmi... grazie.


bye bye

 Snoopy


Ho trovato il modo... se a qualcuno interessa...
bye bye
  Snoopy

Newsgroup: it.comp.lang.perl
Titolo: allegati mail in perl

 Esiste in giro qualche script del genere?
 
http://search.cpan.org/search?dist=MIME-Lite

Grazie mille spero funzioni
Ciao
Max M. ha scritto nel messaggio ...

Newsgroup: it.comp.lang.perl
Titolo: Se ciclo, non matcha

Ciao a tutti,
non riesco a venire a capo di uno strano comportamento di un ciclo in perl.
Ho questa subroutine, che deve matchare una stringa, estrarne delle
variabili e immetterle in un hash di hash, secondo un indice preciso che
recupero con la foreach.
sub check_delivery
{
   if ( $_ =~ m/delivery\s(\d+):\s(success|deferral|failure):\s(.*)/ )
   {
      foreach $chiave( keys %messaggi )
      {	
         if ($messaggi{$chiave}{attempt}==$1) {
$messaggi{$chiave}{status}=$2; $messaggi{$chiave}{messaggio}=$3; }	
      }
   }
}
Ora, non capisco assolutamente perché con il foreach, il match non matchi!
Se tolgo la subroutine e metto un semplice print $_, tutto funziona...
Chi mi spiega l'arcano?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Se tolgo la subroutine e metto un semplice print $_
Intendevo: se tolgo il foreach...


          if ($messaggi{$chiave}{attempt}==$1) {
probabilmente e' l' if() che non va. Prova a sostituire l' operatore
== che confronta come interi con eq che confronta con criterio stringhe.
Se non e' questo... buon debug. Dovresti partizionare il codice e veder
funzionare tutte le fasi. Non dovrebbe essere difficile per te che hai
il resto del codice e' l' hash validata. Per me invece e' impossibile
fare simulazioni.
perldoc perlop
Ciao
Roberto


 Se non e' questo... buon debug. 
Non sembra essere quello.
Aggiungendo un "return 1" alla fine della subroutine, ciclo e if si
comportano in maniera normale....
Probabilmente è colpa del codice che viene dopo, visto che ho una serie di
if per il controllo di altre stringhe presenti nello stesso file, ovvero:
sub check_this {}
sub check_that {}
if (&chechthis) {}
elsif (&check_that) {}
else (print "no match") {}
La forma non mi piace per niente (e infatti mi ha regalato questo glitch),
ma proprio non riesco a pensarla diversamente. Programmo raramente e mi
manca lo stile :D, suggerimenti sono ben accetti


manca lo stile :D, suggerimenti sono ben accetti
Non so che cosa stai facendo, magari non c'entra nulla, ma, per
associazione di idee, mi viene da suggerirti di guardare il modulo
Mail::DeliveryStatus::BounceParser.
Ciao.

 Mail::DeliveryStatus::BounceParser.
Purtroppo non è sufficiente, ma grazie comunque :))

Newsgroup: it.comp.lang.perl
Titolo: Trovare 2 stringhe in un file

Ciao a tutti,
devo fare un programmino che trovi 2 stringhe
all'interno di alcuni file (AND).
Siccome la ricerca avviene sulla variabile $_
(cioe' la linea corrente del file)
non riesco a trovare un modo per essere sicuro
di matchare le giuste stringhe. 
Il listato e' piu' o meno cosi':
open (INPUT,"file.txt");
while (<INPUT>)
{
	if (/$stringa1/)||(/$stringa2/)
	{
        	$flag=1;
	}
	if ((/$stringa1/)||(/$stringa2/)&& flag=1)
	{
		print "trovato\n";
	}
} 
close (INPUT);
Ma in questo modo rischio di matchare 2 volte la stessa stringa e 
nel caso di un futuro ampliamento della ricerca (es. 3 stringhe)
non mi permette un facile "upgrade".
Non voglio usare comandi di s.o (grep,find,ecc).
Qualcuno puo' aiutarmi,per favore ?
Risposte (se possibile) to: 
bogg...@venus.it
Ciao e grazie.
Alessandro

 di matchare le giuste stringhe. 
Un'idea potrebbe essere questa...  (Dovrebbe funzionare, ma non so se è
efficiente. Sicuramente è molto..  perlish :-) ) 
Il seguente programmillo cerca n stringhe in un file e ti dice quante
stringhe ha trovato e quante occorrenze per ciasuna di esse. (A te
ovviamente interessa il caso in cui trova ogni stringa almeno una volta.) 
__BEGIN__
$your_file = 'your_file.txt';
# le stringhe da cercare:
@your_strings = ('stringa1', 'stringa2', ... );
# escapiamo eventuali caratteri speciali
@your_strings = map {quotemeta $_ } @your_strings;
# costruiamo ls regexp
$RegExp = join '|', @your_strings;
open F, $your_file;
$file_content = join '', <F>;
close F;
# segue la parte più divertente...
map { $Found{$_}++ } ( $file_content =~ /\b($RegExp)\b/og );
$quante = keys %Found;
# se $quante è uguale al numero di elementi di @your_strings, 
# allora tutte le stinghe sono state trovate. 
if ($quante == @your_strings) { ....
# %Found ti dice anche quante volte ogni singola stringa è
# stata trovata.
print "Ho trovato 'pippo' $Found{'pippo'} volte \n";
__END__
Ciao,
Max

Newsgroup: it.comp.lang.perl
Titolo: semplice redirect ?

Mi scrivete 2 semplici reghe di codice
per fare un semplicissimo ridirezionamento in perl ??
Grazie :)
--
******************************
* DjP@bL3                    *
*  
http://paolo20.tripod.com
 *
*  
pao...@freemail.it
       *
*  UIN ICQ : 11660099        *
******************************

 per fare un semplicissimo ridirezionamento in perl ??
print $query->redirect(-uri=>'
http://somewhere.else/in/movie/land
',
                           -nph=>1);
Questo genere di cose le trovi leggendo la documentazione di CGI.pm
ciao
Stefano
Newsgroup: it.comp.lang.perl
Titolo: spezzare un programma in due

ciao,
ho creato un software di gestione alberghiera in perl-tk che vorrei
spezzare in due:
- una parte principale contentente tutte le funzioni base
- una parte avanzata contenente le funzioni di gestione avanzate
vorrei che il modulo base importasse il modulo avanzato, nel caso lo
trovi, allora il menu visualizzera' tutte le funzioni (standard e
avanzate), altrimenti solamente le funzioni standard.
Ho cercato di risolvere con il 'do' senza riuscirci: es, vorrei avere
(tralascio tutto)
# 
main.pl
  $mw->configure(-menu => my $menubar = $mw->Menu);
  my $menuMain = $menubar->cascade(-label => '~Prenotazioni', -tearoff
=> 0);
do '
advanced.pl
';
# 
advanced.pl
my $menuAdv = $menubar->cascade(-label => '~Gestione', -tearoff => 0);
nella sezione avanzata vorrei percio' 'vedere alcune variabili del
main. Come posso fare?
Grazie,
Freddie

 wrote:
(snip)
risolto:
# 
main.pl
#!/usr/bin/perl
package main;
use strict;
use warnings;
use Tk;
my $mw = MainWindow->new;
$mw->configure(-menu => our $menubar = $mw->Menu);
our $menuMain = $menubar->cascade(-label => '~Checkin', -tearoff =>
0);
do '
advanced.pm
' if -e '
advanced.pm
';
MainLoop;
# 
advanced.pm
package advanced;
use strict;
use warnings;
print "Hello there\n";
our $menuAdv = $cs::menubar->cascade(-label => '~Advanced
Cash', -tearoff => 0);

Newsgroup: it.comp.lang.perl
Titolo: Ordine Alfabetico

Ciao a tutti!
Sto leggendo un file riga per riga, un ente ogni \n, ed ogni linea me la
metto in $linea[i], operando un semplicissimo ciclo $i++.
Come faccio a fare in modo che queste linee vengano stampate in ordine
alfabetico???
Grazie!!!

Paolo,

	$ perldoc -q sort
<code>
	local $,="\n";
	print @lines=sort { $a <=> $b } <FILE>;
</code>
	Alla prossima,
		Marco

 print @lines=sort { $a <=> $b } <FILE>;
Per un ordinamento alfabetico di stringhe e' meglio:
print @lines=sort { $a cmp $b } <FILE>;
-- 
Saluti,
Giancarlo

Grazie!!
Siete veramente molto gentili!!


 </code>
Perche' li stai ordinando in ordine NUMERICO?
  print sort @linea;
 
oppure
  print sort { $a cmp $b } @linea;
 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

   print sort { $a cmp $b } @linea;
Se posso aggiungere, se vuoi l'ordine alfabetico case insensitive
print sort { lc($a) cmp lc($b) } @linea
--
------------------------------------------
Roberto Congiu
        Alchemy Communications
                LA California USA

alfabetico???
#!/usr/bin/perl
@lines = <>;
print sort { $a cmp $b } @lines;
-- 
Roberto Lupi
|[ Work:     
http://www.lupex.net/
 ]|
|[ Personal: 
http://www.lupi.ws/
   ]|
Vendesi Citroen BX 1600 Station Wagon, L. 1.800.000 --> 
http://www.lupi.ws/
Newsgroup: it.comp.lang.perl
Titolo: newsgroup appropriato per offerta lavoro in Perl

Qualcuno sa indicarmi un newsgroup possibilmente italiano (senza perdermi in
quelli generici di informatica) dove posso cercare un programmatore in Perl,
free lance, per incarichi spot di installazione e personalizzazione di
script già fatti (in freeware od acquistati da terze parti), occorrenti per
il nostro sito ?
Grazie a tutti
Claudio
c.ri...@iol.it

 il nostro sito ?
it.lavoro.offerte
il.lavoro.informatica
meglio il secondo
-- 
јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И
Enrica Iaffei                     Aggregated Technologies ltd
7, Aristotelous Str.              3, Demetriou Vikella Str.           
1056 Nicosia       CYPRUS         1061 Nicosia       CYPRUS
phone +357 2 346261               +357 2 755750
"Da molti anni non mi chiedo piљ quale posto ш la mia casa
 ho scoperto che la mia casa ш insieme a me ovunque vada"
јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И

 il.lavoro.informatica
Ma se sono legate strettamente al Perl (quindi non cercasi programmatore
Unxi co nesperienza C, C++, Java, HTML, DHTML, Javascript, PHP, Perl!!)
non vanno bene anche qui? Non mi sembrano poi troppo OT, anzi!
Infondo, anche questo č un tipo di aiuto che si richiede alla comunitą
usenet (a patto che sia quella giusta, of course!!)
Ciao
M.
-- 
:wq

 DHTML, Javascript, PHP, Perl!!) non vanno bene anche qui? 
  No. In questo /newsgroup/ si dicute degli aspetti tecnici del Perl,
non si fanno offerte di lavoro. La gerarchia Usenet italiana e` stata
strutturata in questo modo e, visto che funziona bene cosi`, non vedo
perche` non adattarsi.
  D'altra parte, chi legge questo gruppo pensa di trovarci articoli
tecnici sul Perl: discussioni su qualsiasi altro tipo di argomento puo`
risultare irritante, occupare banda inutilmente e far perdere tempo. Un
po' come se, al supermercato, nel banco dei dolci ci fossero anche le
pizze (non si fanno entrambi con la farina?) e per cercare la tua torta
preferita dovessi prima scostare decine di margherite, marinare e
capricciose.
	Alla prossima,
		Marco

 perche` non adattarsi.
Mah, non sono poi d'accordissimo comunque non voglio scatenare flames di
sorta: mi sembrava solo che un offerta di lavoro legata al Perl fosse in
topic con il gruppo!
( e comunque sempre meglio un'offerta di lavoro delle tonnellate di post
che non c'entrano niente ma che si vedono lo stesso .. )
Ciao
M.
-- 
:wq

Newsgroup: it.comp.lang.perl
Titolo: Livello audio

 Sto realizzando uno script, per il resto piuttosto semplice,
 finalizzato a monitorizzare lo stato di un computer che non deve fare
 altro che riprodurre brani musicali.
 Una operazione pero` mi risulta problematica: dopo alcuni tentativi ho
 concluso che, per funzionare adeguatamente, lo script deve controllare
 periodicamente il livello dell'audio in uscita; qualcosa di
 indicativamente simile al campionamento di valori dati da una sorta di
 vumeter.
 Purtroppo non so come fare. Qualcuno ha qualche dritta da darmi?
  Prisco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:5ade8c355e505ff74cf...@mygate.mailgate.org...
