OpenForum RSS: �� perl

�� perl (from_mars)

Mon, 31 Mar 2008 06:38:01 GMT

>� �� , �� ...

��, �� :)

�� perl (angra)

Mon, 31 Mar 2008 05:17:55 GMT

� �� , �� ? �� , �� , �� *. �� :
perl -ane 's/(?<=\*)\*/./g;print'

�� perl (Arpo)

Mon, 31 Mar 2008 04:35:00 GMT

>[�� ]
>
>var
> s: string;
> i: integer;
>begin
> s := '*********';
> for i:=1 to length(s) do
> if i <> 1 then s[i] = '.';
> writeln(s);
>end.

� �� ??

�� perl (from_mars)

Mon, 31 Mar 2008 02:17:47 GMT

�� perl, �� pascal?
�� :

var
s: string;
i: integer;
begin
s := '*********';
for i:=1 to length(s) do
if i <> 1 then s[i] = '.';
writeln(s);
end.

�� perl (madskull)

Mon, 24 Mar 2008 08:50:28 GMT

>[�� ]
>>>�� (!!!) �� , �� .
>>>�� , � ��
>>>�� . �� .
>>
>>$a="********************";
>>$a=~s/(\*)(\*+)/$1 . "." x length($2)/e;
>>print $a;
>
>�� , �� :
>echo '*********' |perl -ne 's/^*(\*+)/"*"."."x(length($1))/e;print'

�� , �� ... �� :)

�� perl (madskull)

Mon, 24 Mar 2008 08:49:03 GMT

>>�� :
>>�� n �� (��) *********. �� Perl, ��
>>�� (!!!) �� , �� .
>>�� , � ��
>>�� . �� .
>
>$a="********************";
>$a=~s/(\*)(\*+)/$1 . "." x length($2)/e;
>print $a;

�� , �� :
echo '*********' |perl -ne 's/^*(\*+)/"*"."."x(length($1))/e;print'

�� perl (amkir)

Fri, 21 Mar 2008 09:02:42 GMT

>�� :
>�� n �� (��) *********. �� Perl, ��
>�� (!!!) �� , �� .
>�� , � ��
>�� . �� .

$a="********************";
$a=~s/(\*)(\*+)/$1 . "." x length($2)/e;
print $a;

�� perl (idle)

Fri, 21 Mar 2008 08:31:11 GMT

>[�� ]
>>
>>$myline =~ s/*+/*\./;
>>
>>menyayem vse ******** na *.
>
>�� :
>#echo "******" | perl -p -e 's/\*+/*./;'
>*.
>
>�� (*), �� (.)

�� .
echo "****" | perl -ane 's/(?<=\*)\*/./g;print'

�� perl (kapitonz)

Fri, 21 Mar 2008 08:18:26 GMT

>>�� :
>>�� n �� (��) *********. �� Perl, ��
>>�� (!!!) �� , �� .
>>�� , � ��
>>�� . �� .
>
>s/\*+/*./;

�� , ��.

#echo "******" | perl -p -e 's/\*+/*./;'
*.

�� .
�� :
*.....

OpenForum RSS: �������� � ���������� ���������� �� perl

�������� � ���������� ���������� �� perl (from_mars)

�������� � ���������� ���������� �� perl (angra)

�������� � ���������� ���������� �� perl (Arpo)

�������� � ���������� ���������� �� perl (from_mars)

�������� � ���������� ���������� �� perl (madskull)

�������� � ���������� ���������� �� perl (madskull)

�������� � ���������� ���������� �� perl (amkir)

�������� � ���������� ���������� �� perl (idle)

�������� � ���������� ���������� �� perl (kapitonz)

OpenForum RSS: �� perl

�� perl (from_mars)

�� perl (angra)

�� perl (Arpo)

�� perl (from_mars)

�� perl (madskull)

�� perl (madskull)

�� perl (amkir)

�� perl (idle)

�� perl (kapitonz)