OpenForum RSS: ��

�� (madskull)

Fri, 06 Jun 2008 08:33:33 GMT

>�� ? �� :
>software release 1.23
>��
>�� . � �� , ��
>�� .

�� . �� , �� - ��.
�� -�� . �� - �� .
�� -�� , � �� , �� , �� .
�� , � �� , � �� -��
perl -wlne '/Software release (.+?) / && print $1' file

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

�� (angra)

Fri, 06 Jun 2008 06:36:09 GMT

�� ? �� :
software release 1.23
�� . � �� , �� .
�� , �� -�� :
open F,"<a" or die $!;map {print "$1\n" if /software\s+release\s+([\d.]+)/i} <F>
�� :
open F,"<a" or die $!;foreach (<F>) {print "$1\n" if /[Ss]oftware\s+[Rr]elease\s+([\d.]+)/}
�� , �� /i.

�� (madskull)

Fri, 06 Jun 2008 06:17:15 GMT

��-�� -�� ...

open F,"<file" or die $!;
($_=join "",<F>)=~s/^.+software\s+release\s+(.+?)\s.+/$1/si;
print;

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

�� (andy)

Fri, 06 Jun 2008 02:52:21 GMT

[red@mail ~/dev/perl/re]$ ls -l
total 4
-rwxr-xr-x 1 red red 475 6 �� 10:43 on20080606
-rw-r--r-- 1 red red 163 6 �� 10:41 on20080606.txt
[red@mail ~/dev/perl/re]$
[red@mail ~/dev/perl/re]$ cat ./on20080606
#!/usr/bin/perl
use strict;
use warnings;
use vars qw( $text $release );
sub get_release($);

open(F, '<', 'on20080606.txt') or die($!); $text.= $_ while <F>; close(F);

if( defined( $release = get_release($text) ) ) {
printf "found release %s\n", $release;
} else {
printf "nothing found\n";
}

sub get_release($) {
my($text, $release);
$text = shift;
( $release ) = $text =~ / \b software \s+ release \s+ (\d[a-z0-9.]*) \b /gxis;
return $release;
}
[red@mail ~/dev/perl/re]$
[red@mail ~/dev/perl/re]$
[red@mail ~/dev/perl/re]$ cat ./on20080606.txt
<TD height="24" COLSPAN=1 align=right
background="imagesnavi/topbg3.gif" align="right" class="header">
DVD Rel. 20 - Software
release 11.Pre4</TD>
gfwd
[red@mail ~/dev/perl/re]$
[red@mail ~

�� (ALUM)

Thu, 05 Jun 2008 12:36:47 GMT

>[�� ]
>>
>>�� .
>>
>>�� :
>>
>> <TD height="24" COLSPAN=1 align=right background="imagesnavi/topbg3.gif" align="right" class="header">
>> DVD Rel. 20 - Software release 4.1.0 </TD>
>
>�� , �� release �� realese � ��
>�� :-)

�� , �� ӣ�, �� .

�� (vg)

Thu, 05 Jun 2008 12:11:04 GMT

>[�� ]
>>>�� , ��
>>
>>if ($Wget_epr=~m/Software\srealese\s([\d.]+)/) {
>> print "�� $1\n";
>>} else {
>> print "�� \n";
>>}
>>
>>---
>>� �� Perl -- �� :-)

man perlre

�� (Mil)

Thu, 05 Jun 2008 11:17:49 GMT

>[�� ]
>>
>>---
>>� �� Perl -- �� :-)
>
>�� .
>
>�� :
>
> <TD height="24" COLSPAN=1 align=right background="imagesnavi/topbg3.gif" align="right" class="header">
> DVD Rel. 20 - Software release 4.1.0 </TD>

�� , �� release �� realese � �� :-)

�� (ALUM)

Thu, 05 Jun 2008 09:41:24 GMT

>[�� ]
>>�� , ��
>
>if ($Wget_epr=~m/Software\srealese\s([\d.]+)/) {
> print "�� $1\n";
>} else {
> print "�� \n";
>}
>
>---
>� �� Perl -- �� :-)

�� .

�� :

<TD height="24" COLSPAN=1 align=right background="imagesnavi/topbg3.gif" align="right" class="header">
�DVD�Rel. 20 �-�Software release 4.1.0 �</TD>

�� (Mil)

Thu, 05 Jun 2008 09:29:51 GMT

>open FN, "$Epr_file_name" || die "�� !";
>foreach( <FN> )
>{ $Wget_epr .= $_; }
>close FN;
>
>�� $Wget_epr �� "Software realese 3.0.0" � ��
>�� .
>
>�� , ��

if ($Wget_epr=~m/Software\srealese\s([\d.]+)/) {
print "�� $1\n";
} else {
print "�� \n";
}

---
� �� Perl -- �� :-)

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

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

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

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

�������� ������ �� ����� (andy)

�������� ������ �� ����� (ALUM)

�������� ������ �� ����� (vg)

�������� ������ �� ����� (Mil)

�������� ������ �� ����� (ALUM)

�������� ������ �� ����� (Mil)

OpenForum RSS: ��

�� (madskull)

�� (angra)

�� (madskull)

�� (andy)

�� (ALUM)

�� (vg)

�� (Mil)

�� (ALUM)

�� (Mil)