OpenForum RSS: sed/perl ��

sed/perl �� (devcoder)

Mon, 26 May 2008 12:00:18 GMT

>>�� .
>
>��

�ӣ ��, �� -�� .
��.

sed/perl �� (madskull)

Mon, 26 May 2008 11:49:30 GMT

>�� .

��
� ��

[code]
[arena tmp]$ cat file
<a style="a:b;" href="a:b:c:d" style="c:d;">
<img style="a:b;" src="a:b:c:d" style="c:d;">
<a style="a:b;" href="a:b:c:d" style="c:d;"><img style="a:b;" src="a:b:c:d" style="c:d;">
<a style="a:b;" href="http://a:b:c:d" style="c:d;">

[arena tmp]$ perl -wlne 's#( (?:style|src|href)="(?:http://|ftp://)?)(.+?)(")#$1.&{sub{($a=$_[0])=~s,:,/,g;$a}}($2).$3#gei;print' file
<a style="a/b;" href="a/b/c/d" style="c/d;">
<img style="a/b;" src="a/b/c/d" style="c/d;">
<a style="a/b;" href="a/b/c/d" style="c/d;"><img style="a/b;" src="a/b/c/d" style="c/d;">
<a style="a/b;" href="http://a/b/c/d" style="c/d;">

[arena tmp]$
[/code]

��, ��, � ��-�� ?

sed/perl �� (devcoder)

Mon, 26 May 2008 11:17:01 GMT

>� ��, �� ?

��, �� awk �� ,
�� ݣ�� :-)

> �� , �� :
>perl -wlne 's#( (?:style|src|href)="(?:http://|ftp://)?)(.+?)(")#$1.&{sub{($a=$_[0])=~s,:,/,g;$a}}($2).$3#gei;print' file

�� .

sed/perl �� (madskull)

Mon, 26 May 2008 11:04:39 GMT

>>
>>sed -i '' 's/<a href="a:b:c:d"/<a href="a\/b\/c\/d"/g' file html
>
>�� "file.html"
>sed -i '' 's/<a href="a:b:c:d"/<a href="a\/b\/c\/d"/g' file.html

��, �� :)

sed/perl �� (madskull)

Mon, 26 May 2008 11:02:59 GMT

>>>�� perl-�� :-)
>>
>>�� , �� :)
>
>��, �� :)
>

� ��, �� ? �� , �� :
perl -wlne 's#( (?:style|src|href)="(?:http://|ftp://)?)(.+?)(")#$1.&{sub{($a=$_[0])=~s,:,/,g;$a}}($2).$3#gei;print' file

sed/perl �� (devcoder)

Mon, 26 May 2008 10:20:11 GMT

>�� .

:-) � ��

>>
>>��, �� awk, ��.
>>�� perl-�� :-)
>
>�� , �� :)

��, �� :)

>� �� , ��
>�� .
>�� :

...
� ��
[code]
... href="http://a:b:c:d" ...
... href="http://a:b:c" ...
... href="http://a:b" ...
... href="http://a" ...
[/code]
;-)

sed/perl �� (NuINu)

Mon, 26 May 2008 10:13:13 GMT

>�� , �� :
>[code]
><a style="a:b;" href="a:b:c:d" style="c:d;">
><img style="a:b;" src="a:b:c:d" style="c:d;">
><a style="a:b;" href="a:b:c:d" style="c:d;"><img style="a:b;" src="a:b:c:d" style="c:d;">
><a style="a:b;" href="http://a:b:c:d" style="c:d;">
>...
>[/code]

�� .
>
>��, �� awk, ��.
>�� perl-�� :-)

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

my $in;
my $out;

my $in_symb = '[^:"]';
my $del = '/';
my $shablon = "(href|src)=\"(((?imsx-imsx:http|ftp|https)://)*)($in_symb+):($in_symb+):($in_symb+):($in_symb+)\"";

while ($in = <>) {
($out = $in) =~ s/$shablon/$1="$2$4$del$5$del$6$del$7"/gi;
print("input\t: '$in'\n");
print("parsed\t: '$out'\n");
}

� �� . ��

sed/perl �� (devcoder)

Mon, 26 May 2008 07:42:57 GMT

�� , �� :
[code]
<a style="a:b;" href="a:b:c:d" style="c:d;">
<img style="a:b;" src="a:b:c:d" style="c:d;">
<a style="a:b;" href="a:b:c:d" style="c:d;"><img style="a:b;" src="a:b:c:d" style="c:d;">
<a style="a:b;" href="http://a:b:c:d" style="c:d;">
...
[/code]

��, �� awk, ��.
�� perl-�� :-)

[code]
function tr_href()
{
awk '{ IGNORECASE=1
r = "(href|src)[[:space:]]*=[[:space:]]*\"([^\"]+)\"[^>]*>";
line = $0
while ( 0 < match(line, r, a) ) {
last_line = substr(line, RSTART + RLENGTH);
# print "last line: ", last_line;
if ( a[2] != "" ) {
before_s = substr(line, 0, a[2,"start"]-1);
after_s = substr(line, a[2,"start"] + a[2,"length"], RSTART + RLENGTH - a[2,"start"] - a[2,"length"] )
# print "after_s: ", after_s;

proto = "";

sed/perl �� (NuINu)

Mon, 26 May 2008 07:27:30 GMT

>[�� ]
>��
><a href="a:b:c:d" ...
>��
><a href="a/b/c/d" ...
>
>�� tr �� ģ�,
>��
>�� .
>
>�� sed �� perl.

#!/usr/bin/perl -w

use strict;

#�� , � ��
#my $in = <>;
my $in = "<a href=\"4f23a:342b:342c:3e32d\" ...";
my $out;

my $in_symb = '[^:"]';
my $del = '/';
my $shablon = "<a href=\"($in_symb+):($in_symb+):($in_symb+):($in_symb+)\"(.*)";
($out = $in) =~ s/$shablon/<a href="$1$del$2$del$3$del$4"$5/ig;

print("input\t: '$in'\n");
print("parsed\t: '$out'\n");

OpenForum RSS: sed/perl ������ �������� � ��������� ��������

sed/perl ������ �������� � ��������� �������� (devcoder)

sed/perl ������ �������� � ��������� �������� (madskull)

sed/perl ������ �������� � ��������� �������� (devcoder)

sed/perl ������ �������� � ��������� �������� (madskull)

sed/perl ������ �������� � ��������� �������� (madskull)

sed/perl ������ �������� � ��������� �������� (devcoder)

sed/perl ������ �������� � ��������� �������� (NuINu)

sed/perl ������ �������� � ��������� �������� (devcoder)

sed/perl ������ �������� � ��������� �������� (NuINu)

OpenForum RSS: sed/perl ��

sed/perl �� (devcoder)

sed/perl �� (madskull)

sed/perl �� (devcoder)

sed/perl �� (madskull)

sed/perl �� (madskull)

sed/perl �� (devcoder)

sed/perl �� (NuINu)

sed/perl �� (devcoder)

sed/perl �� (NuINu)