Заходи заходи
Имя

Пароль



Регистрация
Сейчас в чате 0
никого нет
Их боялся Флинт
Модеры:
Orkana Джа Cyber_Ghost zl0l

Админы:
del Tёмный DreamX MoRS
Бесполезные линки

Valid XHTML 1.0 Transitional

Cyber Ghost: Perl
Cyber Ghost
pic
25 янв 2009 19:29
Изменен 31 дек 2009 04:19
Редактировать
Ссылка на этот пост

 
Сюда буду постить перловые скрипты=)
 
Cyber Ghost
pic
08 фев 2009 09:57
Изменен 28 апр 2009 12:47
Редактировать
Ссылка на этот пост
Морс выкладываю для тебя =)
 
Perl. Copy Flash
 
Perl
#!/usr/bin/perl -w
#
my $dir=’/media/’; # Где ищем
my $idx_ext=’.jpg’; # Тип файла
 
my @curtime = localtime;
my $day=$curtime[3];
my $month=$curtime[4]+1;
my $year=$curtime[5]+1900;
my $hour=$curtime[2];
my $min=$curtime[1];
my $sec=$curtime[0];
 
if ($day<=9){$day="0".$day}
if ($month<=9){$month="0".$month}
 
my $home="/home/cyber/Scripts/";
my $directory=$home."flash".$year.$month.$day.$hour.$min.$sec;
mkdir $directory;
 
&recur($dir);
 
sub recur
{
my $dir = shift;
opendir DIR, $dir or return;
my @contents = map "$dir/$_", sort grep !/^..?$/, readdir DIR;
closedir DIR;
foreach (@contents)
{
if(!/cdrom/)
{
if (!-l && -d)
{
recur($_);
}
else
{
if ($_ =~ /$idx_ext$/i)
{
print "$_
"
;
system("cp ’$_’ $directory/");
}
else
{
next;
}
}
}
}
}

 
MoRS
pic
10 фев 2009 23:36

Редактировать
Ссылка на этот пост

Ага, пасиб Киб)
MoRS
pic
19 фев 2009 19:29
Изменен 22 фев 2009 22:02
Редактировать
Ссылка на этот пост

В /media может быть много томов подключено..
Предлагаю тебе доработать еще, чтобы например брать из .hal-mtab грепом на vfat название конкретного тома (в случае флешки).
Cyber Ghost
pic
04 апр 2009 08:24

Редактировать
Ссылка на этот пост

А с чего это вдруг в /media будет много томов? там только флэшки карты да диски=)))))  Только ненормальный псих будет монтировать что-либо в /media, а не в /mnt =))))))))))
MoRS
pic
17 апр 2009 21:26

Редактировать
Ссылка на этот пост

а это ты девелоперам asp что на 7 федоре сделан скажи)) нтфс диски монтируюцца именно туда)
Cyber Ghost
pic
02 мая 2009 17:42
Изменен 04 мая 2009 14:48
Редактировать
Ссылка на этот пост
Морс я сделал скрипт =)))) Напильником сам доработаешь, там все понятно! Если какие вопросы пиши =))))
Perl

#!/usr/bin/perl -w
#
use strict;
open(LOG,"test.log") or die;
my @data=<LOG>;
close(LOG);
my $array=scalar(@data);
my $chkline=<STDIN>;
chomp $chkline;
my $count=0;
for(my $i=0;$i<@data;$i++)
        {
        my $line=$data[$i];
        chomp $line;
        if ($chkline eq $line)
                {
                print "Dublicate\n";
                last;
                }
        else
                {
                $count++;
                print "No dublicate\n";
                next;
                }
        }
if ($count==$array)
        {
        open(LOG, ">>test.log") or die;
        print LOG "$chkline\n";
        close (LOG);
        print "Line $chkline add into log file\n";
        }       
 
Cyber Ghost
pic
03 мая 2009 10:36
Изменен 12 мая 2009 15:28
Редактировать
Ссылка на этот пост
еще один вариант уже более красивый
Perl

