Commit | Line | Data |
7468c584 |
1 | <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> |
2 | <HTML> |
3 | <HEAD> |
4 | <TITLE> Sort::Maker Synopsis </TITLE> |
5 | </HEAD> |
6 | <H3 ALIGN=CENTER>1.4: Sort::Maker Synopsis </H3> |
7 | <TABLE ALIGN="CENTER" BORDER=0 WIDTH="95%"> |
8 | <TR> |
9 | <TD WIDTH="25%" ALIGN="LEFT"> |
10 | <A HREF="slide-0103.html">Prev</A> |
11 | <A HREF="slide-0105.html">Next</A> |
12 | <A HREF="index.html">Index</A> |
13 | <TD ALIGN="CENTER"> |
14 | Sort::Maker |
15 | <TD WIDTH="25%" ALIGN="RIGHT">Page 4/12 |
16 | </TR> |
17 | </TABLE> |
18 | <HR WIDTH="95%"> |
19 | <UL> |
20 | <li> Exports a single sub 'make_sorter' |
21 | |
22 | <li> Each key has its own description |
23 | |
24 | <li> Call make_sorter with sort description arguments and it returns a |
25 | code reference. |
26 | |
27 | <li> Call that reference with unsorted input records |
28 | |
29 | <li> Returns sorted records |
30 | <PRE> |
31 | my $sorter = make_sorter( |
32 | qw( plain ), |
33 | number => [ |
34 | code => '/(\d+)/', |
35 | 'descending', |
36 | ], |
37 | ) ; |
38 | |
39 | my @sorted = $sorter->( @unsorted ) ; |
40 | |
41 | </PRE></UL> |
42 | <HR WIDTH="95%"> |
43 | <TABLE ALIGN="CENTER" BORDER=0 WIDTH="95%"> |
44 | <TR> |
45 | <TD WIDTH="30%" ALIGN="LEFT"> |
46 | <A HREF="slide-0103.html">Prev</A> |
47 | <A HREF="slide-0105.html">Next</A> |
48 | <A HREF="index.html">Index</A> |
49 | <TD ALIGN="CENTER"> |
50 | YAPC::NA 2004, Buffalo, NY |
51 | <TD WIDTH="25%" ALIGN="RIGHT">Page 4/12 |
52 | </TR> |
53 | |
54 | <TR> |
55 | <TD ALIGN="CENTER" COLSPAN="3"> |
56 | <FONT SIZE="-3">© 2004 Uri Guttman</FONT> |
57 | </TR> |
58 | |
59 | </TABLE> |
60 | </HTML> |