Q: Embperl

[Eugene B. Byrganov]

Hi!


My offer in TODO for Embperl:

Now exist useful structure ($row,$col):


[+ $a[$row][$col] +] 
 


but often it is requested have attrib for cell with period
 (Ex: cell color as chess).

Is will be very useful if make parcel this structure:
[-
$a[0][0] = '1/1' ;
$a[1][0] = '2/1' ;
$a[1][1] = '2/2' ;
$a[2][0] = '3/1' ;
$a[2][1] = '3/2' ;
$a[2][2] = '3/3' ;
-]



[+ $a[$row][$col] +] 
[+ $a[$row][$col] +] 
 

[+ $a[$row][$col] +] 
[+ $a[$row][$col] +] 
 


as (without duplication row and column):



1/1 
 

2/1 
2/2 
 


3/1 

3/2 

3/3 
 


It's real idea?

Second question: many Web editor programs insert in HTML-doc 
only one tag  or  - without  or , as this write in
http://www.w3.org/TR/REC-html40/struct/tables.html#edef-TR
But Embperl return error!!! This is real necessary? May be interpret new 
 or , as + or +?

-- 

  ó ÎÁÉÌÕÞÛÉÍÉ ÐÏÖÅÌÁÎÉÑÍÉ, å×ÇÅÎÉÊ âÙÒÇÁÎÏ×.
  Best regards, Eugene Byrganov

  mailto:[EMAIL PROTECTED].
  work - http://www.inp.nsk.su/

Q:Embperl

[Eugene B. Byrganov]

Hi!

I use HTML-Embperl-1.2b10:


How make $http_headers_out{'Location'} ,so as  

  redirect 


-- 

  ó ÎÁÉÌÕÞÛÉÍÉ ÐÏÖÅÌÁÎÉÑÍÉ, å×ÇÅÎÉÊ âÙÒÇÁÎÏ×.
  Best regards, Eugene Byrganov

  mailto:[EMAIL PROTECTED].
  work - http://www.inp.nsk.su/

Re: Embperl

[Eugene B. Byrganov]

Gerald Richter wrote:

> > I am making too:
> >
> >$url="edit.html\?";
> >foreach $i ( keys %fdat)
> >  {
> >  $_=$fdat{$i};
> >  s/([^a-zA-Z0-9-._])/uc sprintf("%%%02x",ord($1))/eg;
> >  $url.="$i=$_\&";
> >  }



> > Another quistion: how use 'struct tCharTrans Char2Url' in perl code
> > for escaping any strings?
 
> I can put it on the TODO list, but there are other perl modules (CGI, LWP)
> which can do the job for you, so I don't give it a very high priority

Ok!

P.S. I search std. function for escaping, but don't found anywhere in 
perl modules. Only internal in CGI.pm I found this string 's/([^a-zA-Z0-9-._]) ...', 
but without possible to call function from my code.

-- 

  ó ÎÁÉÌÕÞÛÉÍÉ ÐÏÖÅÌÁÎÉÑÍÉ, å×ÇÅÎÉÊ âÙÒÇÁÎÏ×.
  Best regards, Eugene Byrganov

  mailto:[EMAIL PROTECTED].
  work - http://www.inp.nsk.su/

Re: Embperl

[Eugene B. Byrganov]

Gerald Richter wrote:

> >
> >
> > How make $http_headers_out{'Location'} ,so as
> >
> >   redirect 
> >
> 
> I would try
> 
> $url = "http://$ENV{SERVER_NAME}/path/to/edit.html?" ;
> while (($k, $v) = each (%fdat))
> {
> $url .= "$k=$v&" ;
> }
> 
> $http_headers_out{'location'} = $url ;
> 
I am making too:

   $url="edit.html\?";
   foreach $i ( keys %fdat)
 {
 $_=$fdat{$i};
 s/([^a-zA-Z0-9-._])/uc sprintf("%%%02x",ord($1))/eg;
 $url.="$i=$_\&";
 }
   $url.="lock=$lock";
  $http_headers_out{'Location'} = "$url"; 

But this don't good idea,
' redirect  ' - more elegant.
 
Another quistion: how use 'struct tCharTrans Char2Url' in perl code 
for escaping any strings?
My be in TODO?


-- 

  ó ÎÁÉÌÕÞÛÉÍÉ ÐÏÖÅÌÁÎÉÑÍÉ, å×ÇÅÎÉÊ âÙÒÇÁÎÏ×.
  Best regards, Eugene Byrganov

  mailto:[EMAIL PROTECTED].
  work - http://www.inp.nsk.su/