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 }
>
>