regexPerlejemplo

#!/usr/bin/env perl
#===============================================================================
#
#         FILE: regex.pl
#
#        USAGE: ./regex.pl
#
#  DESCRIPTION: Ejemplo de expresiones regulares perl
#
# REQUIREMENTS: Perl
#        NOTES: Basado en ejemplo de <http://perlenespanol.com>
#       AUTHOR: (),
# ORGANIZATION: ()
#      VERSION: 1.0
#      CREATED: 22/12/12 17:44:00
#===============================================================================

use strict;
use warnings;
use utf8;

system("clear");

my $ruta = "C:/Windows/ProgramFiles/itunes.exe";

printf "$ruta\n";

$ruta =~ m{^([a-zA-Z]+)\:\/(.*)\/(.*)$};

system("sleep 1");

print "Quitando algunas cosas...\n";

print "$1$2$3\n";

print "Quitando con split....\n";

system("sleep 1");

print "Quitando letra principal...\n";

system("sleep 1");

my @quitar = split(/^[a-zA-Z]/ , $ruta);

print @quitar;

print "\nQuitando puntos (:)...\n";

system("sleep 1");

my @puntos = split(/\:\//, $ruta);

print @puntos;

print "\nQuitando punto...\n";

system("sleep 1");

my @punto = split(/[.]/, $ruta  );

print @punto;

print "\nQuitando minusculas...\n";

system("sleep 1");

my @minus = split(/[a-z]/, $ruta);

print @minus;

print "\nQuitando MAYUSCULAS...\n";

system("sleep 1");

my @mayus = split(/[A-Z]/, $ruta);

print @mayus;

print "\nQuitando /...\n";

system("sleep 1");

my @par = split(m{/}, $ruta);

print @par;

print "\nQuitando .exe\n";

system("sleep 1");

my @pro = split(/.exe$/, $ruta);

print @pro, "\n";