initial commit

[urisagit/Sort-Maker.git] / exp / sort_rows.pl

#!/usr/local/bin/perl

use strict ;
use warnings ;

use Sort::Maker qw( make_sorter sorter_source ) ;

my @unsorted = (

	'<table><tr><td meascode="y"></td></tr></table>',
	'<table><tr><td meascode="2"></td></tr></table>',
	'<table><tr><td meascode="A"></td></tr></table>',
	'<table><tr><td meascode="B"></td></tr></table>',
) ;

my $cost_order = 'A2yB';

my $sorter = make_sorter(
		'GRT',
#		init_code	=> "my \$cost_order = '$cost_order' ;",
#		init_code	=> 'my $cost_order = q{A2yB};',
		signed		=> 1,
		string_data	=> 1,
#		number		=> q{ /code="(.)"/ && index($cost_order,$1) },
		number		=> sub{ /code="(.)"/ && index($cost_order,$1) },
) ;

$sorter or die $@ ;

print sorter_source( $sorter ) ;

print map "$_\n", $sorter->( @unsorted ) ;