Re^2: Detecting a Null or Enter key

local ($bak_id)=shift;
local ($acc_bal)=shift;
[download]

won't pass strict. But that's good because it's inappropriate to use local here. The above should be replaced with

my ($bak_id)=shift;
my ($acc_bal)=shift;
[download]

In both cases, the parens are useless.

my $bak_id  = shift;
my $acc_bal = shift;
[download]

Or you could combine them

my ($bak_id, $acc_bal) = @ARGV;
[download]

Comment on Re^2: Detecting a Null or Enter key Select or Download Code

Replies are listed 'Best First'.
Re^3: Detecting a Null or Enter key by Bloodnok (Vicar) on Jan 11, 2009 at 18:20 UTC
You may notice that the 1st suggestion utilised a snippet from the OP (tho' I take your point that it was remiss of me to insert the strictures) - my 2nd suggestion deliberately didn't repeat the errror. A user level that continues to overstate my experience :-))	[reply]
Re^4: Detecting a Null or Enter key by ikegami (Patriarch) on Jan 11, 2009 at 18:30 UTC
What I noticed is that you provided a solution that made things worse for the OP. I wasn't contradicting you; I was simply completing the work you started.	[reply]
Re^5: Detecting a Null or Enter key by Bloodnok (Vicar) on Jan 11, 2009 at 20:51 UTC
Ahh, thank you ikegami - I obviously badly mis-read your intentions. Apologies. .oO(I'm not sure if this should've been a node or a msg). A user level that continues to overstate my experience :-))	[reply]