Форум dkLab и Denwer
Здесь общаются Web-разработчики.
Генеральный спонсор:
Хостинг «Джино»

немного функций (Bolt)
Author Message
Bolt
Участник форума



Joined: 05 Apr 2003
Posts: 129
Карма: 0
   поощрить/наказать

Location: Киев

PostPosted: Mon Aug 18, 2003 10:20 am ()
   Post subject: немного функций
Reply with quote

тогда делюсь. ,) Как и обещал. Вот несколько:
Code (perl): скопировать код в буфер обмена
#
sub chdel {my $chdel_mem=shift (www.perldoc.com/perl5.6/pod/func/shift.html); $chdel_mem=~ s (www.perldoc.com/perl5.6/pod/func/s.html)/[\x0D\x0A]//g; return (www.perldoc.com/perl5.6/pod/func/return.html) $chdel_mem}
#
#
#
sub esc2str {
my ($escstr,$escsumb) = @_; $escstr =~ s (www.perldoc.com/perl5.6/pod/func/s.html)/\+/$escsumb\20/g;
$escstr =~ s (www.perldoc.com/perl5.6/pod/func/s.html)/$escsumb([0-9a-fA-F]{2})/pack (www.perldoc.com/perl5.6/pod/func/pack.html)("c",hex (www.perldoc.com/perl5.6/pod/func/hex.html)($1))/ge; return (www.perldoc.com/perl5.6/pod/func/return.html) $escstr;
}

sub str2esc {
my ($escstr,$escsumb) = @_; $escstr =~ s (www.perldoc.com/perl5.6/pod/func/s.html)/(.)/(unpack (www.perldoc.com/perl5.6/pod/func/unpack.html) ("H*",$1))/ge;
$escstr =~ s (www.perldoc.com/perl5.6/pod/func/s.html)/(..)/$escsumb$1/g; return (www.perldoc.com/perl5.6/pod/func/return.html) $escstr;
}
#
sub proLinker{
        my $text = shift (www.perldoc.com/perl5.6/pod/func/shift.html);
        $text =~ s (www.perldoc.com/perl5.6/pod/func/s.html)~([^\w\"\=\[\]]|[\A\n\b])\\*(\w+://[^<>\s\n\"\]\[]+)~$1<a href="$2" target="_blank">$2</a>~isg;
        $text =~ s~([^\"\=\[\]/\:]|[\A\n\b])\\*(www\.[^<>\s\n\]\[]+)~$1<a href="
http://$2" target="_blank">$2</a>~isg;
        $text =~ s~([^\f\"\=\[\]]|[\A\n\b])\\*(\f+://[^<>\s\n\"\]\[]+)~$1<a href="
$2" target="_blank">$2</a>~isg;
        $text =~ s~([^\"\=\[\]/\:]|[\A\n\b])\\*(ftp\.[^<>\s\n\]\[]+)~$1<a href="
ftp://$2" target="_blank">$2</a>~isg;
        $text =~ s~(\S+?)\@(\S+)~<a href="
mailto:$1\@$2">$1\@$2</a>~isg;
return $text;
}
#
sub htmlEncode {
        my $text = shift;

        $text =~ s!&!&!g;
        $text =~ s!>!&!g;
        $text =~ s!<!&!g;
        $text =~ s!\"!&!g;

return $text;
}
# HTML:
sub unHTML {
        my $text = shift;
        my %ENT=('<'=>'lt','>'=>'gt','"
'=>'quot');
        $text =~ s!([<>"])!&$ENT{$1};!g;
        $text =~ s|<!--|<!--|g;
        $text =~ s|-->|-->|g;
        $text =~ s|<script>|<script>|ig;
        $text =~ s|  | &|g;   
        $text =~ s|^\$+$|$|g;         
        $text =~ s|\@|@|g;             
        $text =~ s!\|!|!g;
        $text =~ s|\{|{|g;     
        $text =~ s|\}|}|g;       
        $text =~ s|\\,|,|g;
        $text =~ s|\~|~|g;     
        $text =~ s|'
|'|g;
        $text =~ s|\n|<br>|g;         
        $text =~ s|\s+$||g;       
        $text =~ s|\$|$|g;
        $text =~ s|\r||g;             
        $text =~ s!\\!\!g;

return $text;
}
вот, наверное и все пока. Это, можно сказать, часть I.
Back to top
View user's profile Send private message Send e-mail
Enilatiar
Участник форума



Joined: 09 Jun 2003
Posts: 690
Карма: 24
   поощрить/наказать


PostPosted: Mon Aug 18, 2003 1:40 pm (спустя 3 часа 20 минут)
   Post subject:
Reply with quote

Лучше в виде приаттаченного файла. Ибо не факт, что все отображется так, как задумано.
Bolt wrote:
$text =~ s|-->|-->|g;
Back to top
View user's profile Send private message
Bolt
Участник форума



Joined: 05 Apr 2003
Posts: 129
Карма: 0
   поощрить/наказать

Location: Киев

PostPosted: Mon Aug 18, 2003 1:45 pm (спустя 5 минут)
   Post subject:
Reply with quote

Enilatiar:
ага, согласен. пересмотрел код - действительно «не факт». Вернее факт, «что все отображется не так, как задумано».
Back to top
View user's profile Send private message Send e-mail
Дмитрий Котеров
Администратор



Joined: 10 Mar 2003
Posts: 13665
Карма: 412
   поощрить/наказать


PostPosted: Mon Aug 18, 2003 2:03 pm (спустя 18 минут)
   Post subject:
Reply with quote

Глюки в форуме исправим.
Back to top
View user's profile Send private message Send e-mail
Андрей Анатольич (Venom)
Участник форума



Joined: 02 Sep 2003
Posts: 28
Карма: 4
   поощрить/наказать

Location: Екатеринбург

PostPosted: Tue Sep 02, 2003 12:57 am (спустя 14 дней 10 часов 54 минуты)
   Post subject:
Reply with quote

$text =~ s~([^\w\"\=\[\]]|[\A\n\b])\\*(\w+://[^<>\s\n\"\]\[]+)~$1<a href="$2" target="_blank">$2</a>~isg;

Ключ i лучше не писать - ибо медленно. Лучше использовать символьные классы там, где необходимо.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic All times are GMT + 3 Hours
Page 1 of 1    Email to a Friend.
You cannot post new topics in this forum. You cannot reply to topics in this forum. You cannot edit your posts in this forum. You cannot delete your posts in this forum. You cannot vote in polls in this forum. You cannot attach files in this forum. You can download files in this forum.
XML