Програмно читати з STDIN або вхідного файлу в Perl

Який найгарячіший спосіб програмно читати з stdin або вхідного файлу (якщо передбачено) у Perl?

while (<>) {
print;
}

читатиме або з файлу, вказаного в командному рядку, або зі stdin, якщо файл не вказано

Якщо вам потрібна ця побудова циклу в командному рядку, тоді ви можете використовувати -nопцію:

$ perl -ne 'print;'

Тут ви просто поміщаєте код між {}першим прикладом і ''другим

Це забезпечує іменовану змінну для роботи:

foreach my $line ( <STDIN> ) {
    chomp( $line );
    print "$line\n";
}

Щоб прочитати файл, вставте його так:

program.pl < inputfile

Найбільш «найсмачніший» спосіб у певних ситуаціях - скористатися -nперемикачем . Він неявно обгортає ваш код while(<>)циклом і гнучко обробляє введення.

В slickestWay.pl:

#! / usr / bin / perl -n

ПОЧАТИ: {
  # зробіть щось тут один раз
}

# реалізувати логіку для одного рядка вводу
надрукувати результат $;

У командному рядку:

chmod +x slickestWay.pl

Тепер, залежно від вашого вводу, зробіть одне з наступного:

1. Зачекайте введення користувачем

   ./slickestWay.pl
   

2. Читання з файлів, названих у аргументах (перенаправлення не потрібне)

   ./slickestWay.pl input.txt
   ./slickestWay.pl input.txt moreInput.txt
   

3. Використовуйте трубу

   someOtherScript | ./slickestWay.pl 
   

BEGINБлок необхідний , якщо вам потрібно форматувати яке - то об'єктно-орієнтований інтерфейс, такі як Text :: CSV або деякі такі, які ви можете додати в кубло з -M.

-lа -pтакож ваші друзі.

Вам потрібно використовувати оператор <>:

while (<>) {
    print $_; # or simply "print;"
}

Що можна ущільнити:

print while (<>);

Довільний файл:

open F, "<file.txt" or die $!;
while (<F>) {
    print $_;
}
close F;

Якщо є причина, по якій ви не можете використовувати просте рішення, надане ennuikiller вище, вам доведеться використовувати Typeglobs для маніпулювання дескрипторами файлів. Це набагато більше роботи. Цей приклад копіює з файлу в $ARGV[0]такому в $ARGV[1]. За замовчуванням STDINі STDOUTвідповідно, якщо файли не вказані.

use English;

my $in;
my $out;

if ($#ARGV >= 0){
    unless (open($in,  "<", $ARGV[0])){
      die "could not open $ARGV[0] for reading.";
    }
}
else {
    $in  = *STDIN;
}

if ($#ARGV >= 1){
    unless (open($out, ">", $ARGV[1])){
      die "could not open $ARGV[1] for writing.";
    }
}
else {
    $out  = *STDOUT;
}

while ($_ = <$in>){
    $out->print($_);
}

Роби

$userinput =  <STDIN>; #read stdin and put it in $userinput
chomp ($userinput);    #cut the return / line feed character

якщо ви хочете прочитати лише один рядок

Ось як я створив скрипт, який може приймати або введення з командного рядка, або перенаправляти текстовий файл.

if ($#ARGV < 1) {
    @ARGV = ();
    @ARGV = <>;
    chomp(@ARGV);
}

Це перепризначить вміст файлу @ARGV, звідти ви просто обробляєте @ARGV так, ніби хтось включав параметри командного рядка.

ПОПЕРЕДЖЕННЯ

Якщо жоден файл не переспрямовано, програма буде сидіти в режимі очікування, оскільки вона чекає введення від STDIN.

Я ще не знайшов способу виявити, чи перенаправляється файл, щоб усунути проблему STDIN.

if(my $file = shift) { # if file is specified, read from that
  open(my $fh, '<', $file) or die($!);
  while(my $line = <$fh>) {
    print $line;
  }
}
else { # otherwise, read from STDIN
  print while(<>);
}