mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Operazioni con numeri decimali

Ciao,
perchıı il risultato della seguente sottrazione:
$a = 88.88-86.23;
ıı uguale a:
2.64999999999999
e non a:
2.65      ??????????????????????
come posso ovviare senza usare 
$VALORE = sprintf( "%.2f %s",$a);
utilizzo la versione  5.005_03 di perl.
Grazie.
------------------------------------------------------------------------
Questo messaggio e` stato inviato da 
http://www.inwind.it

 Grazie.
prego,
nids

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

Ciao a tutti...
Vi espongo subito il mio problem:
ho un file di log, il quale riporta più volte la stessa stringa di errore.
Per evitare pagine e pagine di log, ho fatto questo scriptino (che non funziona):
#!/bin/perl -w
open (LOGG, "log")
foreach $linea (@global)
{
foreach $riga (@finale)
        {
                if ($riga =~ $linea)
                        {
                        push (@finale, $riga);
                        }
        }
}
print @finale;                       
close LOGG;
tutto sto casino per avere un risultato...nullo!
Vi ringrazio per l'aiuto!!!
bye!!
--
TiscaliNet, libero accesso ad Internet.
http://www.tiscalinet.it
-- 
Posted from 
twingo.tiscalinet.it
 [195.130.224.85] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

close LOGG;
Hmmm, potresti utilizzare un hash...
-----
open (LOG, "log.txt");
while ($riga = <LOG>) {
  $striplog{$riga} = 1;
}
close (LOG);
open (STRIPLOG, ">striplog.txt");
foreach $k(keys %striplog) {
  print $k;
}
close (STRIPLOG);
-----
	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!

 tutto sto casino per avere un risultato...nullo!
Te credo, se usi array scegliendoli a caso!
Impara a mettere un 
use strict;
all'inizio del codice per evitare errori.
Ciao
M.
-- 
:wq
Newsgroup: it.comp.lang.perl
Titolo: Perl a casa





Utilizzavo fino a un mese fa IIS su Winnt per 
eseguire le pagine PERL a casa. Ma dopo un po' NT ha cominciato a darmi problemi 
e sono stato costretto a disinstallarlo.


Cosa posso utilizzare in Win98 che sia Free o che 
comunque si possa trovare su internet in qualche 
modo, gratuitamente?



trovare su internet in qualche modo, gratuitamente?
Usa apache, 
www.apache.org
Ciao
Andrea

 wrote in message
BMoJ3.19467$nP6.2...@typhoon.libero.it...
Utilizzavo fino a un mese fa IIS su Winnt per eseguire le pagine PERL a
casa. Ma dopo un po' NT ha cominciato a darmi problemi e sono stato
costretto a disinstallarlo.
Cosa posso utilizzare in Win98 che sia Free o che comunque si possa trovare


che ne dici del server xitami (facilissimo da installare)?
http://www.imatix.com/html/xitami/index.htm
combinato con perl di activestate
chiaramente entrambi free
ciao, antonio
PS: in realtà io uso NT, ma il tutto dovrebbe funzionare anche su Win98
e persino su Win)5 (ma non garantisco neanche una briciola)


 e persino su Win)5 (ma non garantisco neanche una briciola)
E' da pochissimo che mi sono affacciato al mondo Perl, comunque sto
lavorando
con Win98 con server xitami (veramente molto facile da installare)
combinato
con perl di activestate. Ti assicuro che funziona molto bene.
ciao marco
Newsgroup: it.comp.lang.perl
Titolo: info

E' la prima volta che posto qui. Di perl non so nulla. Ho però l'esigenza di
utilizzare di piccoli script in perl. Allora chiedo aiuto a voi.
Da quello che ho capito il perl è un ottimo linguaggio per realizzare script
lato-server. In questo senso lo accosterei al php, asp, Lsp, CGI: mi
sbaglio?
Tuttavia credo che questi script possano essere lanciati anche il locale. Se
voglio caricarli su un server che supporta il tipo di linguaggio
server-side, allora mi basta inviare il file sul server ed è tutto fatto. Se
invece volessi eseguire sul mio pc un file .pl, come dovrei fare? C'è
bisogno di un interprete o compilatore? Dove si scarica? Lo so che questo
post farà sorridere molti, ma io di perl non so davvero nulla. Tuttavia ho
dei file pl e le istruzioni su come lanciarli da linea di comando. Mi serve
sapere quale software utilizzare per lanciarli.
Grazie

 ha scritto nel messaggio
news:itK%c.220695$OR2.10...@news3.tin.it...

Scusate se rispondo freddamente ma mi sento male.
windows: scaricati active perl da 
www.activestate.com
linux: cerca su 
cpan.org


Uno dei punti forti di Perl e' che arriva carico di documentazione.
Usa il comando
perldoc perl
e segui le istruzioni da li in poi.
Le stesse cose le puoi trovare in italiano
http://pod2it.sourceforge.net/pods/
Comincia da questo:
http://pod2it.sourceforge.net/pods/perlintro.html
Per una lista di risorse da utilizzare per imparare, guarda questo 
articolo:
http://www.perlmonks.org/index.pl?node_id=284175
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

 Usa il comando
[cut]
Grazie ad entrambi!
Newsgroup: it.comp.lang.perl
Titolo: print <<EOF;

Sto cercando di imparare perl+cgi.. Siate pazienti :))
Sto facendo uno script cgi in perl..
Quando metto
"print <<EOF"
in un if non mi funziona piů niente.. fuori dagli if invece si.. Perchč?
Posso evitare di scrivere ad ogni riga:
print "codice html";
magari in un altro modo?
Grazie!
zoodany..


Forse scrivi qualcosa tipo:
   EOF;
se lasci degli spazi prima della parola EOF non puo' funzionare,
perche' l' interprete cerca la riga che inizia per EOF.
Andrea

perche' l' interprete cerca la riga che inizia per EOF.
Anche, ho notato, le condizioni degli if hanno la strana abitudine di
fallire quando uno meno se l'aspetta.
Mi scuso per l'insinuazione (a me comunque capita frequentemente), ma "non
mi funziona piů niente" č un po' ambiguo. Se l'errore fosse quello che dici
tu, perl dovrebbe segnalare <<Can't find string terminator "EOF" at...>>,
oppure intercettare un EOF in qualche riga successiva e stampare comunque
qualcosa o dare un altro errore di sintassi per via del codice che č stato
saltato.
Se invece "non mi funziona piů niente" vuol dire che il programma gira, ma
non stampa quello che si suppone dovrebbe stampare, un controllo sull'if
potrebbe essere un'idea. Un "print STDERR 'sono qui';" dovrebbe risolvere
definitivamente il dubbio.
Ciao.

 qui';" dovrebbe risolvere definitivamente il dubbio.
  magari commetti l'errore di fare 
  if($stringa = "aa")
anzichč:
  if($stringa eq "aa")
?
	Ci scommetto che č questo ... :-)
-- 
<!--_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
                      The Hacking Pages
 
www.lulli.net
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-->

Newsgroup: it.comp.lang.perl
Titolo: Far Leggere input da html su perl

Qualcuno mi saprebbe dire come va impostata la pagina html e sopra tutto con
quali funzioni o costrutto, far passare dei valori, dalla pagina html per
l'appunto, ad uno script Perl ????
Grazie
Ermenegaldo

ri-postare in it.comp.www.cgi ;-)
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"
Newsgroup: it.comp.lang.perl
Titolo: Ricerca parti di stringhe...



Ciao a tutti,


sono nuovo del ng.


Volevo fare uno script che mi leggesse
un file e che mi estraesse


da ogni record due stringhe e possibilmente
le registrasse in un


altro file, a parte.


Il record campione è fatto come il
seguente:


xxxxxxxxxxxx.xxx  xxx  xxxxxxxxxxxxxxx
stringa1 xxxxx stringa2 - stringa3


x= numeri


Quello che a me interessarebbe è
estrarre stringa1 e stringa2.


Come posso fare e soprattutto quali comandi
posso usare?


Esistono dei comandi che fanno queste operazioni
senza che uno crei


una procedura assurda?


Grazie mille per l'aiuto....


NK



 Quello che a me interessarebbe č estrarre stringa1 e stringa2.
Prova cosi`:
$record =~ /^\d+\.\d+\s\d+\s\d+\s(.+?)\s\d+\s(.+?)\s\-\s\w+$/;
In $1 ti trovi stringa1, mentre stringa2 e` in $2.
E` un po' lunga e sicuramente si puo` trovare qualcosa di piu` sistetico 
ma... non ora. ;-)
A presto, Michele.

 Quello che a me interessarebbe č estrarre stringa1 e stringa2.
