#!/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");

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");

}