Рекурсивные перекодировка из 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]); [...]
Создать sitemap – скрипт на perl
Я наал штамповать сайты 1 в сутки и ессно нужно создавать к ним sitemap для ьыстрейшего индексирования ну и вообще это по правилам уже, руками не создашь ессно для 1000 страниц, поэтому пришлось прибегнуть к знаниям перла и написать скрипт который обходит рекурсвино указанную иректорию и оздаёт sitemap 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566#!/usr/bin/perl use warnings; use strict; [...]
О том как совместили регулярки – regexp PERL и С++
Вот уже больше двух недель два программера: я и ещё один работаем над страшный проектом от кторого самым становится жутко шутко! Один – программист на С++, второй на PERL, и вот очень сложно дург друга понимать потому что хоть PERL и С подобный язык, но он скорее для программистов-анархистов, котоые любят свободу во всём, даже [...]
Интересная программка на perl
Я только что сгенил этот код, и сам же поржал)))))) 12345678910#!/usr/bin/perl use warnings; use strict; my $money = 0; while($money < 0) { work(); } И сам же потом поржал)
Информеры
