diff options
author | Kurt Zenker <kz@openoffice.org> | 2006-02-27 15:35:31 +0000 |
---|---|---|
committer | Kurt Zenker <kz@openoffice.org> | 2006-02-27 15:35:31 +0000 |
commit | f38e3f0014602008c4d595d529ecbe0be26ebb51 (patch) | |
tree | acebe4b080e756220d7984e0aa7c13e10d93559a /solenv/bin/sort.pl | |
parent | INTEGRATION: CWS ause050_SRC680 (1.12.222.1.2); FILE MERGED (diff) | |
download | core-f38e3f0014602008c4d595d529ecbe0be26ebb51.tar.gz core-f38e3f0014602008c4d595d529ecbe0be26ebb51.zip |
INTEGRATION: CWS ause050_SRC680 (1.1.2); FILE ADDED
2006/02/23 14:24:45 hjs 1.1.2.1: #i62473# locale independent sort
Diffstat (limited to 'solenv/bin/sort.pl')
-rw-r--r-- | solenv/bin/sort.pl | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/solenv/bin/sort.pl b/solenv/bin/sort.pl new file mode 100644 index 000000000000..b47c9ab621b3 --- /dev/null +++ b/solenv/bin/sort.pl @@ -0,0 +1,58 @@ +: +eval 'exec perl -wS $0 ${1+"$@"}' + if 0; +#************************************************************************* +# +# OpenOffice.org - a multi-platform office productivity suite +# +# $RCSfile: sort.pl,v $ +# +# $Revision: 1.2 $ +# +# last change: $Author: kz $ $Date: 2006-02-27 16:35:31 $ +# +# The Contents of this file are made available subject to +# the terms of GNU Lesser General Public License Version 2.1. +# +# +# GNU Lesser General Public License Version 2.1 +# ============================================= +# Copyright 2005 by Sun Microsystems, Inc. +# 901 San Antonio Road, Palo Alto, CA 94303, USA +# +# This library is free software; you can redistribute it and/or +# modify it under the terms of the GNU Lesser General Public +# License version 2.1, as published by the Free Software Foundation. +# +# This library is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# Lesser General Public License for more details. +# +# You should have received a copy of the GNU Lesser General Public +# License along with this library; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, +# MA 02111-1307 USA +# +#************************************************************************* + +# +# sort.pl - Simply sort the input from stdin and pipe it to stdout. +# The sort needs to be *independent* of the settings of +# LC_ALL resp. LC_COLLATE +# + +use strict; +# be explicit: we want the perl standard sorting regardless the locale +no locale; + + +my @buffer; + +while(<>) { + push(@buffer, $_); +} + +foreach (sort @buffer) { + print $_; +} |