VPF::Вопросы новичка - Форум программистов

Firer

Дата 14.11.2008, 14:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Думаю, будет смысл, если добавлю тему и в ней буде размещать коды перла, которые почему-то не работают нормально у меня. Если кто снизойдет и скажет что неправильно, буду премного благодарен.

Код


#!/usr/bin/perl -w

open (MYFILE, ">>с:\\forperl.txt") || die "$!";
@stuff=<MYFILE>;
#
print "@stuff";
print scalar(@stuff);
foreach (reverse(@stuff)) {
    print scalar(reverse($_));
        print MYFILE "scalar(reverse($_)) \n";
        if (!print MYFILE scalar(reverse($_)), "\n" ) {
        warn "Writing error to file forperl.txt: $!"}

}
close(MYFILE);
exit 0

Смысл в том, чтобы открыть файл на дозапись, после перекрутить все строки.
Проблема в том, что @stuff ничего не получает, но при этом предупреждений и ошибок нет.
Файл с:/forperl текстовый, в нем строки, разделенные символом переноса.

PS Подскажите также, что можно сделать, чтобы нормально отображалась кириллица при запуске?

Это сообщение отредактировал(а) Firer - 14.11.2008, 15:19

demond

Дата 14.11.2008, 15:11 (ссылка)

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

Загрузка ...

Новичок

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

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

Скрипт не запускал, а пробежался только взглядом:
1) путь к файлу c:\\forperl
2) его надо открыть на дозапись, а у вас открыт на чтение;
3) имена переменных вынести из кавычек.

Думаю этого будет достаточно, чтобы скрипт заработал.

PS Если скрипт не работает, имеет смысл писать текст ошибки.

Это сообщение отредактировал(а) demond - 14.11.2008, 15:18

ginnie

Дата 14.11.2008, 15:19 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

Firer, предлагаю свой вариант

Код


#!/usr/bin/perl

use strict;
use warnings;

open (MYFILE, '+<', 'forperl.txt') or die "$!";
my @lines = <MYFILE>;
print @lines;
print scalar(@lines), $/;
seek MYFILE, 0, 0;
for my $line (reverse(@lines)) {
    chomp $line;
    my $reversed_line = reverse($line);
    print $reversed_line, $/;
    print MYFILE $reversed_line, $/;
}
close(MYFILE);
exit 0;

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

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

Firer

Дата 14.11.2008, 15:25 (ссылка)

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

Загрузка ...

demond,

Цитата

1) путь к файлу c:\\forperl

без разницы. Windows и MS-DOS позволяют такие пути. Обратная наклонка (/), как и есть альтернатива для (\\) для путей.

Цитата

2) его надо открыть на дозапись, а у вас открыт на чтение;

С этим стратил, кинул стаурю версию. Уже отредактировал.

Цитата

3) имена переменных вынести из кавычек.

где именно? Если там, где print то это позволяет элементы матрицы при выводе разделять пробелами.

Повторюсь еще раз

Код

print scalar(@stuff);

выдает 0, то есть пустую матрицу

Добавлено @ 15:27
ginnie,

спасибо за вариант. Попробую запустить.
Но я только изучаю перл по книге "Perl за 24 часа" и хотел бы понять что именно не так в этой мелкой проге.
Плохо то, что книга отсканированная и ручной коррекции ошибок не было. Поэтому все казусы приходится искать самому

Добавлено @ 15:31

Цитата(demond @ 14.11.2008, 15:11

)

PS Если скрипт не работает, имеет смысл писать текст ошибки.

Это сообщение отредактировал(а) demond - 14.11.2008, 15:18

В том то и оно, что все ОК. Ни ошибок, ни придупреждений

Это сообщение отредактировал(а) Firer - 14.11.2008, 15:32

demond

Дата 14.11.2008, 15:32 (ссылка)

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

Загрузка ...

Новичок

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

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

код вида:

Код


print "@staff";

считается плохим тоном.

ginnie

Дата 14.11.2008, 15:34 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

demond, 0 выдается из-за '>>', т.к. это открытие файла только для добавления, чтение из файла не разрешено, но ошибка при чтении не выдается.

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

