>
>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.
--
mailto: [EMAIL PROTECTED]
http://home.arcor.de/jeffpang/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
