VPF::копирование файла - Форум программистов

Mindaly

Дата 17.7.2011, 15:05 (ссылка)

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

Загрузка ...

Новичок

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

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

Потребовалось скопировать 3721255 строчек из одного файла в другой.
Я в Perl новичок, не подскажите как сделать так, чтобы не записывалась 3721256-я строка, представляющая собой пустую строку?

Код


open($my_file1,">:raw:utf8", "pass.lst"); #открываем для записи
open($my_file2,"<", "all.lst"); #открываем для чтения 

while (($line = <$my_file2>) && ($. <= 3721255) ) {
 chomp $line; # убрать \n в последнем поле
 print ($my_file1 "$line\n");
 } 
close(my_file1);
close(my_file2);

dixoNICH

Дата 17.7.2011, 17:02 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


$/ = \0;
open F, "1.txt";
open P, ">2.txt";
$file1 = <F>;
print P $file1;
close F;
close P;

Это сообщение отредактировал(а) dixoNICH - 17.7.2011, 17:02

Mindaly

Дата 17.7.2011, 17:36 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(dixoNICH @ 17.7.2011, 17:02)

Код


$/ = \0;
open F, "1.txt";
open P, ">2.txt";
$file1 = <F>;
print P $file1;
close F;
close P;

Вы копируете весь файл, а мне надо только первые 3721255 строчек smile

Это сообщение отредактировал(а) Mindaly - 17.7.2011, 17:38

dixoNICH

Дата 17.7.2011, 18:01 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

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

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

Код


open($my_file1,">:raw:utf8", "pass.lst"); #открываем для записи
open($my_file2,"<", "all.lst"); #открываем для чтения 

while (($line = <$my_file2>) && ($. <= 3721255) ) {
 $o.=$line;
 } 
chomp $o;
print $my_file1 $o;
close(my_file1);
close(my_file2);

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