OpenForum RSS: ��

�� (Pahanivo)

Sat, 23 Oct 2010 21:40:00 GMT

�� ))
�� ))

�� (ACCA)

Fri, 22 Oct 2010 19:31:01 GMT

> open(TESTFILE, "Z:/home/test1.ru/www/in2.txt");
> $i=0;

1. �� open � �� . �� Basic

> while(<TESTFILE>) {
> $text= $_;
> if ($text=~/(\w+):(\S+):(\w+):(\w+)::(\S+)::/)

2. �� , ��

> $user=$1;
> $passwd=$2;

[...]

3. ��

> $strings[2*$i]=$user;
> $strings[2*$i+1]=$passwd; #passwd

4. �� .

��:

#!/usr/bin/perl -w
use strict;
my (@fld,@strings);

while (<>) {
@fld = split /:/;
# �� @fld[0,1]
push @strings, @fld[0,1];
}

�� script.pl < in2.txt

�� (lepa)

Fri, 15 Oct 2010 21:46:48 GMT

($v1, $v2, $v3) = split(":", $_)

�� , �� .

�� (Pahanivo)

Fri, 15 Oct 2010 15:28:53 GMT

�� ? )

�� (PavelR)

Fri, 15 Oct 2010 15:26:40 GMT

>[�� ]
> $i++;
> }
> �� in2.txt
> it:555e283e36d46da2e6caa4bf306e05f5:fdfd:fdfdf:dsdsds::
> 123:a43c006e3cfca6b385a80e3769fdda87:11:1:234::
> �� $user = it ��
> it:555e283e36d46da2e6caa4bf306e05f5:fdfd:fdfdf:dsdsds::
> it:555e283e36d46da2e6caa4bf306e05f5:fdfd:fdfdf:dsdsds::
> �� , � ��
> �� it ???

�� . �� .

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

�������� ���������� ������� � ���������� (Pahanivo)

�������� ���������� ������� � ���������� (ACCA)

�������� ���������� ������� � ���������� (lepa)

�������� ���������� ������� � ���������� (Pahanivo)

�������� ���������� ������� � ���������� (PavelR)

OpenForum RSS: ��

�� (Pahanivo)

�� (ACCA)

�� (lepa)

�� (Pahanivo)

�� (PavelR)