мини-скрипты

php

Общая

<?php phpinfo(); ?>

Вывод ошибок в отдельный файл

<?php

ini_set('error_log',  '/var/log/php_errors.log');

При невозможности записи в этот файл - вывод в основной лог.

Тест права создания файлов и владельца

$ourFileName = "testFile.txt";

$ourFileHandle = fopen($ourFileName, 'w') or die("can't open file");

fclose($ourFileHandle);

perl

#!/usr/bin/perl

#!/usr/local/bin/perl

##

##  printenv -- demo CGI program which just prints its environment

##

use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/plain; charset=iso-8859-1\n\n";

foreach $var (sort(keys(%ENV))) {

    $val = $ENV{$var};

    $val =~ s|\n|\\n|g;

    $val =~ s|"|\\"|g;

    print "${var}=\"${val}\"\n";

}