Re: using split

When you said

       if ($cols[11] = $target1)
[download]

You popably ment

       if ($cols[11] == $target1)
[download]

The first one is assigning the value of $target1 to $cols[11] the other checks if they are equal.
Also in a line like my($indir) = "c:/FAMD_EDI"; the parens are redundant.

Comment on Re: using split Select or Download Code

Replies are listed 'Best First'.
Re^2: using split by FunkyMonk (Bishop) on Jun 04, 2007 at 22:31 UTC
Well spotted. If I had any ++ left, you'd have got one:) The OP should have picked this up himself. I was surprised to see that it generates a warning without strict or warnings: `#!/usr/bin/perl my $x; if ( $x = 4 ) { print "Hi"; } #output Found = in conditional, should be == at /home/pm line 5. Hi` [download]	[reply] [d/l]
Re^3: using split by naikonta (Curate) on Jun 05, 2007 at 02:02 UTC
I was surprised to see that it generates a warning without strict or warnings That's one of default warnings, known as mandatory warnings before `use warnings;` was introduced. These warnings will be enabled by default, but can be controlled with -X switch or warnings. So the following code will issue a warning as you mention: `perl -e 'my $x; if ($x = 1) {}'` [download] But this code won't: `perl -Xe 'my $x; if ($x = 1) {}'` [download] Neither these snippets: `# disable all warnings no warnings; my $x; if ($x = 1) {} # disable only warnings regarding syntax no warnings 'syntax'; my $x; if ($x = 1) {}` [download] References: perllexwarn, perldiag Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!	[reply] [d/l] [select]