Dear Me,

Thank U for for the reply.  I like the short code which you wrote.  I am
just migrating from java to perl.

Currently i write lengthy code just for readability. I sure would be able to
pick the shortcuts soon.

with regards

Rajeev Rumale.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Rajeev Rumale
MyAngel.Net Pte Ltd.,                                            Phone  :
(65)8831530 (office)
#04-01, 180 B, The Bencoolen,                               Email  :
[EMAIL PROTECTED]
Bencoolen Street, Singapore - 189648                     ICQ    : 121001541
Website : www.myangel.net
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


----- Original Message -----
From: "Me" <[EMAIL PROTECTED]>
To: "Rajeev Rumale" <[EMAIL PROTECTED]>; "Michael Fowler"
<[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Monday, June 25, 2001 1:12 PM
Subject: Re: Exceptions ( catching and handeling).


> > $done="false";
> >
> > while( $done eq "false ") {
> >     eval {
> >         ......
> >         .....
> >         read form files.
> >         ....process info...
> >         write back to files
> >
> >     };
> >     ( $@ ) ? ($done="false") : ($done="true");
> >
> > }
>
> I don't understand why this isn't working. Change the $@ line to:
>
>     ( $@ ) ? (print $done="false") : (print $done="true");
>
> and see what you get.
>
> Btw, one would more normally code the ?: expression as:
>
>     $done = $@ ? "false" : "true";
>
> Indeed, I would probably code the loop without use of while:
>
>     { eval {
>             # do stuff
>         } or redo }
>
>

Reply via email to