Случайная fork бомба


ramok аватар

ramok - Posted on 29 Январь 2015

Делал простенький скрипт для преобразования ссылок с ютуба к нормальному виду. Команды замены взял из своих настроек urxvt в ~/.Xresources (в нём есть встроенный perl интерпретатор), сделав простенькую обвязку на perl

#/usr/bin/perl -CS 
 
$_ = $ARGV[0];
 
goto END if s,^(https?://(?:www\.)?youtube\.com/)[^ \n]*v[=\\/]([A-Za-z0-9_-]{11}).+?(t=\d+)[^ \n]*,$1watch?v=$2#$3$4,;
goto END if s,^(https?://(?:www\.)?youtube\.com/)[^ \n]*v[=\\/]([A-Za-z0-9_-]{11}).*,$1watch?v=$2,;
goto END if s,^https?://(?:www\.)?(?:youtu\.be/)([A-Za-z0-9_-]{11})$,http://www.youtube.com/watch?v=$1,;
goto END if s,^(https?://(?:www\.)?youtube\.com/)embed/([A-Za-z0-9_-]{11})[^ \n]*,$1watch?v=$2,;
 
exit;
 
END:
    print;

Внезапно всё начало тормозить. htop показал что скрипт воспроизводит себя с бешеной скоростью. Предлагаю сначала самостоятельно догадаться в чем дело :)

P.S.
Будьте осторожны с запуском. Предохраняйтесь :)

UPDATE:
1. в первой строчке после # был пропущен !. Посему скрипт запускался как sh скрипт
2. третья строчка начинается с $_, где в sh хранится последняя запущенная команда. В данном случае - имя скрипта
3. ...
4. PROFIT! ;)

0
Ваша оценка: Ничего
..

Отправить комментарий

Google Friend Connect (leave a quick comment)
loading...
Содержание этого поля является приватным и не предназначено к показу.