[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 ~/dev/perl/re]$ ./on20080606
found release 11.Pre4
[red@mail ~/dev/perl/re]$
>а вообще Perl -- зло :-)
любой инструмент или неудобен или опасен, если не читать мануалы к нему (ни к кому лично фраза не относится, просто комментарий)
Вариант для распечатки
WEB технологии (Public)
on 05-Июн-08, 13:10 
