Hi --
I made the little tester below. To simplify the parsing I added '\"'
at the beginning and 'x\"'the end. I have tried a number of values for $regex
and even the best ones:
&test_split('\".+?\"', $string);
&test_split('"(.*?)"', $string);
&test_split('\".+?\\"', $string);
&test_split(
Below is a pretty way to display the values in a web page
Enjoy!
Barry
print <
EOD
my %system = ();
$system{PROCESS_ID} = "$$";
$system{REAL_USER_ID} = "$<";
$system{EFFECTIVE_USER_ID} = "$>";
$system{REAL_GROUP_ID} = "$(";
$system{EFFECTIVE_GROUP_ID} = "$)";
$system{PROGRAM_NAME} =
Hi All --
Thanks for your (often humorous) replies. I went to
http://search.cpan.org/orange.html and donated to obtain the cure for the
orange scourge. They already have received $1185 and need another $1915 to
restore the royal colors. How about the rest of you supporting the cause.
B^)