Ainda não fazes parte da comunidade WebTuga!? Clica aqui e Regista-te já!

EntrarUtilizadorSenha
Ligar-me automaticamente em cada visita    
Pesquisar
Pesquisar
Membros
Membros
Registar
Registar
Ligar e ver Mensagens Privadas
Ligar e ver Mensagens Privadas

Fórum WebTuga

Ganhe Prémios Fantásticos - Passatempos.com.pt
Índice do Fórum WebTuga » Programação

Novo Tópico   Responder a Mensagem   

calcular o Número de caracters
Ver mensagem anterior :: Ver mensagem seguinte  
Autor Mensagem
Andy_CooL
member
member


Idade: 20
Registrado em: 13 Jun 2008

Especificação:

Mensagens: 4

MensagemColocada: Ter Jul 01, 2008 9:43 am    Assunto: calcular o Número de caracters Responder com Citação

criar um programa que aceita um argumento fornecido na linha de
# comando, o argumento têm de ser o nome de um ficheiro de texto, pretende-se
# imprimir quantos caracteres a última linha desse ficheiro contém

alguem me pode resolver isto em python ou noutra linguagem de programaçao?
Voltar ao topo
scotty
mod
mod


Idade: 20
Registrado em: 27 Jul 2006

Especificação:

Mensagens: 2627
Local/Origem: Por aí..

MensagemColocada: Ter Jul 01, 2008 1:16 pm    Assunto: Responder com Citação

Código:

#!/usr/bin/perl -w
use strict;
# Filename: contarUltima.pl
# Hostname:

# Author: scotty

# Created: Tue Jul  1 13:37:24 WEST 2008

#=
# Code

if(@ARGV < 1){
  print "Erro! Falta de parametro\n";
  exit;
}

my $nome=$ARGV[0];
if(!(-e $nome))
{
  print "Erro! Ficheiro não existe\n";
  exit;
}

my $linha=`tail -n1 "$nome"`;
my $i=0;
my $cont=length($linha);

printf("\nA ultima linha tem $cont caracteres\n");


Tens aqui em perl, isto não subtrai os espaços mas também não é por ai.
De python não sei nada.lol
Voltar ao topo
Andy_CooL
member
member


Idade: 20
Registrado em: 13 Jun 2008

Especificação:

Mensagens: 4

MensagemColocada: Ter Jul 01, 2008 9:49 pm    Assunto: Responder com Citação

scotty escreveu:
Código:

#!/usr/bin/perl -w
use strict;
# Filename: contarUltima.pl
# Hostname:

# Author: scotty

# Created: Tue Jul  1 13:37:24 WEST 2008

#=
# Code

if(@ARGV < 1){
  print "Erro! Falta de parametro\n";
  exit;
}

my $nome=$ARGV[0];
if(!(-e $nome))
{
  print "Erro! Ficheiro não existe\n";
  exit;
}

my $linha=`tail -n1 "$nome"`;
my $i=0;
my $cont=length($linha);

printf("\nA ultima linha tem $cont caracteres\n");


Tens aqui em perl, isto não subtrai os espaços mas também não é por ai.
De python não sei nada.lol



ta obrigada na mesma =)
Voltar ao topo
arkangath
Special user
Special user


Idade: 21
Registrado em: 20 Jun 2007

Especificação:

Mensagens: 183
Local/Origem: Dublin, Irlanda

MensagemColocada: Sex Jul 04, 2008 12:01 pm    Assunto: Responder com Citação

Em D:

Código:

import std.stdio;
import std.stream;

void main(string[] args)
{
    if (args.length!=2) {writeln("Especifique um ficheiro"); return;}
    string linha;
    File f=new File(args[1]);
    while(!f.eof()) linha=f.readLine();
    writeln("A ultima linha tem ",linha.length," caracteres");
}


Pode-se usar std.string para tirar os espaços.

Se o teu programa nao está a funcionar convenientemente, vê se por acaso o ficheiro nao está guardado noutra codificação (ASCII, UTF8, UTF16, etc).
Voltar ao topo
Mostrar os tópicos anteriores:   
Novo Tópico   Responder a Mensagem    Índice do Fórum WebTuga » Programação Todos os tempos são GMT
Página 1 de 1

 
Ir para:  
Neste fórum, você Não pode colocar mensagens novas
Não pode responder a mensagens
Não pode editar as suas mensagens
Não pode remover as suas mensagens
Você Não pode votar neste fórum

Artigos relacionados
 Tópicos   Respostas   Autor   Vistos   Última Mensagem 
Não há mensagens novas [Pedido] Avatar e Assig. mudar o nome 4 Biqu3 709 Qua Nov 15, 2006 12:58 pm
.arktikBOY Ver a última mensagem
Este tópico está Bloqueado. Não pode editar mensagens ou responder [2D] [|][wip] "projecto mala" (ainda sem nome) 12 Caneco 1616 Dom Nov 12, 2006 8:09 pm
RaPtOr Ver a última mensagem
Não há mensagens novas Rooney recupera site com o seu nome 2 radikal-rider 783 Sáb Out 14, 2006 12:58 pm
radikal-rider Ver a última mensagem
Não há mensagens novas Qual será o nome do sucessor do Leopard? 15 cenourinha 2071 Sáb Set 09, 2006 5:04 pm
lycosman Ver a última mensagem
Não há mensagens novas Nome Fácil 3 r1c4rd0100 732 Qui Set 07, 2006 1:19 am
tiaguh Ver a última mensagem



who's online
WebTuga Footer
WebTuga Footer Powered by phpBB © 2001, 2002 phpBB Group
iCGstation v1.0 Template By Ray © 2003, 2004 iOptional

WebTuga Footer