se le stringhe non contengono spazi
perl -pe '$_=join(" ", (split(/ /, $_))[3,5,7]) . "\n";' input.txt > 
output.txt
-- 
/federico



perchč non semplicemente:
perl -pe '$_=join(" ", (split(/ /, $_))[5,7]) . "\n";' input.txt
?
-- 
let's the karma confinated in untangible sphere of your existence
P. "yaroze" Giacomin

 
ops, non avevo letto che gli servivano solo le prime due, allora [3,5] non 
[5,7]
-- 
/federico

Grazie mille per l'aiuto....
ma siccome sono un asilaccio, mi potresti spiegare questa stringa?
Oppure mi sapresti indicare qualche help?
Grazie ancora per il tuo tempo....
Nichael Knight


 > Quello che a me interessarebbe è estrarre stringa1 e stringa2.


 Come posso usarle in uno script che cicla un file un record alla volta?
Si tratta di una regular expression che rappresenta il tuo dato. Per 
maggiori informazioni sulla sua struttura vedi la documentazione di Perl:
perldoc perlre
In ogni caso, gli elementi tra parentesi tonde vengono inseriti in 
variabili chiamate $1, $2, $3, ..., seguendo l'ordine delle parentesi di 
apertura. Nella mia espressione ci sono due coppie di parentesi, e quindi 
ti troverai con del contenuto in $1 e $2.
Detto questo, forse ti conviene utilizzare la soluzione proposta da altri 
(quella che usa split()), in quanto e` piu` elegante. ;-)
Michele.

 > Quello che a me interessarebbe è estrarre stringa1 e stringa2.


Newsgroup: it.comp.lang.perl
Titolo: Inviare una mail a un CGI

 E allora cosa?
Ti serve un programma che legga la mail e la parsi.
Metto Xpost e F/U su it.comp.lang.perl; ci vediamo lě.
I CGI sono programmi fatti per essere eseguiti da un server
web. A te serve un programma normale.
Ciao,
Valerio

 Metto Xpost e F/U su it.comp.lang.perl; ci vediamo lě.
Se nel file di alias del server metti qualcosa tipo
pippo: "|/home/valerio/
ilmioprog.pl
"
La mail viene inviata sullo standard input di 
ilmioprog.pl
.
Quindi puoi leggerla con
@mail = <STDIN>
Una volta che č nell'array puoi farci quello che vuoi.
Ci sono dei moduli fatti proprio per leggere le mail in formato
RFC822, come Mail::Internet.
Ciao,
Valerio
Newsgroup: it.comp.lang.perl
Titolo: URL dove sbaglio ?

########################
if( ... ){
    use LWP::Simple;
    use URI::URL;
    $pagina = "
http://www.xxx.it
";
     $url = url($pagina);
    @entries = get($url);
}
########################
Il codice funziona, ma nel "error_log" del server mi da questo errore :
Prototype mismatch: sub main::head vs ($) at test.cgi line 88
Prototype mismatch: sub main::url vs ($;$) at
/usr/lib/perl5/5.6.0/Exporter.pm line 57.
 Exporter::import('url') called at test.cgi line 89
 main::BEGIN() called at /usr/lib/perl5/site_perl/5.6.0/URI/URL.pm line 89
 require 0 called at /usr/lib/perl5/site_perl/5.6.0/URI/URL.pm line 89
Vi ringrazio per qualsiasi aiuto.
Oxy

 Il codice funziona, ma nel "error_log" del server mi da questo errore :
