Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

(Ovid) Re(2): How many bugs can *you* find

by Ovid (Cardinal)
on May 01, 2001 at 03:25 UTC ( #76811=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
       my $paramTemp,$contentTemp; 
    ## $contentTemp is NOT BEING DECLARED LOCAL (very misleading)
    
  2. or download this
       $content =~ s/<!--$section-->(.*)/<!--$section-->$contentTemp/; 
    ## parens not needed on .*, what if $section has regex chars?
    
  3. or download this
        if ($image ne '') { my $newFile = fileUpload('Image',250000,1,'lat
    +est_image','JPEG','.jpg','
    +.jpeg') } 
    ## image might be undef if param not provided.
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://76811]
help
Chatterbox?
[ovedpo15]: another question about regex. if I have a string like this: "a/b/,c/d/e,5" I would like to remove the string after the last comma so the output will be "a/b/,c/d/e" how to do so?
[Corion]: ovedpo15: You could split on comma, and then join everything together, except the last part. Or you could match and make sure that the last part has no comma, like qr!,[^,]+$!, or you could use rindex.
[ovedpo15]: But I don't know the length of the string. will it still work?
[ovedpo15]: The only thing I know is that there is a comma at the end and a value after that

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2018-05-27 10:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?