OpenForum RSS: �� : �� Perl ��

�� Perl �� (Dan)

Sat, 22 Oct 2016 22:46:48 GMT

�� \s ��-�� \t.

�� Perl �� (Thekostya)

Tue, 05 Dec 2006 15:55:32 GMT

> �� s/^[\s\t]+/g

� g � �� ? :)

�� Perl �� (Skif)

Fri, 24 Dec 2004 15:20:58 GMT

�� s/^[\s\t]+/g
�� /��, �� .

�� Perl �� (Maxim Chirkov)

Sat, 16 Oct 2004 18:23:49 GMT

�� .
s/^\s*//;$str =~ s/\s*$//; �� (�� 50 ��).
$str =~ s/^\s*(.*?)\s*$/$1/;' - �� .

$str =~ s/^\s*//;$str =~ s/^(.*[^\s])\s*$/$1/; - �� , �� .

�� :

#!/usr/bin/perl
use strict;
use Benchmark;

timethese(100000,
{
test1 => 'my $str=" test "; $str =~ s/^\s*([^\s]?.*)$/$1/;$str =~ s/^(.*[^\s])\s*$/$1/;',
test2 => 'my $str=" test "; $str =~ s/^\s*//;$str =~ s/\s*$//;',
test3 => 'my $str=" test "; $str =~ s/^\s*(.*?)\s*$/$1/;',
test4 => 'my $str=" test "; $str =~ s/^\s*//;$str =~ s/^(.*[^\s])\s*$/$1/;'
}
);

�� Perl �� (B.O.B.A.H.)

Thu, 14 Oct 2004 06:34:24 GMT

� �� ?
s/^\ *// # ��
s/^\s*// # ��

OpenForum RSS: ������ �������� �������: ��� � Perl �������� � ������ ���������� �������

��� � Perl �������� � ������ ���������� ������� (Dan)

��� � Perl �������� � ������ ���������� ������� (Thekostya)

��� � Perl �������� � ������ ���������� ������� (Skif)