VPF::вывод со sleep - Форум программистов

noneg

Дата 2.6.2012, 23:02 (ссылка)

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

Загрузка ...

Новичок

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

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

Здрасть!
Есть файл в нем строки.
Нужно реализовать их вывод.
Выводит 5 строк далее sleep(1)
Потом еще 5 строк и опять sleep(1), ну т.е цикл...

п.с: Если в файле будет всего не 15 строк, а 13 например, ну т.е что бы это учитывалось, что бы также 3 строки вывело оставшихся.

Кто чем может..

Код


#!/usr/bin/perl

my $delm=':';
open A, '<a.txt';
open B, '<b.txt';

while(@accs=<A>){

my ($name, $date) = split $delm => shift @accs;

while(<B>)    {
chomp(my $site = $_);
    
    print "$name-$site\n";    }
#(тут нужен код со слипом)
seek B, 0, 0;
     }
     close A;
     close B;
<>;

vadiml

Дата 3.6.2012, 09:10 (ссылка)

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

Загрузка ...

Опытный

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

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

Сделайте вложенный цикл

внешний делает sleep 1,
внутренний считвает по 5 строк и делает выход во внешний,
но если строки раньше закончились, то сразу делается из внешнего через
last метка_внешнего_цикла;

noneg

Дата 3.6.2012, 11:00 (ссылка)

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

Загрузка ...

Новичок

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

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

пример бы

noneg

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

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

Загрузка ...

Новичок

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

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

блин только заметил, что с таким кодом
выводится толькопервое имя, а второе имя не выводит и сайты, т.е только первое..
первое имя - сайт1
первое имя - сайт2

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

EcSYZ

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

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

Загрузка ...

Шустрый

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

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

Вообще код выше заставил меня усомнится в моих знаниях перла на несколько минут ... но потом я пришёл в норму.

Выводит по 5 строк из каждого файла со слипом:

Код


#!/usr/bin/perl
use common::sense;

open(A, '<', 'a.txt');
open(B, '<', 'b.txt');

my $s_c = 0;
while( (my $str1 = <A>) && (my $str2 = <B>) ){
    $str1=~s/[\n\r]//g;
    $str2=~s/[\n\r]//g;
    my ($name, $date) = split(/:/, $str1);
    say "$name - $str2";
    $s_c++;
    if($s_c == 5){$s_c=0; sleep(1);}
}
close(B);
close(A);

noneg вообще не понятно что тебе конкретно надо, ибо идея и код из первого топика расходятся по смыслу.

noneg

Дата 3.6.2012, 16:00 (ссылка)

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

Загрузка ...

Новичок

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

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

не так))

Вот показываю как мне нужно...

Первый файл a.txt
Vasya:Petrov
Kritin:Pizdecov

Второй файл b.txt
site1
site2
site3

Код


#!/usr/bin/perl

open A, '<a.txt';
open B, '<b.txt';

while(<A>){
chomp(my $name = $_);

while(<B>)    {
  chomp(my $site = $_);
    print "$name - $site\n";    }
     seek B, 0, 0;
     }
     close A;
     close B;
<>;

Вот какой мне нужен результат. НО мне нужно разбить отдельно имя и фамилию т.е в место
chomp(my $name = $_);
это
my ($name, $fam) = split $acc_delm => shift @accs;
(как я написал в первом посте) И при таком коде он выводит уже только первое имя из файла а.txt а второе игнорит.

Я уж молчу про слипы уж похер..=\

EcSYZ

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

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

Загрузка ...

Шустрый

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

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

Код


#!/usr/bin/perl
use common::sense;

open(A, '<', 'a.txt');
open(B, '<', 'b.txt');

my $s_c = 0;
while(my $str1 = <A>){
    $str1=~s/[\n\r]//g;
    my ($name, $date) = split(/:/, $str1);

    
    while(my $str2 = <B>){
        $str2=~s/[\n\r]//g;
        say "$name - $str2";
        $s_c++;
        if($s_c == 5){$s_c=0; sleep(1);}
    }
    seek(B, 0, 0);
}

close(B);
close(A);

noneg

Дата 3.6.2012, 21:47 (ссылка)

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

Загрузка ...

Новичок

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

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

спс большое, а для чего там этот модуль common::sense ?)
постов мало плюс не могу поставить)

Это сообщение отредактировал(а) noneg - 3.6.2012, 21:50

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