comment on

Hi Enlighted Ones,

I'm here looking for wisdom from you. I have an expression, and I need the expressions contained in that. For example, if I have:

camel perl book
[download]

I would like to get:

camel
perl
book
camel perl
perl book
camel perl book
[download]

I made this small sub that returns the pretended list, but I would like to know your opinions on that:

sub list {
  my $words=shift;
  chomp $words;
  my @words=split /\s/, $words;
  my @longs=();
  for my $i (1..$#words-1) {
    push @longs, map { join " ", @words[$_..$_+$i]} (0..$#words-$i);
  }
  push @words, @longs,$words;
  return @words;
}
[download]

This is intented to create a query for a payperview search engine, where the records which search expression is complete in the query will be shown.

There is any better way to do this?

Thank you very much for sharing your wisdom.

TheMage
http://themage.bliker.com

In reply to Subphrases from a phrase by themage

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


laziness, impatience, and hubris
	PerlMonks