Multumesc tare mult, e ok.
Numai bine,
Ionut
--- ANDONE Mures <[EMAIL PROTECTED]> wrote:
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
>
>
> Stiu ca sunt incepator in PERL, dar totusi cred ca
> te pot ajuta. Arunca o
> privire mai departe:
>
> - -------------------------
> #!/usr/bin/perl
> use strict;
> open(F,"in");
> my $i;
> my %h;
> while(<F>)
> {
> for($i=0;$i<6;$i++){
> $h{$i}->{substr($_,$i,1)}++;
> }
> }
> close F;
> print " 1 2 3 4 5 6\n--------------\n";
> foreach (('a','c','b','t'))
> {
> print "$_: ";
> for($i=0;$i<6;$i++){
> printf("%s ", $h{$i}->{$_}+0);
> }
> print "\n";
> }
> - -------------------------
>
>
> PS: Probabil o sa vina cineva care'o sa'mi zica se
> poate face c'o singura
> linie, dar imi asum riscul :D
>
> ...and justice for all..
>
> On Sun, 20 Mar 2005, Ionut Vancea wrote:
>
> | Buna!
> |
> | Vreau sa va rog daca puteti sa ma ajutati sa fac
> in
> | perl urmatorul lucru:
> |
> | Am un fisier:
> |
> | actabt
> | actbat
> | tbacta
> | ......
> |
> | si vreau sa centralizez intr-un tabel de cate ori
> | apare pe coloane: a, c, t, b, astfel, eventual
> sa-l
> | scriu intr-un fisier:
> |
> | | 1 2 3 4 5 6
> | --------------
> | a| 2 0 1 .....
> | c| 0 2 .......
> | t| ...........
> | b| ...........
> |
> | Cum as putea sa fac asta, macar sa-mi ziceti de
> unde
> | sa pornesc.
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.2.4 (GNU/Linux)
>
>
iD8DBQFCPm+z+rMtQ9y8VU4RAl0XAJ97PHr80A2xj3Yw7PwrrTp0nb3ndACfbtUc
> nVUemlvuAiRkUsgk4nBuT6E=
> =BZnh
> -----END PGP SIGNATURE-----
>
> ---
> Detalii despre listele noastre de mail:
> http://www.lug.ro/
>
>
>
__________________________________
Do you Yahoo!?
Yahoo! Small Business - Try our new resources site!
http://smallbusiness.yahoo.com/resources/
---
Detalii despre listele noastre de mail: http://www.lug.ro/
