VPF::Работа с частичными эллементами массива

DiverD

Дата 14.9.2006, 15:57 (ссылка)

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

Загрузка ...

Бывалый

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

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

НЕ могу сооброзить, вот код:

Код


#!C:/DOCUME~1/ADMINI~1/Desktop/gge/perl/perl/bin/perl.exe -w
use strict;
use warnings;

my @ar = qw(a= b= c= d= e= f=);

for(my $i = 0; $i <= $#ar; $i++)
{
   print "$ar[$i]"."1";
   for(my $n = 0; $n <= $#ar; $n++)
   {
      print " $ar[$n] ";
      print " :NEXT: " if $n == $#ar;
   }
}

Вот результат сиего кода:

a=1 a= b= c= d= e= f= :NEXT: b=1 a= b= c= d= e= f= :NEXT: c=1 a= b= c= d= e= f= :NEXT: d=1 a= b= c= d= e= f= :NEXT: e=1 a= b= c= d= e= f= :NEXT: f=1 a= b= c= d= e= f= :NEXT:

Я хочу добиться того, что вот к примеру видно что a=1 и 'a' опять присуцтвует в выводе, а мне нужна что бы если a=1 то уже 'a' не будет в выводе.

ps: температура 37.5 C

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

[ FreeBSD & pERL p0WER eVERY dAY ]

ZeeLax

Дата 14.9.2006, 17:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 4388
Регистрация: 20.8.2006
Где: Алма-Ата

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

А можно чуть-чуть логику задачи описать?

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

Utility is when you have one telephone, luxury is when you have two, opulence is when you have three — and paradise is when you have none.
— Doug Larson

DiverD

Дата 14.9.2006, 18:17 (ссылка)

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

Загрузка ...

Бывалый

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

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

НУ есть массив @array = qw(a= b= c= d= f=);
прикинемся что значения в массиве - искомое, мне нужна по очереди подстовлять в после каждого '=' какое то значение.
Выгледеть ето будет так:

a=[1] b= c= d= f=
a= b=[1] c= d= f=
a= b= c=[1] d= f=
a= b= c= d=[1] f=
a= b= c= d= f=[1]

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

[ FreeBSD & pERL p0WER eVERY dAY ]

Nab

Дата 14.9.2006, 20:31 (ссылка)

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

Загрузка ...

Опытный

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

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

Как вариант:

Код


#!/usr/bin/perl -w
use strict;
use warnings;
my @ar = qw(a= b= c= d= e= f=);
foreach my $i (0..$#ar) {
   print "\n$ar[$i]1,\t";
   foreach my $n (0..$#ar)
   {
        print ($n == $i)?"$ar[$n]1\t":" $ar[$n]\t"
   }
}

1;

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

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

DiverD

Дата 14.9.2006, 20:40 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


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

our @ar = qw(a= b= c= d= e= f=);
our @A;
our @end;

foreach my $i (0..$#ar) 
{
    push @A,$ar[$i]."1";
   foreach my $n (0..$#ar)
    {
    unless($n == $i) 
        {
            push @A,$ar[$n];
        }
    }
}

    my $y = 0;
    my $x = $#ar;

for(my $i = 0; $i <= $#A; $i++)
{
    push @end, join "", @A[$y..$x],"\n";
    $y += $#ar+1;
    $x += $#ar+1; 
}

print $end[2];

Это то что мне было нужн.
вот результат:

a=1b=c=d=e=f=
b=1a=c=d=e=f=
c=1a=b=d=e=f=
d=1a=b=c=e=f=
e=1a=b=c=d=f=
f=1a=b=c=d=e=

thnx Nab;

Это сообщение отредактировал(а) diverd - 14.9.2006, 21:47

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

[ FreeBSD & pERL p0WER eVERY dAY ]

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