Просьбы о написании скриптов на Php, Perl

PHP:

<?
$fopen = fopen('log.txt','a');
$spisok = 'файл_списка.txt';
$spisok = explode("\n", file_get_contents($spisok));
for($i=0;$i<count($spisok);$i++)
{
 $xost = explode('@',$spisok[$i]);
 fwrite($fopen,$xost[1]);
 fwrite($fopen,"\n");
}
fclose($fopen);
?>

 

нужен скрипт который менял бы напрмер в профиле аватар и юзербар с определенным интервалом,тоесть сегодня один авик,завтра другой,чтоб все авики брались с определенной папки)

 

кидаешь этот скрипт в папку с авиками и в папку с юзербарами, на папках должны быть права 777, и запускаешь их когда надо =)

PHP:

<?php
$files = glob('*');
$rnd=array_rand($files,count($files));

for($i=0;$i<count($files);$i++)
{
  rename($files[$i],'tmp_'.$files[$i]);
}

for($i=0;$i<count($files);$i++)
{
  rename('tmp_'.$files[$i],$files[$rnd[$i]]);
  echo $files[$i].'->'.$files[$rnd[$i]].'<br>';
}
?>

скрипт случайным образом поменяет у всех файлов между собой названия, и само собой в профиле картинки изменятся