Parent Directory
| 
Revision Log
| 
Patch
| code/trunk/perltest revision 41 by nigel, Sat Feb 24 21:39:17 2007 UTC | code/tags/pcre-3.4/perltest revision 52 by nigel, Sat Feb 24 21:39:39 2007 UTC | |
|---|---|---|
| # | Line 9 | Line 9 |
| 9 | sub pchars { | sub pchars { |
| 10 | my($t) = ""; | my($t) = ""; |
| 11 | ||
| 12 | foreach $c (split(//, @_[0])) | foreach $c (split(//, $_[0])) |
| 13 | { | { |
| 14 | if (ord $c >= 32 && ord $c < 127) { $t .= $c; } | if (ord $c >= 32 && ord $c < 127) { $t .= $c; } |
| 15 | else { $t .= sprintf("\\x%02x", ord $c); } | else { $t .= sprintf("\\x%02x", ord $c); } |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.5 |