Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с файлами, Из файла в переменную, а не в массив 
:(
    Опции темы
*eug*
  Дата 14.10.2003, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Задача получить из файла не массив, как обычно:
Код

open(HAND,"<file.djh");
@text=<HAND>;
close(HAND);

а строку, т.е. в переменную, например $text, загнать содержимое файла.
Может чего нибудь подскажетеconfused.gif
cool.gif
PM MAIL   Вверх
HalkaR
Дата 14.10.2003, 20:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Пуфыстый назгул
****


Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

Репутация: нет
Всего: 42
Ничего умнее чем
Код
open A, '<errors.txt';
while (<A>){
$str .= $_;}
close A;
print $str;
в голову не приходит, хотя мож я не знаю.
PM MAIL   Вверх
HalkaR
Дата 14.10.2003, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Пуфыстый назгул
****


Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

Репутация: нет
Всего: 42
Хотя - нет - вот.
Код
open A, '<errors.txt';
undef $/;    #режим поглощения
$str = <A>;
close A;
print $str;
PM MAIL   Вверх
*eug*
Дата 15.10.2003, 07:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
HalkaR
А можеш функцию
Код

undef $/;

описатьconfused.gif А то что-то непонятно, как работаетconfused.gif
PM MAIL   Вверх
NightGoblin
Дата 15.10.2003, 08:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1021
Регистрация: 24.11.2002
Где: 127.0.0.1

Репутация: нет
Всего: 11
*eug*, undef() устанавливает значение переменной в неопределенное состояние (undef)


--------------------
Kernel panic: /dev/null overflow!
GCS/IT/MU/O d-@ s: a- C++$>++++$ ULSB(+++) P+++ L+++>++++ !E W++(-) N o? K w-- O? M>+ V? PS+ PE Y+ PGP+>+++ t- 5 X+ R- !tv b+ DI+ D+ G e++ h--- r++ y?
B4F1 54B6 8738 26CD 5125 0581 B923 9273 FE59 1981
PM MAIL WWW ICQ   Вверх
HalkaR
Дата 15.10.2003, 10:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Пуфыстый назгул
****


Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

Репутация: нет
Всего: 42
Переменная $/ определяет до какого символа будет производиться чтение из файла. Т.е. если написать
Код
$/ = "\n";
то считывание будет производиться до конца строки. undef - это неопределенность, т.е. чтение будет производиться до "неизвестно чего" smile.gif.
PM MAIL   Вверх
*eug*
Дата 15.10.2003, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Не совсем понятно, но всё-равно СПАСИБО!!!
PM MAIL   Вверх
korob2001
Дата 16.10.2003, 00:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 31
Всего: 61
Это работа с файлами. А в Perl работа с файлами одна из самых важных тем. Ты должен это понять:
Давай сначала и по порядку.

Допустим есть файл file.txt со следующим содержанием:

    Всем привет! Меня зовут
    Вася. Мне 25 лет. Проживаю
    в Питере (Россия).
    Очень приятно было с вами
    познакомиться.
    Пока

Давай попробуем прочитать его разными способами в скалярном контексте:
Код

#!/usr/bin/perl -w
use strict;
sub readFile {
  local $/ = "\n";                      # <- Все изменения этой переменной
                                               #      действуют только в этом блоке,
                                               #     после выхода из блока переменная
                                               #     $\ принимает значение по умолчанию.
  my($string, $word, $all);
    open (DATA, "<file.txt") or die "Can\'t open file \"file.txt\": $!";
     $string = <DATA>;             # <- Считываем первую строку файла
     $/ = ' ';                               # <- Устанавливаем пробел как разделитель
     $word  = <DATA>;             # <- Считываем первое слово второй строки
     undef( $/ );                        # <- Усианавливаем режим поглащения
     $all      = <DATA>;              # <- Считываем всё что осталось в файле
    close(DATA)                   or die "Can\'t close file \"file.txt\": $!";
 return($string, $word, $all);
}

my($string, $word, $all) = readFile;
for ($string, $word, $all) { s/^\s+//;      # Удаляем все пробелы в начале
                                         s/\s+$//;       # Удаляем все пробелы в конце
                                         s/\s+/ /g; };  # Удаляем лишние пробелы
print "$string\n";
print "$word\n";
print "$all\n";

Думаю всё доступно объяснил. Если не понятно пиши. ;)

Это сообщение отредактировал(а) korob2001 - 16.10.2003, 00:38


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
*eug*
Дата 16.10.2003, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Я понял спасибо.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0447 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.