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

[Nikolay Mishin]

кстати здесь ошибка , правильно

my @scons = map $_->[1], sort { $a->[0] cmp $b->[0] } @tmp_scons;

это мне на http://stackoverflow.com/questions/7366402/perl-schwartzian-transform подсказали


09.09.2011, 23:04, "Nikolay Mishin" <mi на ya.ru>:
> Всем огромное спасибо!! Итоговый вариант
>
> #!/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

--
Nikolay Mishin