Changeset 2704

Show
Ignore:
Timestamp:
05/10/08 08:45:39
Author:
miyagawa
Message:

removed email. sort by ID

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • yapcasia2008/misc/party-prioritize.pl

    r2703 r2704  
    4040 
    4141use YAML; 
    42 my @cols = qw( user_id first_name last_name email is_staff has_accepted_talk country town not_tokyo payment_means paid_date party ); 
     42my @cols = qw( user_id first_name last_name is_staff has_accepted_talk country town not_tokyo payment_means paid_date party ); 
    4343 
    4444print join(",", @cols), "\n"; 
    45 for my $u (@sorted) { 
     45for my $u (sort { $a->{user_id} <=> $b->{user_id} } @sorted) { 
    4646    print join(",", @$u{@cols}), "\n"; 
    4747}