Nessun aiuto? :-(


 
http://groups.google.com/groups?th=d1f3da7af15f22b3
Max

Newsgroup: it.comp.lang.perl
Titolo: domandona niubba!!

Ciao a tutti!
mi sto' avvicinando a questo linguaggio che pare veramente "tosto"...
volevo chiedere un aiuto:
ho l'esigenza di "mandare a capo" ad una determinata lunghezza in un
file txt. Mi spiego meglio con un esempio:
il file è fatto così:
325487910284684668201535486441
io ogni cinque vorrei andasse a capo così:
32548
79102
84684
66820
15354
86441
L'idea sarebbe di uno script che prende il file da uno posizione lo
modifica come sopra e lo salva in un'altra posizione... ce la posso
fare?
Ringrazio tutti coloro che mi risponderanno
Ciao e buon week end
lyvyo

 Ringrazio tutti coloro che mi risponderanno
Prego.
my $a = "123456789012345678";
$a =~ s/(.{5})/$1\n/g;
print "$a\n";
 Raffaello

file txt.
Ad una determinata lunghezza, in modo incondizionato?:
        my @pezzi;
        open HIN, '<in.txt';
        open HOUT, '>out.txt';
        while (<HIN>) {
                chomp;
                @pezzi = unpack("(A5)*", $_);
                for my $pezzo (@pezzi) {
                        print HOUT $pezzo, "\n";
                }
        }
        close HIN;
        close HOUT;
Se no, ci sono dei moduli per la formattazione di testo, Text::Autoformat,
Text::Format, Text::Wrap... che fanno cose più complesse. 
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: apertura di file

Salve,
volevo sapere se è utile quando si apre un file inserire anche l'istruzione
or die "errore nell'apertura"\n;
pur sapendo che il file esiste.
Cosa comporta non metterla?
Grazie
Nicola
-- 
Posted from  [62.211.255.201] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Cosa comporta non metterla?
   Che non saprai immediatamente che tutti gli errori che incontri sono 
dovuti al fatto che non sei riuscito ad aprire il file.
   Incidentalmente, il fatto che il file esista *non* implica che tu 
possa aprirlo tranquillamente: potrebbero, ad esempio, esserci blocchi 
in lettura e, soprattutto, in scrittura posti dal sistema operativo sul 
file a causa del suo utilizzo da parte di altri processi, oppure il 
sistema non puo` aprire il file per motivi suoi, per esempio, a causa 
dei gia` troppi descrittori allocati al tuo processo.
--
Alla prossima,
Marco

Salve,
volevo sapere se è utile quando si apre un file inserire anche l'istruzione
or die "errore nell'apertura"\n;
pur sapendo che il file esiste.
Cosa comporta non metterla?
Grazie
Nicola

 
Grazie della risposta,
volevo anche sapere: il fatto di non mettere il die può comportare che 
lo script vada in loop se non riesce ad aprile il file in questione?
(per esempio in caso di blocchi per troppi file aperti nel sistema)
Grazie,
Nicola
-- 
Posted from 
r-fi057-2-344.tin.it
 [62.211.53.88] 


 (per esempio in caso di blocchi per troppi file aperti nel sistema)
   No, una volta che ha fallito non dovrebbe--almeno che il sistema 
operativo non segua misteriose alchimie che prevedano il 
contrario--tentare di aprirlo ulteriormente.
--
Alla prossima,
Marco

 lo script vada in loop se non riesce ad aprile il file in questione?
No. Dovrebbe morire di suo, anche senza il die, ma con die() puoi almeno
decidere quali siano le sue ultime parole.
Bye,
 Emmanuele testamentario.
-- 
I ... Owe ... You ... Pain! -- Willow, "Tough Love"
Italian Buffy Resource Site (Beta) - 
http://www.ibrs.f2s.com
GnuPG Key ID: 0x788E3A3A
GnuPG Key FP: 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

Newsgroup: it.comp.lang.perl
Titolo: Pattern match help

Mi sono incartato..
parser.pl
#!/usr/bin/perl -w
#legge i file .html della dir corrente
opendir(DIR, ".");
 @files = grep(/\.html$/,readdir(DIR));
clisedir(DIR);
foreach $file ($files){
 open (FILE, "$file");
  while($line =<FILE>)
  {
  print"$line"; #da sostituire
  }
}
####END FILE####
in pratica vorrei stampare il contenuto del tag <title></title>
e pensavo a qualcosa tipo
$line = ~m/(<title>.*<\/title>)/;
dove mi sono perso?



Ci potrebbero essere degli spazi in mezzo a alla stringa che ti
interessa( < title > ), inoltre potrebbe essere suddivisa in 2 o
piu' righe ...
Dovresti anche mettere il modificatore "i" in fondo al match per
ignorare maiuscole o minuscole...
Prendi anche in considerazione l'utilizzo di un package per il
parsing effieciente dei tag HTML, renderebbe il tuo codice piu'
leggibile e scalabile.
  Raffaello

 > }
probabilmente c'è un errore di sintassi: "foreach $file (@file)", hai
dichiarato un array @file. non una variabile $file.

Newsgroup: it.comp.lang.perl
Titolo: bisogno urgente del vostro aiuto

salve a tutti
qualcuno di voi mi saprebbe spiegare come implementare
una funzione che prende una variabile in cui č contenuto codice
html insieme a codice perl delimitato ovviamente da <% %>
controllandomi in maniera esatta la correttezza delle aperture e chiusure di
tutte le parentesi <%%>?
esiste qualche modulo che fa cio'?
saluti
euterpex

penso di no,
ma 
http://www.apache-asp.org/
 puo' fornire aiuto.
-- 
Valter Mazzola -  Software/Databases for Enterprise Web Internet Sites
   PHP, Java Servlets, Applets, Jsp, ASP, PERL, Mod_Perl, Apache, IIS.
* 
HTTP://SITIDINAMICI.COM/?nttp
 ----- 
http://italia.LinSwap.com/?nttp
 
Phone:(+39) 347/129-07-16.  Fax:(+39) 02/700-539-403

 esiste qualche modulo che fa cio'?
Text::Balanced, di Damian Conway, dovrebbe fare al caso tuo.
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Apache Server

Ho bisogno di sapere dove si può scaricare il server apache per linux visto
che ho una versione un pò vecchia.
Grazie

 Grazie
Prego.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote in message
881leu$930$1...@menelao.polito.it...


e basta! 
www.apache.org

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

Newsgroup: it.comp.lang.perl
Titolo: Passaggio dati tra script cgi....perl

Salve, sono un novellino del perl+cgi, vorrei se possibile delle dritte per
ovviare al problema del passaggio dei dati attraverso "Input Hidden" tra i
cgi. Mi devo per forza definire degli input hidden col metodo post (o get) o
c'è qualche scorciatoia più funzionale?
Grazie, Ludwig

 c'č qualche scorciatoia piů funzionale?
Non e' un problema di Perl. Chiedi al newsgroup sui CGI.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


