Вход/изход, файлове, директории в Perl

Лектори

Георги Пенков gpenkov@phreedom.org

Марин Маринов mmarinov@phreedom.org

Петър Пенчев roam@ringlet.net

Николай Бачийски nbachiyski@developer.bg

Уеб страница

http://perl.phreedom.org/

Вход / изход

• Входно/изходните (IO, Input/Output) операции позволяват на процеса да обменя данни с външния свят
• Виртуалната машина съдържа допълнителен IO слой, през който минават IO операциите
  • позволява по-голяма преносимост между различните ОС
  • управлява се чрез служебни променливи и модула IO::Handle
  • има възможност за прескачането му чрез употребата на определен набор функции

Filehandle

• Filehandle
• При IO операции (четене/писане) се борави с filehandle-a вместо с името на файла
• Filehandle-ите се именуват без специален префикс, прието е изцяло с главни букви
• @FH # невалиден, има префикс за масив filehandle # валиден файлов хендъл FileHandle # валиден файлов хендъл FILEHANDLE # валиден файлов хендъл, # предпочитана форма на именуване

Отваряне на файл

• Отварянето асоциира filehandle-а с реалния файл, връща true при успех, false при грешка и установява $!
• Оператор за отваряне - open
  • open FILEHANDLE
  • open FILEHANDLE,EXPR
  • open FILEHANDLE,MODE,EXPR
  • open FILEHANDLE,MODE,EXPR,LIST
    • MODE указва различните режими на отваряне.
    • EXPR се оценява и се счита за име и път към файла.
• open може да изпълнява програми!

Отваряне на файл, форми на open

• open FILEHANDLE - търси името на файла в скалара с име $FILEHANDLE.
• open (FH); # отваря файл с име оценката на $FH
• open FILEHANDLE,EXPR - отваря файл с име EXPR, може да указва режим за отваряне.
• open (FH, ">somefile.txt"); # отваря за писане somefile.txt
• open FILEHANDLE,MODE,EXPR - режимът се указва отделно.
• open FILEHANDLE,MODE,EXPR,LIST - LIST съдържа параметри към стартираната програма
• open (PR, "-|", "ls", "-la");# изпълнява програмата ls print <PR>; # с параметри -la и предоставя close (PR); # резултата за четене от PR

Режими на отваряне - MODE (1/2)

• Режимът на отваряне указва дали ще четем, пишем, добавяме към файла или пък ще изпълним програма, с чийто вход/изход ще извършваме операции
• В двойната форма на open FILEHANDLE, EXPR седи като първи символ от EXPR, при липсата му се подразбира отваряне за четене
• В тройната и четворната форма седи като отделен параметър на open, което прави тези форми по-ясни и сигурни

Режими на отваряне - MODE (2/2)

• Част от режимите, включват
  • < - отваряне за четене, без право на писане
  • > - отваряне за писане, презаписва файла, ако вече съществува иначе го създава
  • >> - отваряне за добавяне, създава файла ако не съществува
  • +< - отваряне за четене и писане, не унищожава файла
  • +> - отваряне за четене и писане, файла се изтрива и презаписва ако съществува
  • +>> - отваряне за четене и добавяне след края, рядко има смисъл
  • -| - изпъленение на програма, четем изхода й
  • |- - изпъленение на програма, пишем към входа й

Затваряне на файл

• Оператор за затваряне - close
  • close FILEHANDLE - затваря файла асоцииран с FILEHANDLE и записва буферите
  • close - затваря текущо избрания файлов хендъл (последния използван)

Специфики при отваряне/затваряне

• Служебни променливи
  • $. ($INPUT_LINE_NUMBER) - текущ ред на последния достъпен FILEHANDLE
  • $| ($OUTPUT_AUTOFLUSH) - автоматичен flush на буферите след операция за писане
• Файловете се затварят автоматично след края на програмата
• open върху отворен файлов хендъл го затваря автоматично, но не нулира $.

Примери за open

• # двойна форма, отваряне за четене по подразбиране open (FH, "larodi.txt"); # двойна форма, явно указване на режим "четене" # проверка за резултат open (FH, ">larodi.txt") || die "Error: $!"; # двойна форма, с оценяване на променлива, опасно! open (FH, ">$filename") || die "Error: $!"; # двойна форма за изпълнение на програма open (FH, "ls -la|") || die "Error: $!"; # тройна форма, отваряне за четене и писане open (FH, "+<", $filename) || die "Error: $!"; # четворна, по-сигурна форма за изпълнение на програми $program = "ls"; @params = qw {-l -a}; open (FH, "-|", $program, @params) || die "Error: $!";

Сигурна форма на open

• open FILEHANDLE, MODE, EXPR
• open FILEHANDLE, MODE, EXPR, LIST
  • не позволява атаки през имената на файловете (чрез добавяне на символи за режима на отваряне), тъй като той e явно указан чрез 2-рия параметър
  • при изпълнение на програми с параметри трябва да се използва 4-ната форма, не позволява скрити pipe-ове
• $program = "ls -l -a | rm -rf /"; # скрит pipe open (FH, "-|", $program) || die "Error: $!"; # изпълнява и rm

Пример за лоша практика при работа
с файлове

• #!/usr/bin/perl # Четем името на файла от STDIN (не винаги!), # но не проверяваме за специални символи $filename = <>; # Разчитаме да отворим за четене, но $filename може да # съдържа всичко, вкл. |, което да изпълни програма open (FH, $filename ); # не проверяваме резултата от open # Четем и извеждаме, може да презапишем файл, # да отпечатаме конфиденциална информация print (<FH>); close (FH); # затваряме без проверка от резултата

Оператори за вход/изход

• <>, print, printf по подразбиране работят с файловете в текстов режим
• Диамантения оператор <FILEHANDLE>, чете от отворен файл хендъл и връща един прочетен ред
  • В скаларен контекст, чете по един ред, до символ за край на реда
    • $/ ($INPUT_RECORD_SEPARATOR) - разделител между редовете
  • В списъчен контекст, чете до символ за края на файл (EOF)

Особености на диамантения оператор

• По принцип, ако върнатата от него стойност не бъде присвоена на променлива, тя не отива в $_
• Ако диамантеният оператор (или присвояване на стойността му) е единственото условие на цикъл:
  • неприсвоената му стойност отива в $_
  • условието се счита за изпълнено, ако върната от диамамантения оператор стойност е дефинирана
  • предпазва ни от ред, съдържащ само 0 (без символ за нов ред)
• # следните редове вършат едно и също... while (<STDIN>) { print; } while (defined($_ = )) { print; } for (;<STDIN>;) { print; } while (my $line = <STDIN>) { print $line }