El resto es cosa tuya...

Menudo facha asqueroso

Para que no se vea la solución nada mas entrar al tema la pongo en pastebin.

http://pastebin.com/MmM9uUJY

Cada letra tiene un valor, averigua el valor de las letras mediante un algoritmo.

MM +
AA +
DD
---
MAD

Sería así:

re.match(":(.+?):",n)  

El mismo código en perl:

use v5.16;
 
$_ = ":hola soy-una cadena : con : je";
 
/:(.+?):/;
 
say $1;

Hola, mi recomendación es que uses un lenguaje como Perl o Python para este tipo de cosas en vez de batch pero si estás interesado en hacerlo en batch mira información sobre for /f y delims.

un saludo.

Bueno, si te empeñas, esta sería mi solución asi de primeras:

#!/usr/bin/perl
 
use v5.16;
 
my @datos;
my $i = 0;
my $a;
 
while ($i<5)
{	
	print "Introduzca fila " . ($i+1) . ":";
 
	my @temp = split(" ",<STDIN>);
 
	for $a (0..4)
	{
		$datos[$i][$a] = $temp[$a];
	}
 
	$i++;	
}
 
my (@fila,@columna);
my ($tmpfila,$tmpco);
 
for $i (0..4)
{
    for $a (0..4)
    {
        $tmpfila += $datos[$i][$a];   
        $tmpco += $datos[$a] [$i];
    }
    push (@fila,$tmpfila, " ");
    push (@columna,$tmpco, " ");
 
    $tmpco = $tmpfila = 0;	
}
 
say "Totales filas: @fila";
say "Totales columnas; @columna";

El objetivo es sumar las filas y las columnas de una matriz (5x5) que será introducida por el usuario, ej.


Veamos quien lo resuelve de mejor manera  

Porque somos gordos frikis 

No es por hacer spam, pero en esta página www.perlenespanol.com tienes muchisima documentación para perl y esta todo en español.

saludos.