sarebbe una cosa che serve anche a me questa, perche' quando ho delle
funzioni a piu' passaggi dove salvo i dati intermediari? in dei hidden nel
form generato come secondo o terzo. Bho, non saprei , o cosi' o salvando i
dati ma che palla poi star sempre li' a farli levare dal server. Una
variante sarebbe con get no? script.cgi?dati&provvisori&etc solo che se si
tratta di passwords e simile é poco sicuro o sbaglio?
Non penso ci sia un scorciatoia, anche se non ho capito bene che devi fare,
ma io non ne conosco e sarei a mia volta interessato a conoscerne se ci sono
:-)
Ho capito male o cerci un modo per un salvataggio di dati provvisorio?
Newsgroup: it.comp.lang.perl
Titolo: programmi perl portabili

Esiste qualche FAQ o guideline o simili relativa alla scrittura di
programmi perl che siano portabili fra Unix e Win32 ?
Ringrazio anticipatamente,
						l.f.
--------------------------------------------------------------------------
       -- )     Luca Fini                            Tel: +39 055 2752 307
 ___    |\      Osservatorio Astrofisico di Arcetri  Fax: +39 055 2752 292
/   |   | |-_   L.go E.Fermi, 5 +-----------------------------------------
(___|___//___)  50125 Firenze  /   WWW: 
http://www.arcetri.astro.it/~lfini
 (_)      (_)   Italia        / e-mail: 
lf...@arcetri.astro.it
-----------------------------+--------------------------------------------
                              In a world without fences - who needs GATES?

 programmi perl che siano portabili fra Unix e Win32 ?
Nell'help di ActivePerl trovi sia la FAQ di ActivePerl, che indica quali
funzioni non sono disponibili nell'implementazione Windows (tipicamente
tutte le funzioni di controllo dei processi, alarm e fork), sia il puntatore
a 'perlport', una delle pagine di manuale che affronta il problema della
portabilita'.
'perlport' c'e', ovviamente, anche se hai accesso alla sola versione Unix.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 
Strano, sulla mia versione html del manuale (che viene con perl 5.0005) il
manuale perlport non c'e'. Ma l'ho trovato sulla versione "man". Grazie
per l'indicazione.


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

ciao,mi sapreste consigliare qualche libro italiano,ben fatto,che
parta dalle basi,sul perl?
ciao
dave

Perl e Internet della MCGrawHill
NON COMPRARE:
Perl Guida Pratica
Perl 5 di Tecniche Nuove
E se devi fare CGI non consiglio di spendere soldi per Programmare in
Perl di Larry Wall (bel libro ma non adatto ad un principiante che
mira ai CGI.)
Ciao
Dark Wave

Newsgroup: it.comp.lang.perl
Titolo: main con -w ma subrotine senza. E` possibile?

Sto usando delle routine grafiche di un amico, che pero` non e` 
uso a usare il flag -w. Questo significa che mi trovo un
numero esorbitante di warning
Use of uninitialized value at 
graphics.pl
 line 331.
A parte riscrivere le routine, ci sono altri sistemi?
ciao, .mau.

!

sub miasub {
  no warnings;
  # Codice...
}
Puoi anche fare il contrario, cioe' attivare i warning in una sub
se non hai avviato il perl con -w:
sub miasub {
  use warnings;
  # Codice...
}
E` inoltre possibile specificare il tipo di warning da abilitare
o disabilitare. Ad esempio;
use warnings "deprecated";
no warnings "unsafe";
...
	A presto, 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!

 A parte riscrivere le routine, ci sono altri sistemi?
