Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - soda

Страницы: [1]
1
Perl / запуск скриптов
« : 06 Января 2006, 07:18:04 »
linux

дело в том что скрипт запущенный с помощью систем - не пускает с помощью система другие скрипты

2
Perl / запуск скриптов
« : 06 Января 2006, 00:58:07 »
require тут не причем

а систем не работатет

3
Perl / запуск скриптов
« : 05 Января 2006, 03:36:35 »
подскажите как осуществить следующее
один скрипт назовем его 1.pl
запускает 2.pl, тот в свою очередь 3.pl, и так далее

можно ли осуществить это
с помощью exec или system

то есть задача стоит в следующем пустить 1.pl и забыть про все, то есть каждый скрипт выполняя какую-то операцию по завершении пускает следующий.

или при таких цепочках надо использовать какие то другие методы.

4
Веб-технологии / скрипт для проверки Google PR
« : 06 Декабря 2005, 02:59:57 »
WWW::Google::Pagerank

5
Perl / Несколько вопросов по Perl
« : 04 Ноября 2005, 12:55:17 »
а никто не подскажет как в данном коде реализовать таймаут, если к примеру прокси умерла?

6
PHP / Удаленный INCLUDE
« : 04 Ноября 2005, 11:18:01 »
доцент оказался.....

7
Perl / Замена символов при выводе результата работы скрипта в броузер
« : 24 Октября 2005, 21:24:08 »
Я так делал, написал первое, что в голову пришло


sub translit(){
    my $t= shift;
#translit
    $t =~ s/\\+/_/g;
    $t =~ tr/абвгдеёжзийклмнопрсту/abvgdeejziiklmnoprstu/;
    $t =~ tr/фхц/fhc/;
    $t =~ s/ч/ch/g;
    $t =~ s/ш/sh/g;
    $t =~ s/щ/sch/g;
    $t =~ s/ь//g;
    $t =~ s/ы/y/g;
    $t =~ s/ъ//g;
    $t =~ s/э/e/g;
    $t =~ s/ю/yu/g;
    $t =~ s/я/ya/g;
#end of translit
    return $t;
}

Использовать:
$transliterated = &translit($str);

8
Поиск, изготовление скриптов и прочее... / помогите с написанием php-кода, позволяющего сканировать файлы в папке...
« : 20 Октября 2005, 21:18:16 »

<?
if (  $d = @opendir( \'.\' )  ) {
while(  false !== ( $file = @readdir($d) )  ) {
if (  !(eregi( \'^[^.].*\\.(.*?)$\', $file )) || is_dir( $file)  ) {
continue;
}
$files[ $file ] = size2str(  filesize( $file )  );
}
closedir($d);
@ksort( $files );
} else {exit;}
$dir =  (  preg_match( \'!([^/]+)/[^/]*$!\', getenv(\'REQUEST_URI\'), $regs )  )  ?  htmlspecialchars( $regs[1] )  :  \'current directory\';
$dir = htmlspecialchars(  urldecode( $dir )  );
?>
<html>
<head>
<title>Содержимое каталога <<?=$dir?>></title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<meta http-equiv="Content-Language" content="ru,en">
</head>
<body>
<table>
<tr><td id="title" colspan="2">
Содержимое каталога <<span><?=$dir?></span>>
<?
if ( is_array($files) ) {
foreach( $files as $file => $size ) { ?> 
<tr class="item"<?=( ($count++ ^ 1) == $count ) ? \'\' : \' id="even"\'?>>
<td>
<a href="<?=htmlspecialchars( $file );?>"><?=htmlspecialchars( $file );?></a> 
<td id="size" nowrap>
<?=$size;?>
<?
}
} else {?> 
<tr><td class="empty">
Каталог пуст
<?
}
?> 
<tr><td class="last" colspan="2">
<?=( is_array($files) ) ? \'<b>TEST</b>
\' : \'\'?> 
</table></body></html>
<?
//functions
function size2str( $size ) {
if ( $size >= 1048576 )
return round( $size / 1048576, 2) . \' MB\';
elseif ( $size >= 1024 )
return round( $size / 1024, 1) . \' KB\';
else
return $size . " B";
}
?>

9
Perl / gzip компрессия
« : 20 Октября 2005, 21:11:31 »

my $text = "dfs sd ksfh skjf sd fk kdjfh";
my $cmd = "echo \\"$text\\" | gzip -f";
my @response = `$cmd`;


типа по идее теперь элементы @response будут содержать вывод загзипованного содержимого $text

наверное коряво но вот только что сам придумал ))
можно еще на CPAN поискать

10
PHP / Удаленный INCLUDE
« : 20 Октября 2005, 21:01:55 »
если хочется извратов то можно так..
делаем на 2-м серваке fsockopen на нужный скрипт к примеру на a.php (он распологается на 1-м серваке) этот a.php выводит содержание нужного куска кода через echo, это пихается в переменную $value и потом делается eval($value)

но это путь извращенцев )

11
Поиск, изготовление скриптов и прочее... / Help !!!!!!!!!!!
« : 13 Октября 2005, 20:42:31 »
войти в админку и задать новый пароль.

12
Perl / запуск perl-сценария с параметрами
« : 13 Октября 2005, 20:36:29 »
я иногда использую модуль Getopt::Std
к примеру.
./scr.pl -a 1 -b 2
------------------

use Getopt::Std; 
getopt("ab");  
my $a=$opt_a;
 my $b=$opt_b;  
print "a=$a, b=$b\\n";

Страницы: [1]