Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

costrutto do {} while

7 views
Skip to first unread message

daniele.g

unread,
Jun 12, 2013, 2:38:58 PM6/12/13
to
Esiste in PERL?
Su internet trovo degli esempi, sul manuale no, e se provo ad usarlo
ottengo un errore di sintassi.
--
Dona i tuoi cicli di clock alla ricerca!
http://boinc.berkeley.edu/
--------------------
This signature was automatically generated with
Signify v1.14. For this and other cool products,
check out http://www.debian.org/

enoquick

unread,
Jun 12, 2013, 4:19:30 PM6/12/13
to
Il 12/06/2013 13:38, daniele.g ha scritto:
> Esiste in PERL?
> Su internet trovo degli esempi, sul manuale no, e se provo ad usarlo
> ottengo un errore di sintassi.
>


perl -e 'my $a=5; do { print "$a\n" } while($a--)'


daniele.g

unread,
Jun 13, 2013, 5:02:45 AM6/13/13
to
Funziona.

in effetti l'errore non era nel ciclo
--8<---------------cut here---------------start------------->8---
#!/usr/bin/perl

use strict;

my $stopper = 0;

do {
print "$stopper ";
} while ($stopper)
print "\n";
--8<---------------cut here---------------end--------------->8---
piuttosto nell'ultima istruzione, ma non capisco cos'ha che non va, è un
semplice "a capo".

syntax error at dountil.pl line 11, near ")
print"
Execution of dountil.pl aborted due to compilation errors.

--
Dona i tuoi cicli di clock alla ricerca!
http://boinc.berkeley.edu/
--------------------
Legge di Williams e Holland:
Se si raccolgono abbastanza dati, qualsiasi cosa puo' essere
dimostrata con metodi statistici.

enoquick

unread,
Jun 13, 2013, 12:31:10 PM6/13/13
to
Il 13/06/2013 04:02, daniele.g ha scritto:
> enoquick <enoq...@gmail.com> writes:
>
>> Il 12/06/2013 13:38, daniele.g ha scritto:
>>> Esiste in PERL?
>>> Su internet trovo degli esempi, sul manuale no, e se provo ad usarlo
>>> ottengo un errore di sintassi.
>>>
>>
>>
>> perl -e 'my $a=5; do { print "$a\n" } while($a--)'
>
> Funziona.
>
> in effetti l'errore non era nel ciclo
> --8<---------------cut here---------------start------------->8---
> #!/usr/bin/perl
>
> use strict;
>
> my $stopper = 0;
>
> do {
> print "$stopper ";
> } while ($stopper)
> print "\n";
> --8<---------------cut here---------------end--------------->8---
> piuttosto nell'ultima istruzione, ma non capisco cos'ha che non va, è un
> semplice "a capo".
>
> syntax error at dountil.pl line 11, near ")
> print"
> Execution of dountil.pl aborted due to compilation errors.
>

il ; dopo il while è mancante

0 new messages