Рекурсивные перекодировка из WINDOWS-1251 в UTF-8 – perl
Как оказалось все старые сайты в виндозной кодировке, поэтому пришлось ещё написать скрипт который переводит в utf-8)))
Опять же на перле
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950#!/usr/bin/perl
use warnings;
use strict;
use Text::Iconv;
my $converter = Text::Iconv->new("CP1251","UTF-8");
my @EXT = qw (html htm shtml txt);
push(my @DIR, $ARGV[0]);
foreach my $DIR (@DIR)
{
[...]
Создать sitemap – скрипт на perl
Я наал штамповать сайты 1 в сутки и ессно нужно создавать к ним sitemap для ьыстрейшего индексирования ну и вообще это по правилам уже, руками не создашь ессно для 1000 страниц, поэтому пришлось прибегнуть к знаниям перла и написать скрипт который обходит рекурсвино указанную иректорию и оздаёт sitemap
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566#!/usr/bin/perl
use warnings;
use strict;
my [...]
О том как совместили регулярки – regexp PERL и С++
Вот уже больше двух недель два программера: я и ещё один работаем над страшный проектом от кторого самым становится жутко шутко!
Один – программист на С++, второй на PERL, и вот очень сложно дург друга понимать потому что хоть PERL и С подобный язык, но он скорее для программистов-анархистов, котоые любят свободу во всём, [...]
Интересная программка на perl
Я только что сгенил этот код, и сам же поржал))))))
12345678910#!/usr/bin/perl
use warnings;
use strict;
my $money = 0;
while($money < 0)
{
work();
}
И сам же потом поржал)
uTracker – поиск по торрент трекерам
Информеры
