fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. use warnings;
  4. use strict;
  5.  
  6. $\ = $/;
  7.  
  8. $_ = <>, chomp;
  9. my @sentences = map { s/^\s+|\s+$//gr } map { split m/[.]\K\s+(?=[A-Z0-9])/ } split m/[!?]\K/;
  10.  
  11. <>;
  12.  
  13. while(<>){
  14. 	chomp;
  15. 	m/\w/ or next;
  16. 	my( @words ) = m/\w+/g;
  17. 	my @found = @sentences;
  18. 	for my $word (@words){
  19. 		@found = grep m/\b$word\b/i, @found;
  20. 	}
  21. 	print "Search results for \"$_\":";
  22. 	print "- \"$_\"" for @found;
  23. }
Success #stdin #stdout 0s 6180KB
comments (?)
stdin
copy 
  abc . If op ? . . Nud . pl ! um isp .  
8
abc
if
nud
isp
op   nud
op if
if o
stdout
copy 
Search results for "abc":
- "abc ."
Search results for "if":
- "If op ?"
Search results for "nud":
- "Nud . pl !"
Search results for "isp":
- "um isp ."
Search results for "op   nud":
Search results for "op if":
- "If op ?"
Search results for "if o":
https://ideone.com/LF61b3
language:
Perl (perl 5.28.1)
created:
8 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!