Disabilitate localmente i warning settando $^W
{
  local $^W = 0;
  # ora i warning sono disabilitati, a prescindere da -w
}
# ora non piu'
Comunque ti conviene riscrivere le routine, perche' i valori non
inizializzati possono comunque essere fonte di casino (e poi rischi di
nascondere altri warning piu' seri).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

A parte riscrivere le routine, ci sono altri sistemi?
Esiste una variabile che sopprime i warning, potrebbe essere $^W ma ora
non ho tempo di controllare.
-- 
ciao, | * The Internet is full. Go away.  -- Joel Furr *
Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

Grazie a tutti per le risposte! ($^W e no warning).
Certo che se avessi aperto _Programming Perl_ magari l'avrei trovato da
solo :-( Invece mi sono basato sul cookbook...
ciao, .mau.
Newsgroup: it.comp.lang.perl
Titolo: editor per perl

ciao a tutti, qualcuno consiglia qualche editor windows per perl??
simone 

 ciao a tutti, qualcuno consiglia qualche editor windows per perl??
Visual Perl
o Komodo
www.activestate.com
ciao

 simone
Prova xemacs, esiste anche sotto Linux e offre un bel po' di cose in piu'
rispetto ad un editor tradizionale.
Svantaggi: all'inizio devi studiarti qualche comando da tastiera.
Saluti,
Giovans

 ciao a tutti, qualcuno consiglia qualche editor windows per perl??
Personalmente, mi trovo bene con crimson editor. E' assolutamente 
freeware, supporta l'highlighting del codice perl, cerca/sostituisce 
anche in base alle regexp, autoindenta il codice, è figo.
Lo trovi qui
http://www.crimsoneditor.com/
Saluti,
Simone.

 ciao a tutti, qualcuno consiglia qualche editor windows per perl??
Io uso sempre Editpad Classic, anche se non e' specifico per Perl ha
delle funzioni molto utile, e' facilissimo da usare e installare.
http://www.editpadpro.com/editpadclassic.html
 Raffaello

 
Non ci pensare neanche un attimo: Eclipse + Epic (e non cercare altro!)
Eclipse:
http://eclipse.org/
Epic:
http://e-p-i-c.sourceforge.net/
Syntax highlighting avanzato, autocorrezione, content assist, quick 
reference, outline di moduli e subroutine, gestione integrata POD, 
supporto template per il codice, source formatter ed esportazione in 
HTML (con la sintassi evidenziata), *debugger visuale* integrato 
(richiede l'installazione di PadWalker), debugger visuale di regexp, web 
browser integrato, più poi tutte le funzioni "standard" di Eclipse, 
quali console integrata, gestione avanzata progetti, connessione a 
server CVS etc. etc.
Tra l'altro, essendo tutto in Java gira anche sotto Linux (l'ho 
installato perfino sotto Debian, sia pure con un po' di fatica), per cui 
puoi conservare lo stesso identico ambiente di sviluppo in entrambi i 
sistemi.
Tutto open e tutto libero.
Ciao,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: Leggere un file txt ascii

Vorrei leggere un file testo (incolonnato e ben ordinato) dal browser, ma
quando lo visualizzo con un browser il testo non è incolonnato ma ci sono
le righe una dietro l'altra. Come faccio a serararle ed ordinarle ???
Grazie. Tenete presente che le righe sono tante.
Grazie, qui ho messo il sorgente.
#!c:\perl\bin\perl.exe
print "Content-type: text/html\n\n";
use CGI;
open(ag, '<c:\\apache\\cgi-bin\\storico.txt') || die "Il file storico.txt
non esiste\n\n";
while(<ag>){
print;
}
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 }
ciao,
Nids
ps: ti consiglio, invece di usare un testo bello formattato, di scrivere in
output un file html formattato con l'uso dei suoi tag specifici: a questo
proposito puoi generartelo al volo mentre leggi il file di testo oppure
tenertelo gia' memorizzato in quella forma.


grazie proverò domattina.

 serararle ed ordinarle ??? Grazie. Tenete presente che le righe sono
O cambi il content-type (come ti è già stato suggerito)
o, se devi piazzarlo all'interno di una pagina html,
stampi prima del file di testo
<pre>
e alla fine
</pre>
-- 
Valerio Granato
http://www.musicoff.com
 - Music Online For Free
La Grande Comunità Online per Musicisti

Newsgroup: it.comp.lang.perl
Titolo: Gestione dei files.

Salve!
Qualcuno sa indicarmi dove posso trovare della documentazione sulla gestione
dei files (apertura file  -  salvataggio/modifica/eliminazione dati  -
chiusura file).
Va bene anche in lingua inglese.
Se ne avete modo, rispondete via e-mail.
GRAZIE!
--
Andrea Zwirner
andrea....@tiscalinet.it

 
 perldoc perlfunc
 perldoc perlopentut

 
Chiedo scusa. perlfunc e perlopentut sono due sezioni della manualistica
presente in qualsiasi distribuzione del perl. Su sistemi Unix-like è
sufficiente usare il comando perldoc per consultarle. Con le distribuzioni
per Windows (activestate) la documentazione dovrebbe essere disponibile in
formato HTML da qualche parte all'interno della gerarchia di directory
dell'installazione. Il manuale del Perl è disponibile anche online
all'indirizzo: 
http://www.perl.com/pub/v/documentation
Max

Newsgroup: it.comp.lang.perl
Titolo: time e ore

Salve,
      ho lil seguente codice:
use File::stat;
my $file     = "
time.pl
";
my $sb       = stat $file;
my $lmod     = $sb->mtime;
my $tnow     = time;
my $diff = $tnow - $lmod;
my ($sec,$min,$hour) = (localtime($diff))[0,1,2];
my $time = sprintf( "%1d hr %1d mins %1d secs", $hour - 1, $min, $sec );
__END__;
Ora vorrei che arrivati alla 24a ora non si azzerasse (perchè 
scatterebbe il giorno localtime[4]) ma vorrei che diventasse 25 -> 26 
etc... quindi che continuasse a contare con le ore...
si può fare?
grazie

Larry wrote:

Certo:
my $file = "
time.pl
";
my $sb   = stat $file;
my $lmod = $sb->mtime;
my $tnow = time;
my $delta = $tnow - $lmod;
my $sec   = $delta % 60; $delta = ($delta - $sec) / 60;
my $min   = $delta % 60; $delta = ($delta - $min) / 60;
my $hours = $delta;
my $time = sprintf(
     "%d hr %d mins %d secs", $hours, $min, $sec
);
---
P.S.
Nota che, a voler essere (iper)rigorosi, non è precisissimo, perché 
alcuni minuti potrebbero avere 59 o 61 secondi, per via dei /secondi 
intercalari/ (leap seconds).
Se volessi tenere conto anche di questo, dovresti partire dalle date (e 
non dall'intervallo in secondi) e poi usare Date::Calc o altro modulo 
equipollente.

Newsgroup: it.comp.lang.perl
Titolo: Help me =(

ciao a tutti, ho appena imparato un po di kosette kon il perl, però volevo 
sapere se esistono qualche guida sui moduli in generale, perchè ad esempio 
se voglio fare un telnet in perl devo usare un modulo no? o sbaglio? 
Rispondete please che vojo imparare!!

 se voglio fare un telnet in perl devo usare un modulo no? o sbaglio?
http://www.perldoc.com/perl5.6.1/lib/IO/Socket/INET.html
http://www.perldoc.com/cpan/Net/Telnet.html
ps: mi sa che hai la tastiera rotta :)
-- 
/federico

 se voglio fare un telnet in perl devo usare un modulo no? o sbaglio?
La documentazione e` inclusa in ogni modulo. Per trovare quelli che ti 
servono visita:
http://search.cpan.org
Ah, volendo in italiano e` anche disponibile "ch" al posto di "k".;-)
A presto, Michele.

 Ah, volendo in italiano e` anche disponibile "ch" al posto di "k".;-)
Quindi gli stai suggerendo di scrivere "chosette" e "chon"?
Uhmm... :-)
Max

 Uhmm... :-)
Ehm, forse avevo risposto in maniera un po' troppo affrettata. ;-)
Michele.

 wrote in 
news:jSGP7.77281$
tf5.4...@bin5.nnrp.aus1.giganews.com
:

grazie x le risposte =), cmq e di mio soloto skrivere kon il k , nn è un 
difetto della tastiera =pP

Newsgroup: it.comp.lang.perl
Titolo: MySQL e Postgresql per WINDOWS 98 DOVE TROVARLI????

Dove è possibile trovare questi due o solo 1 visto che mi accontento
:), dopo aver cercato su diversi siti e diverse risorse non sono
riuscito ancora a trovare la versione per Win98 ma solamente aggeggi
da compilare che naturalmente con l'immensa fortuna che ho non vanno.
Grazie.
----------
Togli THEBEST per scrivermi.

 Dove č possibile trovare questi due o solo 1 visto che mi accontento

Newsgroup: it.comp.lang.perl
Titolo: ***SSI include***

Scusate, ho un problema con una cgi; come si fa a tradurre in perl il codice
<--#include virtual>, senza usare una Open( che non posso usare perché il
mio include a sua volta contiene altri #include virtual).
Potete aiutarmi?
Grazie!



In uno script Perl non hai comandi per fare SSI (che Apache vede come 
Internal Redirect).
Ci sono però moduli che ti consentono di fare ciò in script Perl.
Se hai mod_perl >= 1.27 puoi utlizzare la API nativa Apache::Include 
(lo script deve girare sotto Apache::Registry).
---CUT HERE---
use Apache::Include ();
print "Content-type: text/html\n\n";
Apache::Include->virtual('/file/to/include.ext');
---CUT HERE---
Senza mod_perl c'è CGI::SSI 
(
http://search.cpan.org/author/JAMES/CGI-SSI-0.53/
 see perldoc)
Come ultima spiaggia puoi sempre risolvere (a mano) con LWP... :-)
use LWP::Simple qw(get); 
my $ssi = get('http://...');
by
	- Enrico

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

Salve,
sapete dirmi dove posso trovare un manuale Perl in Italiano?
Grazie!!

Veronica wrote:

Nelle librerie universitarie si trova tutto!T consiglio Programmare in
Perl della O'Reilly





Programmare in Perl
Larry Wall, Tom Christiansen & Randal L. Schwartz
O'Reilly 
Jackson Libri
L. 75,000
Newsgroup: it.comp.lang.perl
Titolo: mySQL o PostgreSQL?

Devo decidere quale DBMS installare,
secondo voi qual è il migliore?
Pro e contro?
Grazie a tutti. Ciao

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

 Pro e contro?
Grazie per la flame war, al solito se non specifichi COSA devi
fare la domanda e' inutile.
P.S.
Credo che su phpbuilder ci sia un confronto fra i due.
PP.SS.
Per entrambi sono disponibili i moduli DBD per l'utilizzo con il Perl :-)
-- 
Ciao, Maurizio.

 Pro e contro?
mySQL č piů veloce, meno complesso ma meno completo
Postgres č ottimo, abbastanza completo, neanche troppo difficile ma un
po' piů lento.
Giusto per dirne qualcuna!
Ciao
M.
-- 
:wq

Che c'entra col perl?
Scusa se non ho specificato l'uso.
Lo devo installare su un web server Linux e successivamente
sviluppare siti con un archivio su DB.
Il Perl c'entra perchè lo uso per scrivere cgi e generare pagine
dinamiche.
Grazie, lo stesso.

> secondo voi qual è il migliore?


 siti che devono interagire con archivi su DB.
Interagire come ?????
Tieni in cosiderazione che per un db a "sola lettura" (esempio estremo ma
per capirci !) e' meglio MySQL, per uno a "sola scrittura" e' meglio
PostgreSQL.
Personalmente ritengo che la maggiore sofisticatezza di Postgres ripaghi
ampiamente del deficit di prestazioni rispetto a MySQL, cmq pare che
Postgres "scali" meglio di MySQL.
-- 
Ciao, Maurizio.

 dinamiche.
Considera l'uso di mod_perl, piu' complesso ma piu' veloce.
http://perl.apache.org/
-- 
Ciao, Maurizio.

 Postgres "scali" meglio di MySQL.
Posso chiedere "in che senso" o è troppo OT?
Ciao
M.
-- 
:wq

 Posso chiedere "in che senso" o è troppo OT?
Stando a cio' che ho letto in giro, gestisce molti piu' utenti
contemporeamente prima di andare in crisi e/o fornire dati errati.
Non sono mai stato un mazzulatore degli OT, ed evito di infilarmi e nelle
flame ed in domande assurde tipo "DBD::Pg" e' materia di questo
gruppo oppure di icsd ??
-- 
Ciao, Maurizio.

Newsgroup: it.comp.lang.perl
Titolo: While e Redirect II

Ciao a tutti di seguito riporto parte di codice che in base alla
verifica di due valori corrispondenti in due array diversi
dovrebbe eseguire il redirect ad un sito piuttosto che ad un altro.
In realta' sia che i valori siano errati o corretti il redirect avviene
sempre a 
http://www.pippo.com
.
Dove sbaglio???
Grazie Corrado.
#!/usr/bin/perl
$cont=0;
use CGI;
$query=CGI::new();
while($cont< scalar(@arma1)) {   # @arma e @arma di 1  sono due array
                                                      #  che contengono
i nomi ed i cognomi su cui andare ed eseguire la verifica
if($arma[$cont] ne 'mario' or $arma1[$cont] ne 'Rossi') {
print
$query->redirect('
http://www.pippo.com
');
}
else
{
print
$query->redirect('
http://www.pluto.com
');
}
$cont++;
}

 Se non vale ne' 'Mario' ne' 'Rossi' e` certamente vera.
Perche' mai. Sono due variabili diverse, @arma e @arma1.
Quindi va all'else solo per 'mario Rossi'.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: LEGGIMI.FA' LA TUA OPERA BUONA

S.O.S.  
Vorrei sapere dove posso trovare materiale on line, tipo appunti o dispense
universitarie, che sia una accessibile introduzione agli algoritmi e al
linguaggio Pascal.
Non sono uno studente di ingegneria ne' di informatica quindi vorrei
trovare qualcosa che sia scritta in modo semplice e che non presupponga
grandi conoscenze matematiche.
Aiutatemi. Ho un imminentissimo esame che mi aspetta e non so come fare!!!
Potete rispondermi attraverso questo newsgroup o, meglio,con una e - mail
all'indirizzo    
a.ge...@mclink.it
Grazie in anticipo.



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

Salve a tutti. 1)Perchč se eseguo uno script perl, prima dell'output,
ottengo questi messaggi? Come posso rimediare?
[cosmic_NRG@localhost perl_test]# ./find_.pl
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = "it_IT",
LANG = "it"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
find_.pl       #queste righe sono l'output#
html_gen.pl
    ###########################
2) Mi potete consigliare un debbugger non troppo ostico?
Ciao e grazie 1.000.000.

 LANG = "it"
