Dotaz: Perl - Split

[Psp.2010]

Dobrý den. Mam dotaz jak pomocí splitu mam rozdělit "@list".Když v @list se skrývá: NICK @NICK NICK %NICK NICK NICK +NICK Viz kód:

my ($self, $event) = @_;

my (@list, $channel) = ($event->args);

($channel, @list) = splice @list, 2;

print "@list\n";

Otázka..Jak se split mam rozdělit každý nick na jeden řádek a odstranit znaky: @, +, % Zkoušel sem:

my $people;

my $people = split(/ /, @list);

ale bohužel marně..Nejaky navrh?

---

---

Odpovědi

[chochi]

Trochu zlepsit vyraz, podle ktereho se splituje, napr (odstrani vsechny mazery, @, %, +):

$ perl -e 'use Data::Dumper; $a = "NICK \@NICK NICK %NICK NICK NICK +NICK"; @l=split(/[\@%\+ ]+/, $a); print(Dumper(\@l));'
$VAR1 = [
          'NICK',
          'NICK',
          'NICK',
          'NICK',
          'NICK',
          'NICK',
          'NICK'
        ];

[Psp.2010]

Ano, tak rekneme ze ty NICKY se každou chvily meni..Jak znaky tak nicky..ale ano, zkusim to.

[Psp.2010]

Ted mi to vypisuje todlecto:

$VAR1 = [ '1' ];

[wamba]

mohl by jste napsat co ten program má dělat nějak podrobněji, popř. ke každému příkazu (řádku) napsat co by měl dělat? předpokládám, že s Perl-em začínáte nebo je to hodně "cool" kód? např. tohle

my $people = split(/ /, @list);

vezme počet prvků @list rozdělí to podle mezery a do $people se uloží počet prvků vzniklého pole, tedy pravděpodobně vždy 1, což pochybuji je to co chcete :)

[Psp.2010]

Co by to mělo umět? Vytáhnout kdo je lidí na chatu (konkrétně na Lide.cz kde se IRC používá Lidegw.py) .A já po tom chci, aby mi je vytáhl (což je), a po té zkontroloval zda je někdo na blacklistu pomocí tim že rozsekám @list.Takže bych tim měl každýho uživatele na jenom řádku.O to mi jde.A abych se tam zbavil těch %, @ a +.

[wamba]

no to je sice hezky, ale když nám neřeknete co vrací $events->args, tak to bude těžké.

zkusím odhadnout, že vrací pole, kde od 4,5,... prvek obsahuje postupně ty nicky, pak bych zkusil něco jako

my @people = map /(\w+)/, @list;

ale celkově jsou to pro mě určité podivnosti např. tohle

my (@list, $channel) = ($event->args);

by chtělo přinejmenším komentář, co to dělá.

[Psp.2010]

@list je pole není omezeno počtem lidí args je mistnost kde se ti lidi nacházejí a já chci kontrolu těch lidí tam jsou, aby byli vypsány každý na jeden řádek.

[Psp.2010]

use 5.10.1;
use Data::Dumper;

my @list = qw{NICK \@NICK NICK %NICK NICK NICK +NICK};
my @people = map /(\w+)/, @list;
say Dumper( [\@list, \@people] );
say foreach @people;

[Psp.2010]

Ano, to by šlo :) ale v my @list = qw{NICK \@NICK NICK %NICK NICK NICK +NICK}; de o to, že ty NICK nahrazují uživatele, který nejsou v přesnym pořadí jak je dáno.Vždycky se to může měnit.

[wamba]

jen příklad, to můžete nahradit tím vaším

my @list = $event->args;

nebo něčím podobným

[Psp.2010]

Skoro funkčí, děkuji :)