![]() |
Olá e boas-vindas de Estados Unidos para o UNIX e Linux Forum! Obrigado por visitar e fazer parte da nossa comunidade global.
|
|
google unix.com
|
|||||||
| Fóruns | Registar | Fórum Regimento | Ligações | Álbuns | FAQ | Lista deputados | Calendário | Pesquisa | Today's Posts | Mark Forums Read |
| Programação Shell Script e Post perguntas sobre ksh, CSH, SH, BASH, Perl, PHP, SED, Awk e outros scripts shell e shell scripts línguas aqui. |
Mais UNIX e Linux Fórum Tópicos Você pode achar Helpfull
|
||||
| Fio | Thread Starter | Fórum | Respostas | Última postagem |
| Como calcular o valor máximo e valor min | gobinath | Programação Shell Script e | 1 | 05-29-2008 01:01 |
| Para encontrar a palavra que ocorre maior número de vezes | aajan | Programação Shell Script e | 5 | 01-11-2008 04:11 |
| Descubra o máximo crescimento arquivo em um monte | raman1605 | UNIX para Dummies Perguntas & Respostas | 3 | 10-01-2007 09:25 |
| Como encontrar o máximo de IDPs # | stevefox | UNIX para Dummies Perguntas & Respostas | 8 | 08-04-2006 05:22 |
| Ambiente variável valor máximo | tonyv | Programação Shell Script e | 2 | 03-15-2005 05:25 |
![]() |
|
|
Linkback | Thread Tools | Pesquisar este Thread | Rate Thread | Display Modes |
|
|
|
||||
|
Precisa encontrar o mimimum & máxima
Oi,
Eu tenho um arquivo com uma lista de valores. Preciso encontrar o número mínimo e máximo de uma determinada coluna em que o arquivo. Por exemplo, o arquivo pode ser semelhante a este, 1 2 3 45 32 2 3 5 36 87 5 8 3 96 23 8 9 6 24 56 Então, na lista acima, eu preciso descobrir o número mínimo e máximo dos valores no 4 º e 5. Coluna Coluna. Nota: O ficheiro original contém mais de 1000 linhas. Atenciosamente Ashok Y |
|
||||
|
Oi, você pode usar perl, Amarre o seu arquivo para um nível inferior a Módulo, você pode tratar o seu arquivo como um dois-dimensão array por coluna.
Código:
package FileArray;
sub _makeArr{
$file=shift;
open FH,"<$file";
while(<FH>){
my @tmp=split(" ",$_);
for($i=0;$i<=$#tmp;$i++){
$arr[$i][$.-1]=$tmp[$i];
}
}
close FH;
}
sub TIEARRAY{
my($self,$file)=(@_);
_makeArr($file);
return bless \@arr,$self;
}
sub FETCH{
my($self,$ind)=(@_);
return $arr[$ind];
}
sub STORE{
my($self,$ind)=(@_);
return $arr[$ind];
}
1
Código:
use FileArray;
tie @arr,"FileArray","a.txt";
@brr=sort @{$arr[4]};
print "Min: $brr[0] -- Max: $brr[$#brr]\n";
|
![]() |
| Marcadores |
| Tags |
| perl, perl turnos, deslocar, turnos perl |
| Thread Tools | Pesquisar este Thread |
| Display Modes | Esta taxa Thread |
|
|