-----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/
