22.02.2008, 22:03
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
Сообщение от bul.666
PHP код:
#!/usr/bin/perl
open(DATAFILE, "scr/page.html") || die "Cannot open DATAFILE";
while(defined($file = <DATAFILE>))
{
if($file=~m%(<A>(.*)</A>)%igs)
{
$file=~s%(<A>(.*)</A>)%%igs;
print "Result: $2";
}
}
PHP код:
#!/usr/bin/perl -w #вроде этот ключ исправляет некоторые ошибки в коде
open(DATAFILE, "scr/page.html") || die "Cannot open DATAFILE";
while(<DATAFILE>)
{
if(m/<A>(.+)<(backslash)/A>/igs)
{
s/<A>(.+)<(backslash)/A>/igs;
print "Result: ".$_;
}
}
close(DATAFILE);
^^
|
|
|