[Moscow.pm] transform sort function to Schwartzian Transform ??

[Nikolay Mishin]

Всем огромное спасибо!! Итоговый вариант

#!/usr/bin/perl
use strict;
use warnings;

#use Smart::Comments;

use constant RegExp_parse_name => qr/(\w+)_(\d{2})-(\w{3})-(\d{4})_(\d+)/;

#qr/([A-Z0-9]+_\d+_[A-Z0-9]+)_(\d+)-([A-Z][a-z]{2})-(20\d{2})_(\d+)[.]xml/;

#create month hash
my @month = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;
my %months;
foreach my $index ( 0 .. $#month ) { $months{ $month[$index] } = $index }

#generate tmp array for special sort
my @tmp_scons;
while ( my $str = <DATA> ) {
    chomp($str);
    my ( $trade_id, $date, $month, $year, $row_num ) =
      $str =~ RegExp_parse_name;
    $trade_id or next;
    $month = $months{$month};
    push @tmp_scons, [ "$trade_id:$year-$month-$date:$row_num", $str ];
}
my @scons = map $_->[1], reverse sort { $a cmp $b } @tmp_scons;

### @tmp_scons:@tmp_scons
### @scons:@scons
### %months:%months
my %is;

foreach my $str (@scons) {
    my ( $trade_id, $date, $month, $year, $row_num ) =
      $str =~ RegExp_parse_name;
    if ( !$is{$trade_id} ) {
        print "$str\n";
    }
    $is{$trade_id}++;
}

__DATA__
N1089767N_7_SWOPT_03-Jul-2011_78919186.xml
N1089767N_7_SWOPT_25-Jun-2011_72745892.xml
N1089772L_9_SWOPT_03-Jul-2011_78979055.xml
N1089772L_9_SWOPT_20-Jul-2011_69380887.xml
N1089772L_9_SWOPT_29-Jun-2011_74754662.xml


09.09.2011, 22:41, "Nikolay Mishin" <mi на ya.ru>:
> Я бы еще оптимизнул на определении хеша с месяцами
>
> my @month = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;
> my %months;
> foreach my $index ( 0 .. $#month ) { $months{ $month[$index] } = $index }
>
> 09.09.2011, 21:57, "Nikolay Mishin" <mi на ya.ru>:
>
>>  Отличный отчет, но в результате сортируется не верно - после июня июль
>>  проверьте на этом куске
>>  #!/usr/bin/perl
>>  use strict;
>>  use warnings;
>>  use Smart::Comments;
>>
>>  use constant RegExp_parse_name =>
>>  qr/([A-Z0-9]+_\d+_[A-Z0-9]+)_(\d+)-([A-Z][a-z]{2})-(20\d{2})_(\d+)[.]xml/;
>>  my %months = ( Jan => '01', Feb => '02', Mar => '03', Apr => '04', May => '05',Jun => '06',
>>                 Jul => '07', Aug => '08', Sep => '09', Oct => '10', Nov => '11',Dec => '12',
>>  );
>>
>>  my @tmp_scons;
>>  my @tmp_scons2;
>>  while ( my $str = <DATA> )
>>  {
>>      chomp($str);
>>      my ( $trade_id, $date, $month, $year, $row_num ) = $str =~
>>  RegExp_parse_name;
>>      $trade_id or next;
>>      $month = $months{$month};
>>      push @tmp_scons, [ "$trade_id:$year-$month-$date:$row_num",  $str];
>>      push @tmp_scons2, "$trade_id:$year-$month-$date:$row_num";
>>  }
>>  my @scons = map $_->[1], sort {$a cmp $b} @tmp_scons;
>>
>>  ### @tmp_scons2:@tmp_scons2
>>  ### @tmp_scons:@tmp_scons
>>  ### @scons:@scons
>>  foreach(sort @tmp_scons2)
>>  {
>>      print "$_\n";
>>  }
>>
>>  foreach(@scons)
>>  {
>>      print "$_\n";
>>  }
>>
>>  __DATA__
>>  N1089767N_7_SWOPT_03-Jul-2011_78919186.xml
>>  N1089767N_7_SWOPT_25-Jun-2011_72745892.xml
>>  N1089772L_9_SWOPT_03-Jul-2011_78979055.xml
>>  N1089772L_9_SWOPT_20-Jul-2011_69380887.xml
>>  N1089772L_9_SWOPT_29-Jun-2011_74754662.xml
>>
>>  09.09.2011, 20:08, "Denis Evdokimov" <evdokimov.denis на gmail.com>:
>>>   А теперь ответ на вопрос
>>>   #!/usr/bin/perl
>>>   use strict;
>>>   use warnings;
>>>
>>>   use constant RegExp_parse_name =>
>>>   qr/([A-Z0-9]+_\d+_[A-Z0-9]+)_(\d+)-([A-Z][a-z]{2})-(20\d{2})_(\d+)[.]xml/;
>>>   my %months = (
>>>                  FY  => '00',
>>>                  Jan => '01',
>>>                  Feb => '02',
>>>                  Mar => '03',
>>>                  Apr => '04',
>>>                  May => '05',
>>>                  Jun => '06',
>>>                  Jul => '07',
>>>                  Aug => '08',
>>>                  Sep => '09',
>>>                  Oct => '10',
>>>                  Nov => '11',
>>>                  Dec => '12',
>>>   );
>>>
>>>   my @tmp_scons;
>>>   while ( my $str = <DATA> )
>>>   {
>>>       chomp($str);
>>>       my ( $trade_id, $date, $month, $year, $row_num ) = $str =~
>>>   RegExp_parse_name;
>>>       $trade_id or next;
>>>       $month = $months{$month};
>>>       push @tmp_scons, [ "$trade_id:$year-$month-$date:$row_num",  $str];
>>>   }
>>>   my @scons = map $_->[1], sort {$a cmp $b} @tmp_scons;
>>>
>>>   foreach(@scons)
>>>   {
>>>       print "$_\n";
>>>   }
>>>
>>>   __DATA__
>>>   N1089767N_7_SWOPT_03-Jul-2011_78919186.xml
>>>   N1089767N_7_SWOPT_25-Jun-2011_72745892.xml
>>>   N1089772L_9_SWOPT_03-Jul-2011_78979055.xml
>>>   N1089772L_9_SWOPT_20-Jul-2011_69380887.xml
>>>   N1089772L_9_SWOPT_29-Jun-2011_74754662.xml
>>>
>>>   --
>>>   Moscow.pm mailing list
>>>   moscow-pm на pm.org | http://moscow.pm.org
>>  --
>>  Nikolay Mishin
>>
>>  --
>>  Moscow.pm mailing list
>>  moscow-pm на pm.org | http://moscow.pm.org
>
> --
> Nikolay Mishin
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org

--
Nikolay Mishin