ВнизCyber Ghost: Perl
Cyber Ghost 25 янв 2009 16:29 Изменен 31 дек 2009 01:19 Редактировать Ссылка на этот пост |
Сюда буду постить перловые скрипты=) |
|
Cyber Ghost 08 фев 2009 06:57 Изменен 28 апр 2009 08:47 Редактировать Ссылка на этот пост |
Морс выкладываю для тебя =)
Perl. Copy Flash Perl #!/usr/bin/perl -w# # Где ищем # Тип файла "0""0""/home/cyber/Scripts/""flash""$dir/$_""$_ ""cp ’$_’ $directory/" |
MoRS 10 фев 2009 20:36 Редактировать Ссылка на этот пост |
Ага, пасиб Киб) |
|
MoRS 19 фев 2009 16:29 Изменен 22 фев 2009 19:02 Редактировать Ссылка на этот пост |
В /media может быть много томов подключено.. Предлагаю тебе доработать еще, чтобы например брать из .hal-mtab грепом на vfat название конкретного тома (в случае флешки). |
|
Cyber Ghost 04 апр 2009 04:24 Редактировать Ссылка на этот пост |
А с чего это вдруг в /media будет много томов? там только флэшки карты да диски=))))) Только ненормальный псих будет монтировать что-либо в /media, а не в /mnt =)))))))))) |
|
MoRS 17 апр 2009 17:26 Редактировать Ссылка на этот пост |
а это ты девелоперам asp что на 7 федоре сделан скажи)) нтфс диски монтируюцца именно туда) |
|
Cyber Ghost 02 мая 2009 13:42 Изменен 04 мая 2009 10:48 Редактировать Ссылка на этот пост |
Морс я сделал скрипт =)))) Напильником сам доработаешь, там все понятно! Если какие вопросы пиши =)))) Perl #!/usr/bin/perl -w # "test.log""Dublicate\n""No dublicate\n"">>test.log""$chkline\n""Line $chkline add into log file\n"; } |
|
Cyber Ghost 03 мая 2009 06:36 Изменен 12 мая 2009 11:28 Редактировать Ссылка на этот пост |
еще один вариант уже более красивый Perl #!/usr/bin/perl -w # "test.log""Dublicate\n"">>test.log""$chkline\n""Line $chkline add into log file\n"; } |
|
MoRS 12 мая 2009 09:39 Изменен 12 мая 2009 09:41 Редактировать Ссылка на этот пост |
Киб, потестил..В консоли работает. Запихал в сниф, заменил STDIN на переменную, в которой храницца очередная выдача. В лог постоянно пишет одну и ту же строку, причем первую которая отснифалась.. остальные не пишет. То что они в логе одинаковые ему тоже пох.. |
|
MoRS 12 мая 2009 11:03 Изменен 12 мая 2009 11:04 Редактировать Ссылка на этот пост |
Потести вот так, все поймеш. Это имитация цикла в снифе (вместо stdin там подставляецца переменая)
Perl #!/usr/bin/perl -w # "test.log""Dublicate\n"">>test.log""$chkline\n""Line $chkline add into log file\n"; } } |
|
Cyber Ghost 12 мая 2009 11:28 Изменен 12 мая 2009 11:29 Редактировать Ссылка на этот пост |
Вот так пробуй!
Perl #!/usr/bin/perl -w "test.log""Dublicate\n"">>test.log""$chkline\n""Line $chkline add into log file\n"; } |
|
MoRS 12 мая 2009 11:36 Редактировать Ссылка на этот пост |
оно)) |
|
Cyber Ghost 12 мая 2009 16:31 Редактировать Ссылка на этот пост |
А то =))))) делов то поменять строчки местами=)))) |
|
Cyber Ghost 30 дек 2009 13:33 Изменен 30 дек 2009 13:36 Редактировать Ссылка на этот пост |
-100 с горы и стакан красного
Perl #!/usr/bin/perl -w # "$file"">>result.log""$host$data[$i] $status\n""\n\n" |
|
MoRS 30 дек 2009 13:34 Редактировать Ссылка на этот пост |
годицца |
phasma 31 дек 2009 01: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 |
Новое сообщение
НаверхСтраницы 1