Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Call for code samples!

by stefan k (Curate)
on Nov 15, 2001 at 14:56 UTC ( [id://125547]=note: print w/replies, xml ) Need Help??


in reply to Call for code samples!

Howdy,
just going through some code of mine...
  • Say you got some variables stored in a hash: name=>value and whant to replace them in a text where they are used in a make-like form: $(VARIABLE)
    foreach (keys %global_variables) { $content =~ s/\$\($_\)/$global_variables{$_}/g; }
  • When you want to indent a part of text and calculated the indent already you might use:
    $content =~ s/\n/\n$indent /g;
  • Some really often used substitutions are the whitespace deletions: 1. All whitespaces: $line =~ s/\s+//g; 2. Only leading whitespaces: $line =~ s/^\s*//; 3. Only trailing whitespaces: $line =~ s/\s*$//;
  • Say you got a GUI (in my case it was Gtk) and want to display some messages. In the preview window though only the first line shall be displayed, marking that more is available:
    $text =~ s/\n.*/ [more\.\.\.]/s;
That's it for the moment. The rest of my regexp-substitutions is mostly boring ;-)

Update: Added the missing parens around VARIABLE

Regards... Stefan
you begin bashing the string with a +42 regexp of confusion

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://125547]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (8)
As of 2024-04-18 11:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found