0

Здравствуйте! Разбираюсь с Perl, помогите с сортировкой...

Следующий код:

open(FILE,"<file");
@text = <FILE>;
chomp(@text);
close(FILE);

Каждая строчка в файле представляет из себя данные, записанные через разделитель "|", т.е.

фио|адрес|телефон|
фио|адрес|телефон|

Нужно отсортировать по фио, причем могут быть как русские так и английские символы. Спасибо!

2
  • chomp(@text); разве будет работать ? Commented 18 авг. 2011 в 10:44
  • 1
    perldoc -f chomp ... CHOMP( LIST )
    – KneLL
    Commented 18 авг. 2011 в 11:03

3 ответа 3

3
sort {
    [split /\|/, $a]->[0] cmp [split /\|/, $b]->[0]
} @text;

Про русский покурить про locale и unicode.

0
#!/usr/bin/perl
use strict;
use warnings;
open FILE,'file.txt';
chomp(my @info=<FILE>);
print sort @info;

Такой вариант не есть хорошо ?

0
<Handle>
chomp;

Так тоже будет работать.

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.