Firer

Дата 14.11.2008, 15:34 (ссылка)

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

Загрузка ...

Цитата(demond @ 14.11.2008, 15:32

)

код вида:
Выделить всёкод Perl
1:

print "@staff";

считается плохим тоном.

Аналог какой?

Код


print @staff;

даст без пробелов, а еще один цикл добавлять не хочется. Если какой-то красивый аналог

Добавлено через 2 минуты и 34 секунды
ginnie,
Все понятно. Дурдом. Не ожидал такого подвоха. Понимал, что вся проблема в этой строке, но ошибок не находил. Маленький еще smile

demond

Дата 14.11.2008, 15:38 (ссылка)

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

Загрузка ...

Новичок

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

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

ginnie, я знаю. Когда я писал комментарий файл вообще открывался на чтение.

Firer, например, так:

Код


foreach (@stuff) {print $_," ";}

Firer

Дата 14.11.2008, 15:38 (ссылка)

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

Загрузка ...

Кстати может у кого-то есть книга Perl за 24 часа в электронном виде и хорошем качестве?

Это сообщение отредактировал(а) Firer - 14.11.2008, 15:38

ginnie

Дата 14.11.2008, 15:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

Firer, аналогов несколько

Код


print join(' ', @staff);

Код


{
    local $, = ' ';
    print @staff;
}

Добавлено через 59 секунд
demond, извини, про open это я не тебе, а Firer!

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

Firer

Дата 25.11.2008, 15:26 (ссылка)

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

Загрузка ...

Задание № 2

Написать короткую программу, которая бы:

открывала файл
считывала его строки в массив
извлекала строки из каждой строки
находила все слова с количество смежных букв 4 и более, например yardstisck, thoughts;

Мой вариант такой:

Код


#!/usr/bin/perl -w

open(MY, "C:/squid.txt");
@file=<MY>;
@words=map {split ' ',$_} @file;
$j=0;

for ($i=0; $i<=scalar(@words); $i++) {
        if ($words[$i]=~m/[bcdfghjklmnpqrstvwxz]{4,99}/i){
           $new[$j]=$words[$i];
           $j++;
        }
}
print join("\n", @new);

Может кто-то подскажет как сделать лучше. Буду очень благодарен

PS Единственное но. Появляется сообщение: Use of unitilizad value within @words in pattern match at script.pl line 10, <MY> line 374

Это сообщение отредактировал(а) Firer - 25.11.2008, 15:37

n4n0bit

Дата 25.11.2008, 16:10 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


#!/usr/bin/perl
use strict;
use warnings;

while( <> )
{
    chomp;
        
    foreach my $r ( split /\s+/ )
    {
        if( $r =~ /pass/ )
        {
            print "$r\n";
        }
    }
}

Это сообщение отредактировал(а) n4n0bit - 25.11.2008, 16:46

ginnie

Дата 25.11.2008, 16:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

Код


use strict;
use warnings;

open(MY, "filesplit.txt");
my @file=<MY>;
print join($/, (grep /[bcdfghjklmnpqrstvwxz]{4}/i, (map {split /\W+/} @file)));
close MY;

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

amg

Дата 25.11.2008, 16:47 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

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

n4n0bit, Ваш код будет работать, если в каждой строке только одно слово, а это условием не предполагается

Firer, предупреждение, о котором Вы говорите, появляется из-за превышений границ массива.
Нужно $i<@words; либо $i<=$#words;

Полная аналогия Вашему коду, но покороче

Код

print join "\n", grep {/[bcdfghj-np-tvwxz]{4,}/} map {split} <>;

и немного аккуратнее с определением "слово"

Код

while (<>) {
  push @new, grep {/[^aeiouy]{4,}/i} /\b([a-z]+)\b/ig;
}
print join("\n", @new);

n4n0bit

Дата 25.11.2008, 16:52 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


perl -e 'print join($/, (grep /[pass]{4}/i, (map {split /\W+/} <>)));' FileName

amg - я с вами не согласен.

Это сообщение отредактировал(а) n4n0bit - 25.11.2008, 16:58

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