[Bratislava-pm] ako na multi array?

[Jan Stasko]

jj, dik :) len o 4ej rano mi to uz nemyslelo :D

Dňa 28. máj 2008 8:49, Culak, Martin <martin.culak at hp.com> napísal/a:

>  Servus,
>
> Vsak si riesenie napisal samJ, snad je to to, co si chcel.
>
> Martin
>
>
>
> use Data::Dumper;
>
>
>
> my $file = "input.txt";
>
> my @array;
>
> my $line_count = 0;
>
>
>
> open my $file_handle, $file or die("Can't read from file $file because
> $!");
>
> while ( my $line = <$file_handle> ) {
>
>
>
> chomp($line);
>
>             my $item_count = 0;
>
>             my @line_array = split /#/,$line;
>
>             foreach my $item (@line_array){
>
>                         $array[$line_count][$item_count] = $item;
>
>                         $item_count++;
>
>             }
>
>             $line_count++;
>
> }
>
> close $file_handle;
>
> print Dumper(\@array);
>
>
>  ------------------------------
>
> *From:* bratislava-pm-bounces+porucik=hp.com at pm.org [mailto:
> bratislava-pm-bounces+porucik <bratislava-pm-bounces%2Bporucik>=hp.com@
> pm.org] *On Behalf Of *Jan Stasko
> *Sent:* Wednesday, May 28, 2008 4:28 AM
> *To:* bratislava-pm at pm.org
> *Subject:* [Bratislava-pm] ako na multi array?
>
>
>
> zdravim,
>
> mam vstupny subor, ktory vyzera asi takto:
>
> vyplňovať e-mail#1#e-mail#5290000
> váš e-mail#1730000#e-mail#5290000
> na e-mail#1440000#e-mail#5290000
> informačný e-mail#104000#e-mail#5290000
> odoslať e-mail#696000#e-mail#5290000
> nový e-mail#236000#e-mail#5290000
> zasielanie e-mail#36200#e-mail#5290000
> kontakt na#1510000#kontakt#3760000
> kontakt vzory žiadostí#2#kontakt#3760000
> kontakt pre#39400#kontakt#3760000
> odomknúť kontakt#4#kontakt#3760000
> kontaktovať#530000#kontakt#3760000
> text biblie#842#text#3110000
> text princezná#3#text#3110000
> text julo#1#text#3110000
> spravodajsky server#322000#server#2630000
> fakultný poštový server#2#server#2630000
> nový server#36800#server#2630000
> siedmy server#2#server#2630000
> dedikovaný server#713#server#2630000
> turistický informačný server#7#server#2630000
> exchange server#23900#server#2630000
> prehledať server#1#server#2630000
>
> ked ho nacitam do pola, tak kazdy jeden riadok je jeden prvok pola....a
> teraz by som potreboval este kazdy ten jeden riadok splitnut podla znaku '#'
> cize aby sa mi spravilo viacrozmerne pole o velkosti xxx riadkov a 4
> stlpcov. ako nato?
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/bratislava-pm/attachments/20080528/41d4a0cd/attachment.html