Uno de los lemas de Perl es TIMTOWTDI (pronunciado "tim adulador ") . Es un acrónimo que significa "no hay más que una manera de hacerlo. " Al igual que todo lo demás en Perl , hay muchas formas de capturar la entrada estándar. Entre ellos se encuentra un acceso directo para la lectura de todas las líneas en un archivo y hacer algo con ellos individualmente . Como se trata de una acción común en Unix programas de filtros , como , se utiliza muy a menudo en los programas de Perl . Instrucciones
1

Utilice el operador " ángulo " . Perl tiene cuatro controladores de archivo abiertas por defecto : . STDIN , STDOUT , ​​STDERR y datos, de los cuales STDIN es el mango de la entrada estándar , que se utiliza para capturar la entrada estándar
2

Utilizar el operador ángulo de leer una sola línea desde el gestor de archivo que se le pasa , y cualquiera de las tiendas en el default variable $ _ o utilizarlo como la mano derecha de una expresión de asignación . El operador " ángulo " es un gestor de archivo rodeado de menor que y mayor que los símbolos , también conocida como " escuadras ". "$ a = ; "
3

Use el operador ángulo en un bucle while. El operador corchete angular debe ser la única cosa en el mientras que la expresión booleana del circuito cuando se utiliza paréntesis angulares en un bucle while. Cada vez que el bucle while se ejecuta , que va a leer una línea y asignarla al operador $ _ . Cuando no hay más líneas para leer, el bucle while terminará : " while ( ) { chomp ; # Chomp la impresión variable $ _ , # Imprimir la variable $ _ }"
4

Asignar el operador de ángulo para una lista. Asignación de los resultados del operador de ángulo para una lista es como decir " almacenar todas las líneas de este gestor de archivo a la lista. " Cuando se asigna el operador ángulo a una lista, otro acceso directo que se realiza que asigna todas las líneas de entrada a la lista: " @ my_list = ; "
5

Leer desde la STDIN gestor de archivo usando la función de lectura . La escuadra lee sólo las líneas completas , y ya que este podría no ser lo que usted quiere hacer, la función de lectura le permitirá leer cualquier cantidad de bytes en una variable. Acepta tres parámetros : el gestor de archivo , la variable que lo almacena y el número de bytes a leer. El siguiente ejemplo lee 10 bytes en $ búfer: "leer ( STDIN , $ buffer, 10 ) ; "