Programación de Archivos en Perl

En esta página se presentan algunos programas en los que se manejan archivos, que nos facilitarán la comprensión de cual es su utilidad y como se usan.

Todos los programas de esta página te los puedes bajar aquí

Pasos Para Programar en Perl

Programación Básica

Programas sobre Arreglos

Programas sobre Operadores

Programas sobre Funciones

Programas sobre Archivos

Programas en la Red

Ejercicio 1:

El siguiente ejemplo muestra como se puede mostrar el contenido de un archivo.

                #! /usr/bin/perl
                print "Introduce el nombre del archivo que quieres ver (con su respectivo path)";
                chop($nombre <STDIN>);    #lee el nombre del archivo y el path
                print " $nombre es correcto (S/N)";
                do
                    {
                       chop($res=<STDIN>);
                     }while ($res ne "s" && $res ne "n"); #verifica si los datos son correctos
                if ($res eq "s")
                    {
                        #abre el archivo y si no lo puede abrir sale del programa
                        open (ARCH,$nombre) || die "No puedo abrir el archivo $nombre";
                        #realiza un bucle para leer toda la información del archivo
                        while ($cadena = <ARCH>)
                            {
                                print $cadena, "\n"; #escribe la información
                            }
                    }
                else
                    {print "Adios \n")

Ejercicio 2:

El ejemplo realiza lo mismo que el anterior, pero le hemos quitado el while, ya que en Perl no hay restricción de memoría y podemos almacenar toda la información en una lista.

                #! /usr/bin/perl
                print "Introduce el nombre del archivo que quieres ver (con su respectivo path)";
                chop($nombre <STDIN>);    #lee el nombre del archivo y el path
                print " $nombre es correcto (S/N)";
                do
                    {
                       chop($res=<STDIN>);
                     }while ($res ne "s" && $res ne "n"); #verifica si los datos son correctos
                if ($res eq "s")
                    {
                        #abre el archivo y si no lo puede abrir sale del programa
                        open (ARCH,$nombre) || die "No puedo abrir el archivo $nombre";
                        @cadena = ; #recibe la información de todo el archivo
                        print @cadena, "\n"; #escribe la información del archivo
                    }
               else
                {print "Adios"}

Ejercicio 3:

Este programa sólo lee la primera línea del archivo que se ha especificado.

                #! /usr/bin/perl
                print "Introduce el nombre del archivo que quieres ver (path incluido) ";
                chop ($nombre=<STDIN>;
                print "$nombre Esta correcto (S/N)";
                do
                    {
                        chop ($res=<STDIN>);
                    } while ($res ne "s"&& $res ne "n");
                if ($res eq "s")
                    {
                        open(ARCH,$nombre) || die" No puedo abrir el archivo $nombre";
                        $cadena =<ARCH>;    #recibe la primera línea del archivo
                        print $cadena, "\n";
                   }
                else
                    {print "Adios");

Ejercicio 4:

El siguiente ejemplo muestra como abrir un archivo para escritura y como podemos guardar información en este. Se realizan preguntas para obtener ciertos datos y almacenarlos en el archivo.

                #! /usr/bin/perl
                open(EJEMP,"> /usr/bin/ejemplo.dat") || die "No pude abrir el arcivo \"ejemplo.dat\" ";
                print "Introduce tú nombre";
                $nombre=<STDIN>;
                chop($nombre);
                print "Introduce tu direccion: ";
                chop($direc=<STDIN>);
                print "Introduce tú teléfono ";
                chop ($tel=<STDIN>);
                @datos=($nombre,$direc,$tel);
                print EJEMP @datos;