Io di queste tre variabili ne ho solo una settata:
$ echo $LANG
it_IT
e non ho mai avuto problemi del genere ...
Le altre due, addirittura, non hanno un valore!
Ciao
M.
-- 
:wq

Newsgroup: it.comp.lang.perl
Titolo: 2 Domande

1: questo ng ha un sito comune? se sě, mi date l'indirizzo?
2: Per caso sapete se su Digiland accettano gli script cgi e se si ha
accesso alla cartella cgi-bin?
Ah, un altra cosa: io ho una certa padronanza con il Perl, inteso come
linguaggio di programmazione, perň non so come si fa a creare script
cgi e se l'unico modo per renderli eseguibili č depositarli nella
cartella cgi-bin del server. Cosa mi consigliate per cominciare?
Bastano le conoscenze che ho?

 Cosa mi consigliate per cominciare?
Un po' di link li trovi su questo vecchio post:
http://groups.google.it/groups?q=perlportal&hl=it&selm=3C659D9B.1422E63%40friuli.com&rnum=1
a cui aggiungerei:
http://www.shishii.com/cgi.shtml

Newsgroup: it.comp.lang.perl
Titolo: form da associare a script

Ho realizzato un form ma ora mi serve associarlo all'action quindi vorrei
sapere se qualcuno mi puo' fornire qualche script in perl.
Ho degli script gia' pronti se qualcuno mi puo' aiutare potrei farglieli
visionare....
grazie

 sapere se qualcuno mi puo' fornire qualche script in perl.
