in reply to Uninitialized Value in Sort

I dont' see what's uninitialized in my sort statement.

Neither do I (though I would assume one or more of the values in the list you're sorting do not have an acct_name key). Print out what you're sorting before you sort it:

use Data::Dumper;
my @accounts = BPP::ACCOUNT->getActiveUser($activeuser);
print Dumper(\@accounts);

[download]

Replies are listed 'Best First'.
Re^2: Uninitialized Value in Sort
by mikasue (Friar) on Sep 27, 2006 at 19:28 UTC
    ++runrig The second time through it's not printing all fields. Here is my output: 
    here are the active user accounts$VAR1 = bless( {
  'acct_name' => 'CLC',
  'acct_type' => '15',
  'acct_balance' => '1.00',
  'acct_interestrate' => '0',
  'acct_status' => '1',
  'acct_zip' => '',
  'acct_num' => '',
  'acct_primaryname' => 'Golly Gee',
  'acct_state' => '',
  'acct_securitycode' => '',
  'acct_minbalance' => '',
  'acct_city' => '',
  'acct_id' => '9',
  'acct_phone' => '555-987-5666',
  'acct_limit' => '0',
  'acct_expiration' => '1/1/2007',
  'acct_address' => '',
  'acct_website' => '',
  'acct_email' => '',
  'acct_notes' => '',
  'user_id' => '101',
  'acct_fax' => ''
}, 'BPP::ACCOUNT' );
$VAR2 = bless( {
  'acct_name' => 'SouthWest',
  'acct_type' => '46',
  'acct_balance' => '400.00',
  'acct_interestrate' => '6%',
  'acct_status' => '1',
  'acct_zip' => '',
  'acct_num' => '20',
  'acct_primaryname' => 'TSC',
  'acct_state' => 'IL',
  'acct_securitycode' => '',
  'acct_minbalance' => '100.00',
  'acct_city' => 'Erewhon',
  'acct_id' => '5',
  'acct_phone' => '555-382-2838',
  'acct_limit' => '',
  'acct_expiration' => '08/28/2007',
  'acct_address' => '',
  'acct_website' => 'www.southwest.com',
  'acct_email' => 'southwest@bogus.com',
  'acct_notes' => '',
  'user_id' => '101',
  'acct_fax' => ''
}, 'BPP::ACCOUNT' );

Use of uninitialized value in string comparison (cmp) at bppcsvver.pl 
+line 540.
here are the active user accounts$VAR1 = bless( {
  'acct_type' => '15',
  'acct_securityCode' => '12341',
  'acct_status' => '1',
  'acct_interestRate' => undef,
  'acct_minBalance' => undef,
  'acct_id' => '9',
  'user_id' => '101'
}, 'BPP::ACCOUNT' );
$VAR2 = bless( {
   'acct_name' => 'SouthWest',
  'acct_type' => '46',
  'acct_balance' => '400.00',
  'acct_interestrate' => '6%',
  'acct_status' => '1',
  'acct_zip' => '',
  'acct_num' => '20',
  'acct_primaryname' => 'TSC',
  'acct_state' => 'IL',
  'acct_securitycode' => '',
  'acct_minbalance' => '100.00',
  'acct_city' => 'Erewhon',
  'acct_id' => '5',
  'acct_phone' => '555-382-2838',
  'acct_limit' => '',
  'acct_expiration' => '08/28/2007',
  'acct_address' => '',
  'acct_website' => 'www.southwest.com',
  'acct_email' => 'southwest@bogus.com',
  'acct_notes' => '',
  'user_id' => '101',
  'acct_fax' => ''
}, 'BPP::ACCOUNT' );

Tk::Error: Can't set -options to `ARRAY(0x39bd2cc)' for Tk::Optionmenu
+=HASH(0x39
ed02c): No -label at C:/Perl/site/lib/Tk/Widget.pm line 256
 at C:/Perl/site/lib/Tk/Derived.pm line 294

 at C:/Perl/site/lib/Tk/Derived.pm line 306
 Tk callback for .toplevel2
 Tk callback for .toplevel2.frame
 Tk::Derived::configure at C:/Perl/site/lib/Tk/Derived.pm line 306
 Tk::Widget::new at C:/Perl/site/lib/Tk/Widget.pm line 205
 Tk::Widget::__ANON__ at C:/Perl/site/lib/Tk/Widget.pm line 256
 BPP::Accounts::EditViewAccountsScreen at bppcsvver.pl line 555
 BPP::BPPDEFAULTS::__ANON__ at BPP/BPPDEFAULTS.pm line 25
 (menu invoke)

C:\Documents and Settings\Tamika Cashaw\My Documents\My Programs\BPP>

    [download]
    I wonder why it's omitting those fields. Thanks for helping me investigate.

    Edited to remove possible personal data by GrandFather

[reply]
[d/l]

      Completely off-topic, but you *NEVER* ever should print out sensitive information like people's real names, their phone numbers, emails, etc. on public forums like this one!!! If you need to publish your data, always substitute such info with bogus information.

      BR
[reply]
        I didn't! It's all fake data. THank you.
[reply]
[reply]

In Section Seekers of Perl Wisdom