Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: using split

by lidden (Curate)
on Jun 04, 2007 at 22:19 UTC ( #619246=note: print w/replies, xml ) Need Help??

in reply to using split

When you said
if ($cols[11] = $target1)
You popably ment
if ($cols[11] == $target1)
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.

Replies are listed 'Best First'.
Re^2: using split
by FunkyMonk (Chancellor) 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
      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) {}'
      But this code won't:
      perl -Xe 'my $x; if ($x = 1) {}'
      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) {}
      References: perllexwarn, perldiag

      Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://619246]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2021-04-11 11:59 GMT
Find Nodes?
    Voting Booth?

    No recent polls found