Регулярные выражения

не подскажете как сделать чтобы скрипт пропарсил файл и вывел все строки в
которых содержится
255.255.255.255|http://
255.255.255.255|https://

ип динамические,
на пхп скрипт написал, но он падает, фалы сильно большие 100-150 метров

или на сях под никсы

заранее благодарен

Не понял - какой критерий попадания.

пример файла

67.74.199.230|[http://www.classmates.com/cmo/login.jsp]
67.74.199.230|[qq]+'kiss.com'
67.74.199.230|[handle]+'bp03451'
67.74.199.230|[https://170.224.14.144/asp/logon.asp]
67.74.199.230|[email]+'barryperkins@mybluelight.com'
67.74.199.230|[age]+'51'
81.241.146.33|[rebuttal]+'hvala+:-),merci+:-),Prebrzo+zboris+prijatelju.+Slazem+se+da+se+radi+o+vrhnju,

ножно чтобы после работы скрипта на экран вывело только
67.74.199.230|[http://www.classmates.com/cmo/login.jsp]
67.74.199.230|[https://170.224.14.144/asp/logon.asp]

т.е шаблон выглядит так

*.*.*.*|[http(s)://

Вот перл-шаблон:

/\d{2,3}\.\d{2,3}\.\d{2,3}\.\d{2,3}\|\[https?:\/\//

#!/usr/bin/perl
open(InFile, "pslog.txt") || die;
while ($line = <InFile>)
{
print $line;
?????
}
close(InFile);


сорри за наглость, но не мог бы ты добавить недостающие строки?:-))

Извини за наглость, но я не знаю Перл =). Кто-нибудь другой подскажет.

Добавлено в 21.04.04, 19:37:

Цитата X0X0L @ 21.04.04, 17:20

#!/usr/bin/perl
open(InFile, "pslog.txt") || die;
while ($line = <InFile>)
{
print $line;
?????
}
close(InFile);


сорри за наглость, но не мог бы ты добавить недостающие строки?:-))

Так:

#!/usr/bin/perl
 open(InFile, "pslog.txt") || die;
   while ($line = <InFile>)
       {
           if ($line =~ /\d{2,3}\.\d{2,3}\.\d{2,3}\.\d{2,3}\|\[https?:\/\//)
                print $line;        
       }
   close(InFile);

Посмотри.

bash-2.05$ perl p.pl
syntax error at p.pl line 6, near ")
print"
Execution of p.pl aborted due to compilation errors.
bash-2.05$

А так:

!/usr/bin/perl
 open(InFile, "pslog.txt") || die;
   while ($line = <InFile>)
       {
           if ($line =~ /\d{2,3}\.\d{2,3}\.\d{2,3}\.\d{2,3}\|\[https?:\/\//)
                print "$line";        
       }
   close(InFile);

bash-2.05$ perl p.pl
syntax error at p.pl line 6, near ")
print"
Execution of p.pl aborted due to compilation errors.
bash-2.05$

:-((

А так!

!/usr/bin/perl
 open(InFile, "pslog.txt") || die;
   while ($line = <InFile>)
       {
           if ($line =~ /\d{2,3}\.\d{2,3}\.\d{2,3}\.\d{2,3}\|\[https?:\/\//) {
                print "$line";        
           }
       }
   close(InFile);

big thenx