Can't modify int in scalar assignment error

rkrish has asked for the wisdom of the Perl Monks concerning the following question:

I have code snippet which while compiling giving 'Can't modify int in scalar assignment' error.Am i doing anything wrong here? I'm getting the error at line :'foreach (@accums)'

my code is :

    my $getAccumsForAcct = qq{ select distinct  usage_acum_seq_nbr  fr
+om svc_price };
    my $getAccums = $lda->prepare($getAccumsForAcct);
    my $sbscrp_id='0032581923';
    if(defined($getAccums))
    {
        $getAccums->execute();
        while (my @accums = $getAccums->fetchrow_array() ) {
        }
            foreach  (@accums)
            {
                    int returnCode = SUCCESS;
                    my $xmlFile = "GetUsgSummary_" . $acct_nbr . $_.".
+xml";
                    createXmlForUpd( $xmlFile, $acct_nbr,$sbscrp_id );
                        $returnCode = invokeServer( $acct_nbr , $xmlFi
+le );

                        if ( $returnCode != SUCCESS ) { return $return
+Code; }

                         return $returnCode;        
    

            }


        
    }
[download]

Comment on Can't modify int in scalar assignment error Download Code

Replies are listed 'Best First'.
Re: Can't modify int in scalar assignment error by NetWallah (Canon) on Dec 19, 2012 at 05:25 UTC
If you "use strict;" in your program, it would have told you: `Global symbol "@accums" requires explicit package name at ..` [download] which identifies the problem immediately, in your "foreach(@accums)" line. Poor programming practices precurse pernicious predicament. "By three methods we may learn wisdom: First, by reflection, which is noblest; Second, by imitation, which is easiest; and third by experience, which is the bitterest." -Confucius	[reply] [d/l]
Re^2: Can't modify int in scalar assignment error by rkrish (Acolyte) on Dec 19, 2012 at 05:51 UTC
I have not used 'use strict' in my code. I just tried using it,it gave lot of such messages :( "Global symbol "@accums" requires explicit package name at " Please throw some light on how to fix this :(	[reply]
Re^3: Can't modify int in scalar assignment error by NetWallah (Canon) on Dec 19, 2012 at 06:30 UTC
Aside from logic problems, you have a "scope" problem with your "@accum" variable. You have declared it in the "while (my @accum=...)" statement, which makes it local to the while loop. You attempt to use it outside the while loop (where it does not exist), in the "foreach" statement. To correct the problem, the preferred method is to fix your logic. If you do not understand what your logic problem is, use globals, and suffer later. If you do not understand what I'm trying to say, please read up on variable scoping, and algorithms (these topics are fairly independent of the programming language you choose). "By three methods we may learn wisdom: First, by reflection, which is noblest; Second, by imitation, which is easiest; and third by experience, which is the bitterest." -Confucius	[reply]
Re^3: Can't modify int in scalar assignment error by roboticus (Chancellor) on Dec 19, 2012 at 13:05 UTC
rkrish: If you add `use diagnostics;`, it will give more detailed error messages, and suggestions on what the problem is and/or potential fix(es) (IIRC). ...roboticus When your only tool is a hammer, all problems look like your thumb.	[reply] [d/l]
Re^3: Can't modify int in scalar assignment error by 2teez (Vicar) on Dec 19, 2012 at 06:16 UTC
see strict If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply]
Re: Can't modify int in scalar assignment error by jwkrahn (Abbot) on Dec 19, 2012 at 06:38 UTC
`int returnCode = SUCCESS;` [download] That looks like C code, not Perl code. Perhaps you meant: `my $returnCode = SUCCESS;` [download] `if ( $returnCode != SUCCESS ) { return $return +Code; } return $returnCode;` [download] That makes little sense. You are testing `$returnCode` but you return `$returnCode` whether it equals `SUCCESS` or not.	[reply] [d/l] [select]

Back to Seekers of Perl Wisdom