tatlink
Зарегистрирован: 19.05.2005
Сообщения: 361
Откуда: Уфа
|
 Добавлено: Ср Сен 10 2008 18:36 Заголовок сообщения: perl работа с файлами |
 |
|
в общем в текстовом файле лежит последовательность цифр разделенные ";" надо взять эти цифры
отсортировать по убыванию и записать в др файл чтоб все числа были разделены ";"
| Код: | #! /usr/bin/perl -w
open(FILE1, "/home/main/perl/1");
open(FILE2, ">/home/main/perl/2");
$file1=(<FILE1>);
$file1=~/;/ /g;
print FILE2 "$file1";
close (FILE1);
close (FILE2);
open(FILE1, "/home/main/perl/2");
open(FILE2, ">/home/main/perl/3");
@filesort=(<FILE1>);
@filesort=sort{$b<=>$a} <@filesort>;
print FILE2 ("@filesort");
close (FILE1);
close (FILE2);
open(FILE1, "/home/main/perl/3");
open(FILE2, ">/home/main/perl/2");
$file1=(<FILE1>);
$file1=~/;/ /g;
print FILE2 "$file1";
close (FILE1);
close (FILE2);
unlink "/home/main/perl/3"; |
использую 3 -ий файл идеотизм, дайте наводку куда смотреть ...
_________________
Хочешь знать правду? Читай таблицу умножения. |
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
