VPF::Работа со строками - Форум программистов

Alximik

Дата 5.8.2005, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 21.7.2005

Репутация: нет
Всего: нет

Трабла следующая. есть *.txt файл его нужно прочесть и в конце каждой строки добавить ну предположем точку. как это можно реализовать?

korob2001

Дата 5.8.2005, 18:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Если файл большого размера, то примерно так:

Код


#!/usr/bin/perl -w
use strict;
# имя файла
my $file = "test.txt";

open( FILE, "< $file" ) or die $!;
   open( TEMP, "> $file.temp" ) or die $!;
         while ( <FILE> ) {
              chomp;
              print TEMP join(".", $_, "\n");
         }
   close( TEMP );
close( FILE );
if ( unlink( $file ) ) {
     rename("$file.temp", $file) or warn "$!\n";
} else {
     warn "$!\n";
}

Если же файл не большой, то можно читать его в массив и обрабатывать его, а потом записывать в файл.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Alximik

Дата 6.8.2005, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 21.7.2005

Репутация: нет
Всего: нет

благодарю. файлы разного размера так что думаю мне этот вариант подойдет

BlackLFL

Дата 16.9.2005, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

Репутация: 1
Всего: 12

не забываем делать

Код


 flock FILE,2;

sharq

Дата 17.9.2005, 11:44 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 3
Всего: 28

BlackLFL не забывай смотреть дату последнего сообщения:

Цитата

Дата 6.8.2005, 12:57

Раз пошел разговор о блокировки файла, то читаем соответствующую тему здесь.

smile

--------------------

[color=gray]There's More Than One Way To Do It[/color]

korob2001

Дата 17.9.2005, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Угу, может Fcntl подключить к этому примеру??? Ты же не забывай, что это форум а не студия WEB-дизайна. Потому заниматься такими вещами как блокировка файла, предоставлена возможность автору топика, но опять же если она ему нужна. Если этот скрипт изначально предназначен для одноразового, личного, использования, после чего будет удалён, то думаю блокировка вообще не понадобится.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

BlackLFL

Дата 18.9.2005, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

Репутация: 1
Всего: 12

я считаю для себя хорошим тоном, всегда блокировать фаил ...

korob2001

Дата 19.9.2005, 01:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Цитата

я считаю для себя хорошим тоном, всегда блокировать фаил ...

И правильно делаешь.. Здесь просто суть вопроса немного другая.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »