if ( $string = /,/ == 0 )
should be
if ( $string =~ /,/ )
BB
on Wed, Dec 17, 2003 at 03:54:25PM +1100, Bernard Doyle <[EMAIL PROTECTED]> wrote:
>
> Hi,
>
> I am currently learning Perl. I have a problem that seems to be
> related to the scoping of variables. Basically the program below
> breaks a string up into an array. However, the array @words does
> not seem to be accessible inside the code block starting with
>
> if ( $string = /,/ == 0 )
>
> Presumably it's some kind of scoping problem, but I don't seem to
> be able to get a coherent answer from perldoc.
>
> ---------------------------------------------------
> #!/usr/bin/perl
>
> use strict;
> my @words = ();
>
> my $string="This,is,separated,by,commas";
> if ( $string = /,/ == 0 ) {
> @words=split(/,/,$string);
> }
> else {
> @words=split(/ /,$string);
> }
>
> my $i;
> for ($i=0;$i<@words;$i++) {
> print("$i\n");
> print("@words[$i]\n");
> }
> ---------------------------------------------------
>
> Any help or advice would be greatly appreciated.
>
> cheers,
>
> Bernard Doyle
>
>
>
> --
> SLUG - Sydney Linux User's Group Mailing List - http://slug.org.au/
> Subscription info and FAQs: http://slug.org.au/faq/mailinglists.html
--
SLUG - Sydney Linux User's Group Mailing List - http://slug.org.au/
Subscription info and FAQs: http://slug.org.au/faq/mailinglists.html
