23 строки для понимания memory leak в perl
#!/usr/bin/perl -w use strict; use Term::ANSIColor; if (defined ($ARGV[0]) && $ARGV[0]!~/[0-9]+/){ print color 'reset';
#!/usr/bin/perl -w use strict; use Term::ANSIColor; if (defined ($ARGV[0]) && $ARGV[0]!~/[0-9]+/){ print color 'reset';
Набросал вчера скрипт, который парсит один сайт с проксиками и выдёргивает из него адреса — столько, сколько есть на всех страницах. Думал аськи побрутить. А потом совесть замучила. И что теперь с этими проксиками делать =)