#!/usr/bin/perl -w
#
use strict;
open(LOG,"test.log") or die;
my @data=<LOG>;
close(LOG);
my $chkline=<STDIN>;
chomp $chkline;
&check;
 
sub check
{
for(my $i=0;$i<@data;$i++)
{
my $line=$data[$i];
chomp $line;
if ($chkline eq $line)
{
print "Dublicate\n";
return;
}
}
open(LOG, ">>test.log") or die;
print LOG "$chkline\n";
close (LOG);
print "Line $chkline add into log file\n";
}
 
MoRS
pic
12 мая 2009 13:39
Изменен 12 мая 2009 13:41
Редактировать
Ссылка на этот пост
Киб, потестил..В консоли работает.
Запихал в сниф, заменил STDIN на переменную, в которой храницца очередная выдача. В лог постоянно пишет одну и ту же строку, причем первую которая отснифалась.. остальные не пишет. То что они в логе одинаковые ему тоже пох..
MoRS
pic
12 мая 2009 15:03
Изменен 12 мая 2009 15:04
Редактировать
Ссылка на этот пост
Потести вот так, все поймеш. Это имитация цикла в снифе (вместо stdin там подставляецца переменая)
 
Perl

#!/usr/bin/perl -w
#
use strict;
 
while (1){
 
open(LOG,"test.log") or die;
my @data=<LOG>;
close(LOG);
my $chkline=<STDIN>;
chomp $chkline;
&check;
 
sub check
{
for(my $i=0;$i<@data;$i++)
{
my $line=$data[$i];
chomp $line;
if ($chkline eq $line)
{
print "Dublicate\n";
return;
}
}
open(LOG, ">>test.log") or die;
print LOG "$chkline\n";
close (LOG);
print "Line $chkline add into log file\n";
}
 
}
 
Cyber Ghost
pic
12 мая 2009 15:28
Изменен 12 мая 2009 15:29
Редактировать
Ссылка на этот пост
Вот так пробуй!
 
Perl

#!/usr/bin/perl -w
 
use strict;
 
my $chkline;
my @data;
 
while (1){
open(LOG,"test.log") or die;
@data=<LOG>;
close(LOG);
&addline;
 
}
sub addline{
$chkline=<STDIN>;
chomp $chkline;
&check;
 
}
sub check
{
for(my $i=0;$i<@data;$i++)
{
my $line=$data[$i];
chomp $line;
if ($chkline eq $line)
{
print "Dublicate\n";
return;
}
}
open(LOG, ">>test.log") or die;
print LOG "$chkline\n";
close (LOG);
print "Line $chkline add into log file\n";
}
 
 
Cyber Ghost
pic
12 мая 2009 20:31

Редактировать
Ссылка на этот пост
А то =))))) делов то поменять строчки местами=))))
Cyber Ghost
pic
30 дек 2009 16:33
Изменен 30 дек 2009 16:36
Редактировать
Ссылка на этот пост
-100 с горы и стакан красного
 

Perl

#!/usr/bin/perl -w
#
use LWP::UserAgent;
 
my ($file) = @ARGV;
open(DATA, "$file");
@data=<DATA>;
close(DATA);
 

open (RESULT, ">>result.log");
for($i=0;$i<@data;$i++)
{
chomp $data[$i];
my $ua = LWP::UserAgent -> new() or die $@;
my $response = $ua ->get($data[$i]);
my $status=$response->status_line;
print RESULT "$host$data[$i] $status\n";
}
print RESULT "\n\n";
close RESULT;
 
phasma
pic
31 дек 2009 04:19

Редактировать
Ссылка на этот пост
Text
#!/bin/bash
 
if [ ! -e $1 ]; then
        echo "Please, specify URL list"
else
        if [ $# -ne 2 ]; then
                echo "Please, specify referer"
        else
 
                for _URL in $( cat $1); do
                        wget -O - --user-agent="Mozilla/5.0 (Windows; U; Windows NT 6.1; es-AR; rv:1.9.1.6) Gecko/20091201 Firefox/3.5.6" --referer="$2" $_URL
                done
 
        fi
fi
Новое сообщение