Next up: More new prefix tags...
Current task list:
- Repair the perldoc:// tag
- Repair the jargon:// tag
- Streamline pad:// so that [pad://] returns "my pad" for the posting monk.
- Investigate lucky:// and see if [lucky://try|this] is broken or not.
- Investigate feasibility for section specific search links, e.g. user://, sopw://, med://, q&a://, and so on.
- Try to streamline HTML.pm, per tye's suggestion.
- Update doccy.
- Under consideration: add a /think chatter tag?
Also, /me wonders what people think of these as new link tags:
- ora:// to search O'Reilly's website.
- rls:// to search merlyn's column archives.
- imdb:// to search the Internet Movie database.
That's the end of the current content. Archives are below...
This:
#!/usr/bin/perl -w
use strict;
my $sentence = "I am Sam. Sam I am.";
my @words = ( $sentence =~ /(\w+|\s+|[[:punct:]]+)/g );
my $element;
my $count = 0;
foreach $element (grep { !/\s/ } @words) {
print "Element ", sprintf( "%02d", $count++ ), ": $element\n";
}
works as desired. It yields:
Element 00: I
Element 01: am
Element 02: Sam
Element 03: .
Element 04: Sam
Element 05: I
Element 06: am
Element 07: .
(thanks, tye and zaxo)
|