#!/usr/bin/perl

my $DNA = "ACGGGAGGACGGGAAAATTACTACGGCATTAGC";

$DNA =~ tr/ATCG/TAGC/;

print reverse($DNA) . "\n";

#!/usr/bin/perl
print "Tamaño de la piramide: " and my $h = <>;
     
for (1..$h) 
{
    print " " x ($h - $_) . "*" x (($_*2)-1) . "\n";
}

x@x:~/Escritorio$ perl piramide.pl
Tamaño de la piramide: 7
      *
     ***
    *****
   *******
  *********
 ***********
*************

for my $i (1..$hasta)

Introduce la altura del triangulo: 5
     *
    **
   ***
  ****
 *****

<STDIN>;

$letrafinal =~ s/{/a/;
$letrafinal =~ s/\|/b/;
$letrafinal =~ s/}/c/;

#!/usr/bin/perl

#!/usr/bin/perl

print "\n-- == Cifrado Murcielago == --\n";
 
menu:

print qq(===============\n= Menu        =\n===============\n1 - Cifrar    =\n2 - Descifrar =\n3 - Exit      =\n===============\n);

print "\n[+] Option : ";
chomp( my $op = <stdin> );

exit if ( $op eq "3");

print "\n[+] Enter text : ";
chomp($_ = <stdin>);

$_ =~ tr/murcielagoMURCIELAGO/01234567890123456789/ and print if ($op eq "1");
$_ =~ tr/01234567890123456789/murcielagoMURCIELAGO/ and print if ($op eq "2");
     
print "\n\n-- == (C) Doddy Hackman 2014 == --\n";
        
goto menu;
 

; FASM 1.71.17  y Windows XP Sp3.
; Juan fary
; Dar la vuelta a una cadena.

include 'win32ax.inc'

.data

    cadena      db 'Hola me llamo Juan',0  ; cadena a dar la vuelta
    buffer      rb 50 ; buffer de destino cadena al reves

.code
start:
    mov ecx, -1

    StrLen:    ; obtenemos longitud de la cadena
    inc ecx
    cmp byte[cadena+ecx],0
    jne StrLen

    StrReverse: ; le damos la vuelta
    dec ecx
    mov dl, byte[cadena+ecx]
    mov byte[buffer+eax], dl
    inc eax
    cmp ecx,-1
    jne StrReverse

    invoke MessageBoxA,0 ,buffer ,0 ,0 ; Mostramos el resultado

    ret

.end start