OpenForum RSS: awk �� perl ?

awk �� perl ? (greenwar)

Sat, 29 May 2010 07:25:49 GMT

��, �� ݣ �� .. �� PHP �� Perl �� ^^
�� ?

<?php
$fp = fopen('text.txt', 'rt');
while (!feof($fp)) {
$str = fgets($fp);
for($i=0; $i<100; $i++) {
$pattern_str = rand(100, 1000);
preg_match_all('/'.$pattern_str.'/', $str, $out);
}
}
?>

� 3 �� , ��:

#!/usr/bin/perl -w

while(<>){ # �� . �� : time ./script textfile

for(0..99){ # �� 10� ��. � �� 10000 �� 100 �� 1000
$searchline=(int rand(901)+100); # �� : �� 100 �� 1000
$_=~/$searchline/g; # �� 1��
}
}

� �� ң�� 20-��

awk �� perl ? (greenwar)

Mon, 16 Nov 2009 09:09:23 GMT

>��, �� chomp, � �� chop, �� 1
>��

��.. ��

>>> $_ = substr( $_, index($_,':')+2 );
>>
>>� �� , �� 2 �� ? ��
>>� �� 2
>
>�� , ��
>��
>�.�. �� , ��

� index � �� ?

>>�� .. ��
>>:)
>>� �� , �� 3 �� .. ��
>>��
>
>7 �� 29 = 24%, ��
>� �� , � �� - ��

��, �� , �� , �� index � ��. �� , � �� ?
��

>>> if( ord($_) == 110 ) {
>>
>>�� : /: \D+$/
>
>��, ��

awk �� perl ? (Vladin)

Sun, 15 Nov 2009 13:48:47 GMT

>> chop;
>
>�� , �� -��
>�� (chomp)

��, �� chomp, � �� chop, �� 1 ��

>> $_ = substr( $_, index($_,':')+2 );
>
>� �� , �� 2 �� ? ��
>� �� 2

�� , ��
�.�. �� , ��

>�� .. ��
>:)
>� �� , �� 3 �� .. ��
>��

7 �� 29 = 24%, ��
� �� , � �� - ��

>> if( ord($_) == 110 ) {
>
>�� : /: \D+$/

��, �� 'n'
�� , �� string[0] == 'n'

awk �� perl ? (greenwar)

Sun, 15 Nov 2009 12:26:30 GMT

>[�� ]
>open(NEW,">outfile");
>while(<FH>){
> chop;
> $_ = substr( $_, index($_,':')+2 );
> if( ord($_) == 110 ) {
> print NEW "\n$_";
> next;
> }
> print NEW ":$_";
>}

ޣ-�� ..

> chop;

�� , �� -��
�� (chomp)

> $_ = substr( $_, index($_,':')+2 );

� �� , �� 2 �� ? �� 2

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

> if( ord($_) == 110 ) {

�� : /: \D+$/

awk �� perl ? (Vladin)

Sat, 14 Nov 2009 19:52:38 GMT

+1
��
� �� 300� ��
awk: 1 �� 40 ��
perl: 29 ��

�� : 22 ��

open(FH,"infile");
open(NEW,">outfile");
while(<FH>){
chop;
$_ = substr( $_, index($_,':')+2 );
if( ord($_) == 110 ) {
print NEW "\n$_";
next;
}
print NEW ":$_";
}

awk �� perl ? (Pahanivo)

Wed, 11 Nov 2009 11:03:57 GMT

>>�� , �� , �� , �� , �� ,
>>�� , �� , � ��
>
>� �� . � awk ��
>��, � perl �� .
>
>PS: �� (flex) ��ģ� �� ))

� � �� regex ��?

awk �� perl ? (svn)

Wed, 11 Nov 2009 08:33:18 GMT

>�� , �� , �� , �� , �� ,
>�� , �� , � ��

� �� . � awk �� , � perl �� .

PS: �� (flex) ��ģ� �� ))

awk �� perl ? (greenwar)

Wed, 11 Nov 2009 07:19:18 GMT

>��.

�� .. �� 0

>- �� $ � �� regexp � \d+ �� \d+?.

� �� .. �� 3 ��
�� , �� + * �� , �� , � � ? �� . �� $ �� , � ��
��, �� 2

>� �� 400M �� :

��.. ��, ��
+�� , � �� SMP

>�� , � �� C.

�� , �� , �� , �� , �� , �� , �� , � ��

awk �� perl ? (ACCA)

Wed, 11 Nov 2009 04:27:40 GMT

>..�� ݣ �� ̣��?

��. �� ݣ ��
[CODE]
#!/usr/bin/perl -w

while(<>){
if(/: (network\d+)/){print "\n$1";next}
/: (\d+)/;print ":$1"
}
[/CODE]

- �� $ � �� regexp � \d+ �� \d+?.

� �� 400M �� :

[CODE]
$ time ./counter.pl datafile.txt > /dev/null

real0m26.809s
user0m26.510s
sys0m0.290s

$ time awk -F': *' ' { r = r ? r ":" $2 : $2 } /^Failed RADIUS Accounting procedures/{ print r; r = 0 }' datafile.txt > /dev/null

real0m54.194s
user0m53.950s
sys0m0.240s

$ uname -a
Linux hostname 2.6.31-14-generic #48-Ubuntu SMP Fri Oct 16 14:05:01 UTC 2009 x86_64 GNU/Linux
$ awk --version
GNU Awk 3.1.6
$ perl --version
This is perl, v5.10.0 built for x86_64-linux-gnu-thread-multi

[/CODE]

�� , � �� C.

OpenForum RSS: awk ������� perl ?

awk ������� perl ? (greenwar)

awk ������� perl ? (greenwar)

awk ������� perl ? (Vladin)

awk ������� perl ? (greenwar)

awk ������� perl ? (Vladin)

awk ������� perl ? (Pahanivo)

awk ������� perl ? (svn)

awk ������� perl ? (greenwar)

awk ������� perl ? (ACCA)

OpenForum RSS: awk �� perl ?

awk �� perl ? (greenwar)

awk �� perl ? (greenwar)

awk �� perl ? (Vladin)

awk �� perl ? (greenwar)

awk �� perl ? (Vladin)

awk �� perl ? (Pahanivo)

awk �� perl ? (svn)

awk �� perl ? (greenwar)

awk �� perl ? (ACCA)