xref: /aoo41x/main/solenv/bin/sort.pl (revision 7e90fac2)
1cdf0e10cSrcweir:
2cdf0e10cSrcweireval 'exec perl -wS $0 ${1+"$@"}'
3cdf0e10cSrcweir    if 0;
4*7e90fac2SAndrew Rist#**************************************************************
5*7e90fac2SAndrew Rist#
6*7e90fac2SAndrew Rist#  Licensed to the Apache Software Foundation (ASF) under one
7*7e90fac2SAndrew Rist#  or more contributor license agreements.  See the NOTICE file
8*7e90fac2SAndrew Rist#  distributed with this work for additional information
9*7e90fac2SAndrew Rist#  regarding copyright ownership.  The ASF licenses this file
10*7e90fac2SAndrew Rist#  to you under the Apache License, Version 2.0 (the
11*7e90fac2SAndrew Rist#  "License"); you may not use this file except in compliance
12*7e90fac2SAndrew Rist#  with the License.  You may obtain a copy of the License at
13*7e90fac2SAndrew Rist#
14*7e90fac2SAndrew Rist#    http://www.apache.org/licenses/LICENSE-2.0
15*7e90fac2SAndrew Rist#
16*7e90fac2SAndrew Rist#  Unless required by applicable law or agreed to in writing,
17*7e90fac2SAndrew Rist#  software distributed under the License is distributed on an
18*7e90fac2SAndrew Rist#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
19*7e90fac2SAndrew Rist#  KIND, either express or implied.  See the License for the
20*7e90fac2SAndrew Rist#  specific language governing permissions and limitations
21*7e90fac2SAndrew Rist#  under the License.
22*7e90fac2SAndrew Rist#
23*7e90fac2SAndrew Rist#**************************************************************
24*7e90fac2SAndrew Rist
25*7e90fac2SAndrew Rist
26cdf0e10cSrcweir
27cdf0e10cSrcweir#
28cdf0e10cSrcweir# sort.pl - Simply sort the input from stdin and pipe it to stdout.
29cdf0e10cSrcweir#           The sort needs to be *independent* of the settings of
30cdf0e10cSrcweir#           LC_ALL resp. LC_COLLATE
31cdf0e10cSrcweir#
32cdf0e10cSrcweir
33cdf0e10cSrcweiruse strict;
34cdf0e10cSrcweir# be explicit: we want the perl standard sorting regardless the locale
35cdf0e10cSrcweirno locale;
36cdf0e10cSrcweir
37cdf0e10cSrcweir
38cdf0e10cSrcweirmy @buffer;
39cdf0e10cSrcweir
40cdf0e10cSrcweirwhile(<>) {
41cdf0e10cSrcweir    push(@buffer, $_);
42cdf0e10cSrcweir}
43cdf0e10cSrcweir
44cdf0e10cSrcweirforeach (sort @buffer) {
45cdf0e10cSrcweir    print $_;
46cdf0e10cSrcweir}
47