goto command

[Thomas Browner]

Does perl have a goto command. For example if you tell scrip to do
something and it returns a 1 then it should go to a block of code that
does something else.

Thanks,
Thomas Browner

[Paul Kraus]

Sub dothissubroutine {
Do something
If return this
Else return this
}

My $result = &dothissubroutine
If $result = this
}elsif
This
}else{
This
}



Paul Kraus
-----------------------
PEL Supply Company
Network Administrator

> -----Original Message-----
> From: Thomas Browner [mailto:thomas.browner@digidyne.com]
> Sent: Thursday, January 29, 2004 12:46 PM
> To: [email]beginners@perl.org[/email]
> Subject: goto command
>
> Does perl have a goto command. For example if you tell scrip to do
> something and it returns a 1 then it should go to a block of code that
> does something else.
>
> Thanks,
> Thomas Browner
>
>
>
>
> --
> To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
> For additional commands, e-mail: [email]beginners-help@perl.org[/email]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>

[Rob Dixon]

Thomas Browner wrote:

>
> Does perl have a goto command. For example if you tell scrip to do
> something and it returns a 1 then it should go to a block of code that
> does something else.

Yes. But I've never seen a case where I think it should be used.

Perl isn't a scripting language. (Although it can be, just like
it can be most things.)

If you want help, then please explain what you're trying to do. Then
we will explain how.

Rob

[Wolf Blaum]

For Quality purpouses, Thomas Browner 's mail on Thursday 29 January 2004
18:46 may have been monitored or recorded as:

> Does perl have a goto command. For example if you tell scrip to do
> something and it returns a 1 then it should go to a block of code that
> does something else.

Not talking about style (but in the TIMTOWTDI spirit):

from perldoc -f goto:

goto LABEL
goto EXPR
goto &NAME
The "goto-LABEL" form finds the statement labeled
with LABEL and resumes execution there. It may
not be used to go into any construct that requires
initialization, such as a subroutine or a "fore-
ach" loop. It also can't be used to go into a
construct that is optimized away, or to get out of
a block or subroutine given to "sort". It can be
used to go almost anywhere else within the dynamic
scope, including out of subroutines, but it's usu-
ally better to use some other construct such as
"last" or "die". The author of Perl has never
felt the need to use this form of "goto" (in Perl,
that is--C is another matter). (The difference
being that C does not offer named loops combined
with loop control. Perl does, and this replaces
most structured uses of "goto" in other lan-
guages.)

hth, wolf

[Noah Ganter]

The reason why the goto command is not generally used in perl (and other
languages) is that it does not force the developer to have a theoretical
framework for the program. It creates 'spagetti code' where a person working
on the code or trying to understand what the developer has done has to
follow a rabbit tunnel of goto directions. A direct alternative is using sub
procedures which not only perform the same goto like movement, but can use
parameters and return values as well.

"Thomas Browner" <thomas.browner@digidyne.com> wrote in message
news:002501c3e68f$cde84910$080a19ac@digidyne.com.. .

> Does perl have a goto command. For example if you tell scrip to do
> something and it returns a 1 then it should go to a block of code that
> does something else.
>
> Thanks,
> Thomas Browner
>
>
>