Sarebbe utile dare un'occhiata al modulo CGI che e' *facilissimo*
da usare.
http://stein.cshl.org/WWW/software/CGI/
 Raffaello
Newsgroup: it.comp.lang.perl
Titolo: mi chiarite un attimo le idee?

dunque, sto sviluppando un gestionale, che deve girare sia su windows xp, 
che su un palmare, con l'idea, in futuro, di portarlo su un server web.
'na cazzata, insomma :D
ero partito con lo sviluppo con apache+php+mysql, e infatti stava venendo 
bene, quando ho disgraziatamente scoperto che nè php nè mysql esistono per i 
palmari (almeno, esistono ma bisogna installarci linux, che invalida la 
garanzia, non funziona tutto, e altre lungaggini che non sto qua a 
raccontare)
ero partito con uno sviluppo del genere per due motivi:
- primo: non mi sbatto a creare un'interfaccia grafica: ci pensa il browser.
- secondo: è portabile su qualsiasi sistema (macosx, windows, linux, un 
server web) con modifiche pressochè nulle al codice.
ora, prima di arrivare all'ultima spiaggia (fare il tutto su c++ sparandomi 
quando arriverà il giorno di metterlo su un web server vero), stavo pensando 
al perl.
per il palmare ho recuperato una versione di apache, per pocketpc windows 
(incredibile cosa possa produrre la testardaggine di un tedesco:D), e 
l'aspetto più incredibile è che funziona :D
mancano un linguaggio per creare dinamicamente le pagine, e un database.
per quanto riguarda il database dovrei riuscire a risolvere con sql server 
de sul desktop e sql server ce sul palmare.
e veniamo al succo del discorso....
perl dovrebbe riuscire a sostituire, in toto, php, mi confermate? (non che 
ci faccia cose complicate, sia chiaro...)
secondariamente, ho visto che è possibile compilare gli script perl in un 
bytecode.......
ecco, è possibile usare questo bytecode per generare una pagina html?
posto che perl per palmari esiste, lo posso usare con apache sul palmare?

 posto che perl per palmari esiste
se lo trovi fammelo sapere che e' da un po che lo cerco (palm os)
alek
-- 
per farmi fuori, miei cari, ci vogliono sicari sicuri, 
loschi figuri, temerari miei pari, se sono così rari 
fatemi il favore, chiudetevi in casa che è ritornato l'untore!
"l'untore" - caparezza

Newsgroup: it.comp.lang.perl
Titolo: cerco un cgi per..

mi serve un cgi da poter usare via web per usarlo come semplice motere di
ricerca in un sito.
txhx
Dede

 ricerca in un sito.
Fatti un giro su 
http://www.cgipoint.it
 potrai trovare recensioni, commenti e
link a diversi script che fanno al tuo caso.
Ciao
Marcello
Newsgroup: it.comp.lang.perl
Titolo: hash di array di hash: ho un problema

nel mio programmino ho costruito una struttura del tipo nel subj,
creata in modo anonimo cosi`:
$1 = "chiave";
$2 = "valore";
my $elemento_id = "esempio";
$hash1{$elemento_id}->[0]->{$1}=$2;
a questo punto, per trovare le chiavi dell'hash piu` interno, mi
aspetto di scrivere
keys %$hash1{$device_id}->[0]
in quanto
$h_elementi{$elemento_id}
e` un puntatore ad array, il cui primo valore ([0]) e` un puntatore ad
hash.
COn questo codice ho errore di compilazione, come mai? Come recupero le
chiavi dell'hash interno?
Ciao  e grazie,
Filippo

 
 keys %{ $hash1{$device_id}->[0] }
Max

 keys %{ $hash1{$device_id}->[0] }
grazie Max,
ci avevo gia` provato ma ma non funziona, non restituisce niente.
ciao
Manfredo

 
Ma sě che funziona. Controlla meglio il codice e togli quei "$1" e "$2", che
non sono variabili normali e non possono essere modificate.
 
 maxim@afton:~$ cat 
temp.pl
   $h{"minni"}->[0]->{"pippo"}="1";
   $h{"minni"}->[0]->{"pluto"}="2";
   print keys %{ $h{"minni"}->[0] }, "\n";
 maxim@afton:~$ perl 
temp.pl
 plutopippo
 maxim@afton:~$
Max

non sono variabili normali e non possono essere modificate.
ho messo $1 e $2 perche` nel codice vero utilizzo i valori ottenuti da
una regexp. Cavolo, ho capito l'errore:
non avevo messo il $ davanti alla variabile: 
keys %$hash1{device_id}->[0]
grazie ancora. Ci ho perso 2 ore!
Ciao,
Filippo
Newsgroup: it.comp.lang.perl
Titolo: Apache e ActiveState Perl

Come posso configurare Apache Web Server x Win32 in modo che processi i miei
scripts Perl utilizzando l'interprete dellìActive State già installato?
Ho visto che ci sono i file di configurazione da modificare ma ancora non
sono molto pratico in questo tipo di cose!!
Ringrazio l'NG per l'eventuale aiuto.
Federico

 wrote in message
7mpqac$5kp$1...@aquila.tiscalinet.it...

Ciao Federico,
la soluzione che ti propongo a me funziona senza problemi sulla mia versione
1.3.6 di Apache su Win95 e ActiveState Perl.
Se hai seguito i consigli di istallazione e impostazione l'unico file di
configurazione da modificare è
httpd.conf.
Ovviamente, dopo averlo modificato, devi fare un restart.
Quesllo che segue è uno stralcio del mio httpd.conf
Come vedi devi istruire il server dicendogli che una o più directory sono
"eseguibili" come CGI
dando il comando
ScriptAlias </comelavuoichiamare  "<LetteraDisco>:/PATHforScript "
dove:
 /comelavuoichiamare rappresenta il path della chiamata dal Browser
