The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

Каталог документации / Раздел "Perl" / Оглавление документа

Perl-программирование


[Пред] [1] [2] [3] [4] [5] [след]
  • Работа с файлами

  • Для того, чтобы открыть файл используется функция open(). Её формат: open(переменная,"[способ открытия]путь к файлу");. Под переменной впоследствии будет пониматься символьное обозначение файла. Для закрытие файла используем close(переменная).

    Способов открытия для файла несколько. Наиболее важными являются:
    open(myfile,"myfile"); # Открыть файл для чтения
    open(myfile,">myfile); # Открыть файл для записи
    open(myfile,">+myfile); # Открыть файл для чтения и записи
    open(myfile,">>myfile); # открыть файл для дозаписи
    
    Открыв файл, вы можете считать из него строку в переменную:
    $str=<переменная>; # Где переменная соответствует переменной, обьявленой в open() 
    или весь файл в массив:
    @str=<переменная>;
    
    Избавиться от символа перехода на новую строку, поможет функция chomp($переменная).

    Вписать что-либо в файл можно стандартным оператором print: print переменная "text"; Вот простой пример, который выводит содержимое файла на экран:
    open(passwd,"/etc/passwd");
    while ($read=<passwd>){
    print "$read\n";
    }
    close(passwd);
    
    Для удаления файла используется функция unlink("имя_файла"), для переименования: rename("имя_файла","новое_имя_файла");

    Следующие операции осуществляют проверку над файлами:
    -e - файл или каталог существует.
    if(-e "file") {print "Yes"; }
    -z - файл существует и имеет нулевую длину.
     if(-z "tmp") { unlink("tmp"); }
    -d - файл является каталогом.
    if(-d "myfile") { chdir("myfile"); }
    -s - размер файла в байтах.
    unlink("file") if (-s "file" < 20);

  • Другие полезные функции
  • Рассмотрим другие, очень полезные функции. В первую очередь такими являются split() и join(). Они помогают разбить или склеить строку по определённым символам.
    @massiv=split(/:/,$str); # Разбивает строку по ":"
    print "$massiv[0]\n"; # Печатает первый элемент, стоящий перед ":" в строке
    $str=join(/;/,@massiv); # Склеивает все элементы массива по ";"
    
    Функция substr() позволяет выделить часть строки. Формат функции:
    substr($строка,начальный номер элемента,конечный номер элемента);
    $str1=substr($str,0,7); # Присваивает $str1 первые 7 элементов $str;
    
    Функции lenght и scalar позволяют узнать количество символов в строке и количество элементов в массиве соответственно:
    $count=lenght($str); # Возвращает кол-во символов в $str
    $arr=scalar(@array); # Возвращает кол-во элементов в массиве @array
    

  • Сайты
  • Здесь я изложил только общие сведения о языке Perl. Большую информацию вы можете узнать, посетив другие сайты. Вот небольшой список таковых:

    http://www.perl.com <-- главный сайт по Perl-программированию.
    http://www.cgi-resources.net <-- бесплатные скрипты и документация.
    http://www.nas.pp.ru <-- хороший сайт по Perl.


    [Пред] [1] [2] [3] [4] [5] [след]


    Спонсоры:
    Inferno Solutions
    Hosting by Hoster.ru
    Хостинг:

    Закладки на сайте
    Проследить за страницей
    Created 1996-2021 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру