From: Jeff Pang <[EMAIL PROTECTED]>
> >Which is the same as
> >
> >sub say {print @_, "\n"}
> >
> >chomp( my $var = <STDIN> );
> >for( $var ) {
> > if( /\D/ ){
> > say "Needs a number!"
> > }
> > elsif( $_ == 1 ) {
> > say "Got 1!"
> > }
> > elsif( $_ == 2 ) {
> > say "Got 2!"
> > }
> > else {
> > say "You said $_"
> > }
> >}
> >
> >I don't think it's a feature worth making the scripts/modules
> >unusable in older perls.
> >
>
> Then please don't say "say" in your codes.
> "say" is also a new feature which shouldn't be compatible with older Perl.
That's why I defined the say() subroutine above the "switch"
statement ;-)
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