"<LetteraDisco>:/PATHforScript " rappresenta il percorso assoluto del tuo
disco
Esempio:
ScriptAlias /mie-cgi  "c:/www/cgi"
Considera che tutte le sottodirectory di c:/www/cgi vengono considerate
eseguibili
Funzionano infatti sia
http://miohost/mie-cgi/cerca.pl
che
http://miohost/mie-cgi/counter/counter.pl
http://miohost/mie-cgi/logs/analizzalog.pl
Spero di esserti stato di aiuto e fammi sapere se hai problemi.
Ciao
Marco
# FILE:  HTTPD.CONF
# .............. OMISSIS ..............
###########
#
# ScriptAlias: This controls which directories contain server scripts.
# ScriptAliases are essentially the same as Aliases, except that
# documents in the realname directory are treated as applications and
# run by the server when requested rather than as documents sent to the
client.
# The same rules about trailing "/" apply to ScriptAlias directives as to
# Alias.
#
# Directory CGI impostata all'istallazione (l'ho lasciata e non contiene
# quasi niente perche' molto spesso hacker e altri crecano in questa dir
# script che a volte non sono proprio sicure
ScriptAlias /cgi-bin/ "C:/Programmi/Apache Group/Apache/cgi-bin/"
# Questa è quella vera
ScriptAlias /cgi    "C:/www/cgi-bin"
# questa è una area di sviluppo e prova delle script
ScriptAlias /cgi-tmp "C:/tmp/src"
#
# .............. OMISSIS ..............
--
Marco Graux
ma...@GgioVvEe.CcasPpur.it
Attenzione togliere le MaIuScOlE dall'indirizzo per le risposte

sono molto pratico in questo tipo di cose!!
Non devi mica modificare i file di apache, basta la prima riga del cgi
Ciao
Andrea Busia
-------------------------------------------------------
Redattore e Programmatore di Ludus
http://www.ludus.it
La prima rivista italiana dedicata ai videogiochi,
con recensioni, anteprime, trucchi, soluzioni, ecc.
-------------------------------------------------------
Newsgroup: it.comp.lang.perl
Titolo: Arrotondare all'intero superiore

Ragazzi salve a tutti
Ho un problema, come faccio ad arrotondare un numero decimale all'intero
superiore a prescidere dal valore decimale?
Nel manuale ho visto ad esempio che la funzione int mi restituisce la parte
intera del numero, in pratica un arrotondamento per difetto, io perň ho
bisogno del contrario, nel mio caso anche 1,001 dovrebbe diventarmi 2 e cosě
via.

!

Puoi utilizzare:
$intero = int ($numero + 1);
Occhio che pero` ti arrotonda anche l'intero, ad es. 5 diventa 6. Se non vuoi
che sia cosi` puoi utilizzare:
$intero = int ($numero + 0.999); # Metti tanti 9 a seconda della precisione
C'e` anche un'alternativa con sprintf() volendo...
	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!

 superiore a prescidere dal valore decimale?
perldoc -q round
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

perldoc -q round
Ugh, ho usato la mazza ferrata per tagliare il tonno... ;)








 che sia cosi` puoi utilizzare:
che ne dici di 
$intero = int ($numero + 1) if $numero > int ($numero);
bye
silvio
Newsgroup: it.comp.lang.perl
Titolo: Interpretazione delle notifiche di errori nel recapito mail

Sapete se ci sia un modulo perl per processare i messaggi di ritorno e le
notifiche sullo stato del recapito di un messaggio?
Si tratterebbe di estrarre dalla sezione diagnostica l'indirizzo del
destinatario e la descrizione dell'errore. Con il modulo Mime, non dovrebbe
essere nulla di particolarmente complicato, mi par di capire, ma se c'è
qualcosa di già fatto è anche meglio.
In alternativa, se anche c'è un programma non perl, potrebbe andare bene lo
stesso.
Ciao.

http://trific.ath.cx/resources/rpm/perl-MIME-tools/
questo ?
 Raffaello

questo ?
No, speravo proprio ce ci fosse qualcosa di specifico già fatto (la mia
pigrizia non ha limiti, nella buona tradizione dei programmatori perl).
Con MimeTools mi pare di capire che basterebbe fare un parsing del
messaggio, e poi scorrere l'oggetto Entity alla ricerca di una sezione
"Content-Type: Message/Delivery-Status" (almeno, per i messaggi di errore
che seguono questa convenzione, sperando che siano i più, ma ho appena
scoperto che non sono tutti).
Poi però non ho del tutto chiaro come sia strutturata quest'ultima. Mi pare
che ci sia anche qui un header e un corpo, anche se il corpo è poi composto
di campi, in forma analoga all'header. Campi che però non so in dettaglio
quali siano e quali siano obbligatori o facoltativi.... insomma, se
qualcuno avesse già fatto il lavoro per me, io volentieri sarei disposto ad
approffitarne, anche gratuitamente (voglio dire che non pretendo alcun
compenso).
Una formulazione un po' meno pigra della domanda, comunque (e un po' meno
in tema con il gruppo), potrebbe essere se esiste un qualche RFC di queste
notifiche (o almeno una casistica degli smtp più diffusi) su cui basarsi
con qualche confidenza.
Ciao.

con qualche confidenza.
hmmm... questo forse: RFC 3464.
Ciao.

pigrizia non ha limiti, nella buona tradizione dei programmatori perl).
Mail::DeliveryStatus::BounceParser sembra essere quello che cercavo, o
qualcosa di molto vicino a quello che cercavo. Devo guardare un po' meglio
la documentazione e forse personalizzare qualcosina, ma direi che dovrebbe
andare.
Nella documentazione, per la verità, si fa riferimento a RFC 1892, reso
obsoleto da RFC 3464, ma per quello che devo fare io non ci dovrebbero
essere problemi. 
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: test su stringhe

Chiedo scusa se rifaccio la stessa domanda, ma il disco dove avevo
salvato le risposte della scorsa volta e' crasshato e io ho perso 2
utilissimi esempi.
Qualcono mi puo' ripostare il codice che esegue il controllo su una
stringa per:
- testare se inizia con un numero es: "1prova"
- testare che in essa ci siano solo i caratteri 0-9 a-z
Grazie
Roberto

 wrote:
:)- testare se inizia con un numero es: "1prova"
$s=~/^\d/
:)- testare che in essa ci siano solo i caratteri 0-9 a-z
!($s=~/[^0-9a-z]/) # senza spazi
!($s=~/[^0-9a-z ]/) # con spazi
Oha
"Ci sono tre tipi di persone al mondo: quelle che sanno contare, 
e quelle che non ne sono capaci."

e quelle che non ne sono capaci."
Magica questa. ;-)
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/