Re: extract variables from expression



"Matt Garrish" <matthew.garrish@xxxxxxxxxxxx> wrote in
news:HmK4g.2562$1V4.199028@xxxxxxxxxxxxxxxxxxxxx:


<alexjaquet@xxxxxxxxx> wrote in message
news:1146318054.422388.185420@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
thx for responding but If I test the following :

....

for (local our $i = 0;$i < length($value);$i++) {

Why are you using a package scope variable for a simple loop variable?

if ($value =~ m#\[([^\]]+)](.*?)\[/quote]#) {

What do you think this loop is doing?

$speaker = (split(/=/, $1))[1];
$quote = $2;
}
print "Content-Type: text/html\n\n";

The header should only be printed once.

print "$speaker\n";
print "$quote\n";

Why do you lie to the web browser?

Sinan
--
A. Sinan Unur <1usa@xxxxxxxxxxxxxxxxxxx>
(remove .invalid and reverse each component for email address)

comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html

.



Relevant Pages

  • [OT] Re: Media Lending Library - web based application
    ... >> (reverse each component and remove .invalid for email address) ... >> comp.lang.perl.misc guidelines on the WWW: ... snip your gaudy signature ...
    (comp.lang.perl.misc)
  • Re: Perl script does not work
    ... lower precedence or rather than ||. ... (remove .invalid and reverse each component for email address) ... comp.lang.perl.misc guidelines on the WWW: ...
    (comp.lang.perl.misc)
  • Re: How do I handle an unknown number of keys to hash?
    ... might be to insert the key into the hash with some default value but ... (remove .invalid and reverse each component for email address) ... comp.lang.perl.misc guidelines on the WWW: ...
    (comp.lang.perl.misc)
  • Re: Prematch ($`) and the m//g modifier
    ... in order to preserve the begin and end markings. ... (reverse each component and remove .invalid for email address) ... comp.lang.perl.misc guidelines on the WWW: ...
    (comp.lang.perl.misc)
  • Re: MIME::Lite send one email in for loop
    ... >>script that we can run just by cutting and pasting into an editor. ... you seemed to be using stat incorrectly. ... It does not look like you read the guidelines. ... ..\test1.jpg not sent: Failed to connect to mail server: Invalid argument ...
    (comp.lang.perl.misc)